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-REM & 
IDENTIFICATION 


PRODUCT CODE: AC-T853F-MC 

PRODUCT NAME: COXDAFO KDJ11-B CLUSTER DIAG. 
PRODUCT DATE: MARCH, 1986 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY pole 


E CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR USE OR RELIABILITY OF 
SOFTWARE ON ne THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES 


COPYRIGHT (C) 1984,1985,1986 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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SEQ 0002 
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SEQ 0003 

79 

re 1. PROGRAM ABSTRACT 

82 #ex% see special instructions for CACHE testing under APT +e 
Ps seae section 9.2, and EEROM testing under APT, section 9.3 -*e8 
85 

86 This program tests out KDJ11-B CPU board, including the Jil qnip get. 
87 on-board cache, on-board ROM's, including 16 bit and the 6 bit ° 
po serial line unit, and line time clocks. 

90 The KDJ11-B is a PDP-11 CPU that incorporates the Jil chip set as the 
91 heart o . It is a quad height Q22 bus module. It has 

on- c , some of the functionality of the cache is hidden inside 
93 the Jil and the of the functions implemented in two on-board gete 
arrays. The storage capacity of the cache is 4K bytes of RAM, called 

95 data RAMs. cache is implemented as a direct wi 

+ ocerass bits 21 through 13 stored in a different set of RAM's called 
98 The KDJ11-B also has two on-board ROM’s. One of them, the 16-bit 

99 addressable ROM, contains the self-test and the boot codes. The other 
100 ROM, the 8-bit addressable one, contains the base area with 
101 selection ere. optional bootstraps, optional UFD (User Friendly 
ies — system desctiption area, and optional foreign language 
104 The Serial Line Unit is implemented thru ea Dlert chip which provides 
105 the standard console interface to the CPU. It hes internal Joop back 
106 mode and provides with three clock lines: 800HZ, 60HZ, and ‘= 
107 The line time cree functions are implemented using those three lines 
108 and the BEVENT line. The line clock status register is implemented in 
ts one of the gate arrays. 
111 
ats 2. SYSTEM REQUIREMENTS 
its Hardware Requirements 
116 To run successfully the diagnostic needs: 
118 1. KDJ11-B CPU module 
119 2. console terminal 
iss 3. at least 28K of memory 
l22 In DVT, and st one manufacturing (module assembly) the Q22 Bus 


123 exerciser is to check Q22 Bus logic. 
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SEQ 0004 

125 

is 3. LOADING AND STARTING PROCEDURES 

To start-up this program: 

iat 1. Boot XXDP+ 

132 2.T “R NAME”, where name is the name of the BIN or BIC 

eo file for this program. 

135 The starting address of oo prepes is 200. 

136 Note: if trying to restart program in an arbitrary place after 

137 HALT on Break following registers should be set up: 

138 17777572=0 to disable memmory management 

139 17777520=1000 to clear saeeste mode (bit 8), but still save 

140 HALT on Bre 

143 17777746=400 to flush the cache 

143 

io 4. SPECIAL ENVIRONMENTS 

146 The am is APT compatible. It can also be run under the UFD monitor. 

147 In cases none of the standard error printouts occur. Refer 

148 to corresponding documents on running procedures in APT and under 

e+ UFD monitor. 

151 #ax% see special instructions for CACHE testing under APT arte 
iz sea section 9.2, and EEROM testing under APT, section 9.3 2% 

iz 5. PROGRAM OPTIONS 

156 The Q22 Bus Exerciser is utilized if it is present in the system and 

157 pe Sapentis is not running in UFD mode. . 

158 S capabilities of looping on test and on error are provided. 

159 In order to run the extensive cache data RAM test bit 7 has to be set 

160 in the software switch register. To run the extensive cache tag RAM test 

ts bit 6 has to be set in the software switch register. 

163 

164 SWITCH REGISTER SELECTION: 

165 BIT NUMBER USE 

1 5 HALT ON 

167 14 LOOP ON PRESENT TES 

168 13 INHIBIT T S 

169 Re 12 EEROM subtest RUN switch 

170 11 INHIBIT ITERATIONS 

171 10 BELL ON 

172 9 LOOP ON ERROR 

173 8 LOOP ON TEST IN SWR<5-0> 

174 7 DO EXTENSIVE DATA RAM TEST 

175 6 DO EXTENSIVE TAG RAM TEST 

178 5-0 Subtest number to loop on (BIT 8) 


77 
178 *** running with this test will all but the first 109 bytes of 
179 EEROM a! be SURE 9.3 


to read instructions in sect. 
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SEQ 0005 

183 6. EXECUTION TIMES 
183 Without extensive RAM tests, the diagnostic runs in under 15 seconds. 
is With them, it takes about 2 minutes. 
186 In addition, when the EEROM test bit is on, pass 1 takes an additional 
187 amount of time of 1 minute for 15MHZ J-11, to about 40 sec. for the 
188 20MHZ. version. These test times are for the 2K EEROM, for 8K parts, 
189 multiply by 4. If running under APT, the system r must be sure 
sot the first pass run time allows adequate time for comp etion of this test! 
ise 7. ERROR INFORMATION 
194 In the case of errors, a failing PC and test numbers are given. 
195 Where it is ible, expected and received date are given. 
is For an exemple, see section 8. 
Fs | 8. EXAMPLES 
200 After booting XXDP+ and starting the program, the followi 
8 will eauar 0 the terminal: - ” 
= * KDJ11-B CPU DIAGNOSTIC - COKDAFO « 
ae SWR = XXXXXX NEW = 
207 where XXXXXX correspond to present software switch register 
208 setting... : 
209 After " an operator can do one of the Pollewing: 
210 1) type in a new software switch register setting followed 
2ii cerrige return or 
2l2 2) just in carriage return in which case the software 
aa register will remain unchanged. 
215 Example of error printout: 
216 ERROR IN TAG STORE 
217 TEST ERROR ADDRESS ADDRESS 
218 & PC <21-16> <15-0> 

105620 66600 


27 
Note: this may not correspond to the actual Program Counter. 
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223 


SEQ 0006 


9. PROGRAM DESCRIPTION 


9.1 Jil CODE 

This portion of the code tests out the Jil chip set. It is broken 
into 3 pieces: CPU tests, which verify different instructions in 
different modes and different trap conditions; MMU tests, which 
verify different functions of MMU; and FFP tests, which do 
different Fleeting pele’ instructions. 

This portion of the code have been written in close relationship 
with the J1l microcode. Therefore, even though not all possible 
instructions in all possible addressing mode have been tested, an 
attempt has been made to exercise all of the microcode. 


9.2 CACHE CODE 
This portion of the diagnostic verifies all cache functions. 
Daa and tag RAM's tests are also included. 


KRAREAEAREAEEREAERERREEE ERE EREEEREERE EERE EERESEREEESESEE ESSE ESE SS EEEEES ES ESS 
ote: in order to run extensive cache RAM's tests the corresponding 
bits in the software switch register should be set. See section - F 
----In particuler, the number in $USWR (sware oe te should equal 
the “first pass run time” set up at installation---- (the exception 
is when $USWR is set to » No condition applies) 
EEAREEEEREEEEREEEEERREREREREEEAESEEEESEERESESEESESESESE SESS ES ESE SESE SEES SEES 


TESTING CACHE FUNCTIONS UNDER APT 


The testing of Cache related functions under APT is facilitated 
use of SUSWR containing a number which will indicate the number 
of passes with inclusive cache tests as follows: 


(all numbers in decimal, $USWR loaded by APT manager ) 


one pass with all subtests followed by 
default $USWR = 0 continuous testing of non-cache t 
setting subtests until APT Break is encountered 
CAPT tem must not BREAK in for this 
“Fj Pass Run Time”, now assumed to be 


approx 16 sec. ) 


$USWR < 16 oy non-cache dependent tests will be run 
APT may break anytime 

$USWR = 16 same as $USWR = 0 

$USWR > 16 $USWR is divided by 16 (pass time ) to get @ 
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274 number of passes which include all subtests 
Cincluding cache) After this number of passes, 
continuous testing with only non-cache depend- 
ent sub-tests is continued during which time 
APT may break with no bad effects. 


In this case, the APT setup must not attempt to break for a length of time 
equal to $USWR contents, in . _The nomina seconds per pate. and the 
actual pass time of about 10 seconds (which changes es tests may added ) 
allow a oy careie adding additional tests. The actual number of passes done 
will be equal to $USWR divided by 16, Cif not 0, or < 16 ). 


#xaa% The guarrantee that APT will not attempt to break into the di tic 

for a given number of seconds is provided y Ry. APT system manager loading 

the variable $PASTM with the same number $ received. 

I the message “hung diagnostic” will likely be receivedessssss 


9.3 ON-BOARD ROM AND EEROM CODE 


These tests verify the checksums of the 16-bit ROM and the base 
area of the 8-bit EEROM, and a write and read of 1's and 0's to 


with care. 


The testing of the on-board EEROM is accomplished b 
of bit 12 in the software switch ister, which will see 
EEROM test is run once. (Pass 1) It should be noted that 
have another use in the SYSMAC macro $E0P, but is not so used 
within this am. The BCSR is also set for Halt on Break on 
during this test, as a troubleshooting aid in stand-alone modes. 


*&s WHEN RUNNING THIS TEST UNDER APT #ee0 


pti ttt cette hp pide tt tt toh dot dot ee 


310 After loading and starting the program with EEROM test switch 
311 on, APT must not (break) operas the test until the time 

st6 given in section 6, EXECUTION TIMES, has passsed. 

314 This test should never be "scripted" in a way which would cause 
315 the test to be run multiple times. It should be run instead 
sie once at the begining or end of a script. 

3i0 we tttttt ttt titi 

320 a The contents of the EEROM are lost, except for the 109 (decimal) byte 
321 4. represen ies the SETUP area, which are restored at the end of the 
322 ef t. If the test is interrupted before these locations are re- 


8 tes 
323 '! stored, unpredictable results may occur. 
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SEQ 0008 


9.4 LINE TIME CLOCKS CODE 

This part of the program verifies the functions of ell 4 clock 
lines: 3 of them from the serial line chip (SOHZ, 60HZ, SO0HZ) 
and BEVENT line. 

Note: in UFD mode only functions corresponding to Boot Rom 
selection are checked. 


9.5 SERIAL LINE UNIT CODE 
These tests verify the functionality of the SLU chip utilizing the 
maintenance mode of the chip. 


9.6 Q22BE CODE ; 

These tests verify interrupt arbitration of the KDJ11-B, DMA 
protocol, and cache functions related to the DMA activities, 
including PMG counter. 


TEST NAME/FUNCTION APT-CACHE sel NOTES. 
base instruction set tests = ....---+--0-- 
check (cache) register access 
register bit test yes 
force miss test yes 
hit/miss register test part 1 yes 
se igs | te speed test yes 
byte all ion test yes 
POR bit 15 (¢ ) test yes 
flush cache a yes 
unconditional b yes 
col wrong mag per ity test yes 
write wrong ity yes 
perity abort yes 
peri interrupt test yes 
miscellaneous parity test yes 
memory system error register test yes 
check por! ty aborts blocked ...... yes 
ti- ing instruction yes 
date s rem, tests yes 


1 
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SEQ 0009 
376 test 24 tag store ram tests yes 
377 test 25 standalone mode tests yes 
378 test 26 moving inversions test date RAM yes 
La test 27 moving inversions for tag store yes 
381 test 30 PCR read/write bits = «eesess 
382 test 31 besr read/write bits = eee eee 
383 test 32 16 bit ROM checksum en eens HOB on 
384 test 33 8 bit EEROM checksum test ....... HOB on 
385 test 34 EEROM checkerboard mem test _....... note 1.0 
386 test 35 LKS bit 7 ‘Cie 
387 test 36 LKS interrupt priority = -«-«.-- 
305 test 37 line clock disable ewww eee 
390 test 40 unconditional clock interupts ....... 
391 test 41 resetting LKS j= jj = eessens only done pass 1 ; 
392 test 42 line clock interrupts yes not CACHE dep, APT break sensitive 
393 test 43 maintenance register test — .....-- 
394 test 44 serial line unit registers —_.......-. 
395 test 45 XCSR bit 7 oo ees 
396 test 46 RCSR bit 7 and XCSR bit 7 — cw we ee done once in APT 
ad test 47 RESET and XCSR<2!0> j= — aaeevee first pass only 
399 test 50 RESET and interrupt enable _.......... - - ; 
400 test 51 interrupt priority for SLU ~~ ....... done once in APT 
401 test 52 Break condition = we eee done only once 
402 test 53 overrun condition = —«—-—_—_—_ ew ween done once in APT 
403 test 34 4 SS Se HOB on 
404 test 55 MEMORY mapping not done chain mode, APT, other than pass 1 
405 test 56 wrane per: abort test ...-.-- ; 
po test 57 DMA PARITY in standalone yes HOB disabled 
408 test 60 DMA tag parity w/o standalone yes 
409 test 61 DMA write hit cycles yes j 
410 test 62 different levels of interrupts not UFD, only if Q22BE found 
411 test 63 Arbitration bet PIRQ interrupt not UFD, only if Q22BE found 
412 test 64 power down test : not » only if Q22BE found 
413 test 65 arbitration between interrupt levels not UFD, only if Q22BE found 
ais test 66 PMG counter yes not UFD, only if two Q22BE found 
416 es of july 1984, this is the list of subtests, any added subtests will require 
417 editing of this list.... 
“8 
420 note 1. This test will only be run in first gees and then only if bit 12 is set 
421 in the SWR.... Running this test wil DESTROY everything in the 
422 except the first 109 bytes...... UFD area, secondary boots, and local 
423 lenguage area's would all need to be restored after running this test. 
424 The first pass run time must be adjusted accordingly when running under 





K1 
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10. 


Version 


Version 


Version 


SEQ 0010 


PROGRAM UPDATES AND MODIFICATIONS 


COKDADO 2-22-85 Howard L. Marshall 
1. Changes made by Howard L. Marshall - denoted by “$$$” 
in comment lines of added or changed code, as of 2-22-85 


Added subroutine "DETFPA” (determine floating point accelerator ) 


This subroutine is called just prior to the error macro for ell 
floating point errors. This subroutine prints 1 of 2 possible 
error messages. they ere: 


A.) ERROR DETECTED IN FLOATING POINT ACCELERATOR CHIP. 
B.) ERROR DETECTED IN Jii FLOATING POINT PROCESSOR. 


Of the 2 above error s, the error message that is 
printed is determined by state of the “FPA” flag, bit 8, 

in the maintenance register. this bit is set to a1 if the 
floating point accelerator chip is installed in the cpu board. 
Otherwise, the bit is cleared which indicates that the 

floating point accelertor chip is not installed. Based solely 
on this determination, it is logical to assume that most if 
not all floating point errors can be attributed to the FPA 

on the "FPA" bit is set or to the floating point processor 
within the jil if the "FPA" bit is cleared. 

COKDAEO 13-MAY-85 L. Marshall 

Changes made by Howard |. Ma 1 - denoted by “$$$” 
Corrected error in 22-Bit MMU Tests (test #1) which used number 
just below the I/0 Th 2 Be address og: why ~ 
ow . This vi in con ion 
with a value of 177500 i _to physi 

address 17767776 which is at 2046K (hal ep D pee? 
Changed that virtual address to 147776 which when used with 
above value in KPAR6, maps to physical address 17757776 which 
is in the 2044K page, the last non I/0 page address. 


Modified test #53, Overrun condition test to allow this test to 
work pragersy ee ig sonees terminal re nn pt ee mini - 
mum baud rate, baud. Changed wait argument from: 
#150000 to #175000. 


COKDAFO 21-Mar-86 Jeffrey P. Belanger (JPB)_ 
The letest version of the DCJ11-AB chip exposed an error in 
the diagnostic while testing a certain parameter with the 
ASH and ASHC instructions. This version corrects 
problem. The contents of the following locations were 
changed from 177737 to 177761: 

26506 ,27262, and 27516 ; 
This allows both processors to a tested without errors. 
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493 


167400 
000300 


000001 


SEQ 0011 
$SWR=167400 
$SWRMK=300 
.TITLE COKDAFO aie B CLUSTER DIAG. 
;*COPYRIGHT (C) MAR ooap 


eDIGTT AL a ee 
*MAYNARD 


| SPROGRAN BY DIAG. ENG. 

: THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;#PACKAGE (MAINDEC-11-DZQAC-C8), OCT, 1982. 

* 


$TN=1 
.SBTTL OPERATIONAL SWITCH SETTINGS 


:# SWITCH USE 

a ree Ok tS Seer eee ae 

;* 15 HALT ON ERROR 

* 14 LOOP ON TEST 

;* 13 INHIBIT ERROR TYPE 

;* 11 INHIBIT ITERATIONS 

;* 10 BELL ON ERROR 

;* 9 LOOP ON ERROR 

LF 8 LOOP ON TEST IN SWR<5:0> 

;* 7 DO EXTENSIVE ill RAM TEST 

;* 6 DO EXTENSIVE TAG RAM TEST 
Y MANAGEMENT DEFINITIONS 


-SBTTL MEMORY 

;#KT11 VECTOR ADDRESS 
MMVEC= 250 

#KT11 STATUS REGISTER ADDRESSES 
§R0= 177572 
SR1i= 177574 


SR2= 177576 

SR3= 172516 

;*USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177 


UIPDR1= 177602 
UIPDRe= 
UIPDR3= 177 
UIPDR4= 177610 
UIPDORS= 177 
UIPDR7= 177616 

;#USER “D" PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177 

UDPDR1i= 177622 


UDPDR2 
UDPDR3= 177626 
UDPDR4= 177630 


= 177634 
UDPDR7= 177636 
;#USER “I” PAGE ADDRESS REGISTERS 
UIPARO= 177640 
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SEQ 0012 
MEMORY MANAGEMENT DEFINITIONS 

177650 UIPAR4= 1776590 
177652 ARS= 177652 
177654 UIPAR6= 177654 
177656 UIPAR7= 177656 

;#USER “D” PAGE ADDRESS REGISTERS 
177660 UDPARO= 177660 
177662 UDPAR1= 177662 
177664 AR2= 177664 

UDPAR3= 
177670 AR4= 177670 
177672 UDPARS= 177672 
177 AR6= 177674 
177676 UDPAR7= 177676 

Pn ab =o "I" PAGE DESCRIPTOR REGISTERS 
172200 IPDRO= 172200 
172202 SIPDRi= 172202 
172204 SIPDRe= 172204 

SIPDR3= 172206 
172210 SIPDR4= 172210 
1722 SIPDRS= 172212 
172214 SIPDR6= 172214 
172216 SIPOR7= 172216 

*SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
172220 SDPDRO= 172220 
172222 SDPDRi= 172222 
172224 SDPDRe= 172224 
172226 SDPORS= 172226 
172230 SDPDR4= 172230 

32 SDPDRS= 

172234 SDPDR6= 172234 
172236 SDPDR7= 172236 

en a sab os “I” PAGE ADDRESS REGISTERS 
172240 IPARO= 172240 
72242 SIPARi= 172242 
172244 AR2= 1 
172246 SIPAR3= 172246 
172250 SIPAR4= 172250 
172252 SIPARS= 172252 
172254 SIPAR6= 172254 
172256 SIPAR7= 172256 

Pe aaah "D” PAGE ADDRESS REGISTERS 
172260 ARO= 172260 
172262 SDPARi= 1 
172264 SDPAR2= 172264 

SDPAR3= 17 
172270 AR4= 172270 

2272 SDPARS= 172272 

172274 SDPAR6= 172274 
172276 SDPAR7= 172276 

;#KERNEL “I" PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDRi= 172302 
172304 KIPDR2= 1723504 
172306 KIPDR3= 172306 
172310 KIPDR4= 172310 

KIPDRS= 172312 


172312 1 
172314 KIPDR6= 172314 
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MEMORY MANAGEMENT DEFINITIONS 


498 


172316 


172376 


001100 
04000 


KIPDR7= 172316 
;#KERNEL “D” PAGE DESCRIPTOR REGISTERS 
KDPDRO= 172 


KDPDR1= 172322 
KDPDR2= 


KDPDR3= 172326 
KDPDR4= 172330 
KDPDRS= 172332 
KDPDOR6= 172334 
KDPDR7= 172336 
;#XERNEL “I” PAGE ADDRESS REGISTERS 
KIP 72340 


KIPAR6= 172354 
KIPAR7= 1723 
; mo PAGE ADDRESS REGISTERS 
KDPARI= 172362 
= 172364 

KDPAR3= 172 

AR4= 172370 
KDPARS= 172372 

AR6= 172374 
KDPAR7= 172376 
.SBTTL BASIC DEFINITIONS 
Pe ae aa OF THE STACK POINTER *#* 1100 «#« 
ERROR= EMT ;;BASIC DEFINITION OF ERROR CALL 
SCOPE= IOT ;;BASIC DEFINITION OF SCOPE CALL 
;*MISCELLANEOUS DEFINITIONS 
HT= il ;;CODE FOR HORIZONTAL TAB 
LF= i2 ;;CODE FOR LINE FEED 
CR= 15 ;;CODE FOR CARRIAGE RETURN 
CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
« la ;;PROCESSOR STATUS WORD 
STKLMT= 177774 ;;STACK LIMIT REGISTER 
PIRQ= 177772 » sPROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; ;HARDWARE SWITCH STER 
DDISP= 177570 bi DISPLAY REGISTER 
is AL REGISTER DEFINITIONS 

= #0 ; ;GENERAL REGIS 
Ri= ay ; ;GENERAL REGISTER 
R2= ;;GENERAL REGIST 
R3= 83 ;;GENERAL REGISTER 
R4= 64 ;;GENERAL REGISTER 
RS= 85 ;;GENERAL REGIS 
R6= #6 ;;GENERAL REGISTER 
R7= “7 ;;GENERAL REGISTER 
SP= %6 ;;STACK POINTER 


PC <7 
SPRIORITY LEVEL DEFINITIONS 
pRo= 0 -;PRIORITY LEVEL 0 


SEQ 0013 
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SEQ 0014 
BASIC DEFINITIONS 
000040 PRi= 40 . PRIORITY LEVEL 1 
000100 PR2= 100 SePRIORITY LEVEL 2 
000140 PR3= 140 SSPRIORITY LEVEL & 
000200 PR4= 200 ‘PRIORITY LEVEL 4 
000240 PR5= 340 TEPRIORITY LEVEL 5 
000300 PRE= 300 SSPRIORITY LEVEL 6 
000340 PR7= 340 ‘PRIORITY LEVEL 7 
je"SWITCH REGISTER” SWITCH DEFINITIONS 
100000 15= 100000 
040000 Sil4= 
020000 SWi3= 20000 
010000 Si2= 10000 
004000 Sii= 4000 
SW10= 2000 
001000 SWO9= 1000 
SWO8= 400 
SWO7= 200 
000100 SWO6= 100 
Suos= 40 
Su04= 20 
000010 SWO3= 10 
Su02= 4 
SWOl= 2 
4 SWOO= 1 
001000 Su9= SWO9 
Sus= SWOs 
Su7= SMO? 
000100 Sl6= SWO6 
SW5= SWOS 
000020 Sua= SwWod 
0.0010 Su3= SWO3 
000004 Siiz=  SWO2 
000002 SWi= SWO1 
000001 Su0=  — SWOO 
jsDATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 IT15= 100000 
040000 BIT14= 


020000 
010000 BITi2= 10000 
004000 





000232 
000232 


000010 


001160 
004024 


000777 001160 
004024 
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SEQ 0015 

BIT3= BITO3 
BIT2= BITO2 
BITi= sBITO1 
BITO= BITOO 

:*BASIC “CPU” TRAP VECTOR ADDRESSES 
ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
RESVEC= 10 ; ;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 33"T" BIT 
TRIVEC= 14 ;; TRACE TR 

TVEC= 14 ;;BREAKPOINT TRAP (BPT) 
IOTVEC= 20 : INPUT/ /OUTPUT TRAP CIOT) *##SCOPEss 
PWRVEC= 24 ;;POWER FAIL 
EMTVEC= 30 ; EMULATOR TRAP (EMT) **ERRORs+ 
TRAPVEC=34 3; "TRAP" TRAP 
TKVEC= 60 ;;TTY KEYBOARD VECTOR 
TPVEC= 64 ITTY PRINTER VECTOR 
PIRQVEC=240 sPROGRAM INTERRUPT REQUEST VECTOR 

UF i SFLAG FOR UFD 


DSET= 
. SBTTL ei CATCHER 


re *ALL eee LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 5 
; #LOCATION 0 O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


_=174 
DISPREG: .WORD 0 ; ;SOFTWARE DISPLAY REGISTER 
SUREG: "WORD O :;SOFTWARE SWITCH REGISTER 
CLR $TMPO 
JMP BESTART 
.=220 
MOV #777, $TMPO 
JMP @eSTART 


.SBTTL ACT11 HOOKS 
; 5 RARREAEREERRAR ERE RARER EA EEEES CESS REERESESERAEER SERS EE ESSE EEE ESS 


;HOOKS REQUIRED BY ACT11 
$SVPC=. ;SAVE PC 


. 746 
$ENDAD ;;1)SET LOC.46 TO ADDRESS OF $ENDAD IN 


on 
;:2)SET LOC.52 TO ZERO 
3; RESTORE PC 


. $E0P 


. = $SVPC 
.SBTTL APT PARAMETER BLOCK 
5 RRRKRERAEREEEESERERESERERESR ESE EE RESERESARSEE SES EEE SESERER ERS ES 
REQUIRED FOR APT 


LOCATIONS 24 AND 44 AS 
:  CEREREEARRAESSRAGAERSSERESAASEARSRASERERS RARE SEEE ERATE SESE TREES 


. $X=. er. CURRENT LOCATION 
224 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 : SFOR APT START UP 


.=44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 
$APTHDR ;;POINT TO APT HEADER BLOCK 

; sRESET LOCATION COUNTER 

5 RARE RREARAERERRERSRAERESARARSS EES ERESEEESESERE SES SS ERE EER ES ESSE 
SETUP T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


;;TWO HIGH BITS OF 18 BIT MAILBOX ADOR. 


APTHD: 
$HIBTS: .WORD 0 
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APT PARAMETER BLOCK 


001200 
000000 
000000 


000000 
000052 


55588 


SEQ 0016 


$MAIL §;;ADDRESS OF APT MAILBOX (BITS 0-15) 
;;RUN TIM OF LONGEST TEST 


;;RUN TIME IN 
: * ADDITIONAL 
SETEND-$MAIL/2 ;;LENG 


SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
TIME (SECS) OF A aot FOR EACH ADDITIONAL UNIT 


RUN 
TH MAILBOX-ETABLEC 


a 
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510 


.SBTTL COMMON TAGS 
5 ERR EaEEE REARS RSAAEREERERESESERESES EES ES ESSE ESE EEE EEE SEE EEE SS 


;* 


. 71100 
$CMTAG: 

. WORD 
$TSTNM: .BYTE 
$ERFLG: .BYTE 
$ICNT: .WORD 
$LPADR: .WORD 
$LPERR: .WORD 
$ERTTL: .WORD 
$ITEMB: .BYTE 
$ERMAX: .BYTE 
$ERRPC: .WORD 
$GDADR: .WORD 
$BDADR: .WORD 
$GDDAT: .WORD 
$BDDAT: .WORD 

. WORD 

. WORD 
$AUTOB: .BYTE 
$INTAG: .BYTE 

. WORD 
SWR: . WORD 
DISPLAY: .WORD 
$TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
$NULL: .BYTE 
$FILLS: .SYTE 
$FILLC: .BYTE 
$TPFLG: .BYTE 
.REPT 2 
$TMPO: .WORD 
$TMPi: .WORD 
$TIMES: 0 
$ESCAPE:0 
$BELL: .ASCIZ 
$QUES: .ASCII 
$CRLF: .ASCII 
$LF: ASCIZ 


;*THIS TABLE CONTAINS 
;*USED IN THE PROGRAM 


oooooooooorococ“9noc“eco 


DSWR 
DDISP 


oo KRM 
on” 


<207><377><377> 
42/ 
<15> 


<12> 


VARIOUS COMMON STORAGE LOCATIONS 


;;START OF COMMON TAGS 
;;CONTAINS THE TEST NUMBER 
ERROR 


; ;CONT LAG 

;;CONTAINS SUBTEST ITERATION COUNT 
;;CONTAINS SCOPE LOOP ADDRESS 

33C SCOPE RETURN ERRORS 
;;CONTAINS TOTAL ERRORS DETECTED 

33C ITEM CONTROL BYTE 

33C MAX. ERRORS PER T 

; CONTAINS PC OF LAST ERROR INSTRUCTION 
33C ADDRESS OF ‘GOOD’ 

33C OF ‘BAD’ DATA 


;;CONTAINS ‘BAD’ DATA 
; sRESERVED--NOT TO BE USED 


; ;AUTOMATIC MODE INDICATOR 
; INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
;;ADDRESS OF DISPLAY REGISTER 
;;1TY KBD STATUS 

TY KBD BUFFER 
;;TTY PRINTER STATUS REG. ADDRESS 

PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARAC FOR 

;;CONTAINS @ OF FILLER CHARACTERS 
. AFTER A “L FEED” 

;: "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 


;;USER DEFINED 

;;USER DEFINED 

;;MAX. NUMBER OF ITERATIONS 
; sESCAPE ERROR ADDRESS 
;;CODE FOR BELL 


; QUESTION MARK 
; ;CARRIAGE RETURN 


; sel 
5 RRERARARREEEERSSERERREREESESES RARER EESESSESERERES ERE EES SES ESE ES 
.SBTT 


ABL 
epee cara ne namcmaemanmmuuuammaanaae et 
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SEQ 0018 
APT MAILBOX-ETABLE 
001216 000000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
001220 SETABLE: ; APT ENVIRONMENT TABLE 
1220 000 SENV: .BYTE AENV  ;;ENVIRONMENT BYTE 
001221 000 SENVM: (BYTE AENVM ;;ENVIRONMENT MODE BI 
1222 000000 $SWREG: ASWREG ;;APT SWITCH REGISTER 
001224 000000 SUSWR: .WORD AUSWR  ;; TCHES 
001226 000000 $CPUOP: .WORD  ACPUOP Lie TYPE , OPTIONS 
* TS 15-11=CPU TYPE 
; 11/04=01, 11/05=02, 11/20=03, 11/40=04,11/45=05 
;# 11/70=06 ,PDQ@=07,Q=10 
— BIT 10=REAL TIME CLOCK 
i BIT Sef LOATING POINT PROCESSOR 
0012 000 iMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
001231 000 $MTYP1: .BYTE AMTYP1 igttet. TYPE ,BLK#i 
we “TYPE BYTE --  CHIGH BYTE) 
;* CORE=001 
:* 300 NSEC BIPOLAR=002 
* NSEC MOS=003 
001232 000000 iMADR1: .WORD AMADR1 ;;HIGH ADDRESS, BLK@1 
is MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
1234 000 MAMS2: .BYTE AMAMS2 ;;HIGH M.S. BYTE 
001235 000 SMTYP2: _BYTE AMTYP2 ;;MEM. TYPE, BLKé2 
1236 000000 $MADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS, 
001240 000 $MAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYTE 
001241 000 SMTYP3: BYTE AMTYP3 ;;MEM.TYPE,BLKO3 
1242 000000 $MADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS,BLK¢ 
001244 000 $MAMS4: |BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
001245 000 SMTYP4: |BYTE AMTYP4 ;;MEM. TYPE, BLKO4 
1246 000000 SMADR4: [WORD AMADR4 ;;MEM.LAST ADDRESS, BLKO4 
001250 000000 $VECT1: _WORD AVECT1 ;;INTERRUPT VECTOR@1,.BUS PRIORITY#1 
001252 000000 SVECT2: “WORD AVECT2 ;; INTERRUPT VECTOR@2BUS PRIORITY#2 
001254 000000 SBASE: “WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001256 000000 $DEVM: .WORD ADEVM ;;DEVICE 
001260 000000 $CDWi: .WORD ACDW1 ;; DESCRIPTION WORD#1 
001262 000000 $CDW2: “WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
001264 000000 $0DWO: [WORD ADOWO  ;;DEVICE DESCRIPTOR WORDGO 
1266 000000 $DDWi: .WORD ADOWL ;;DEVICE DESCRIPTOR WORD#1 
001270 000000 $DDW2: .WORD ADDW2 ;: DE WORD#2 
001272 000000 $00W3: - WORD ADDW3  ;;DEVICE OR WORDE3 
001274 000000 $D0W4: ADDW4 ;;DEVICE TOR WORDS4 
001276 000000 $DDWS: WORD ADOWS  ;;DEVICE DESCRIPTOR WORDeS 
001 000000 $D0W6: .WORD ADDOW6 ;;DEVI SCRIPTOR 
001302 000000 $00''7: WORD ADOW7  ;;DEVICE DESCRIPTOR WORD?7 
001304 000000 $00W8: WORD ADOWS  ;;DEVICE DESCRIPTOR WORD#S 
001306 000000 $00W9: WORD ADDW9 ;;DEVICE DESCRIPTOR WORDG9 
001310 000000 $DDWi0: .WORD ADDWiO ;;DEVICE DESCRIPTOR WORD#10 
1312 000000 $DDWil: .WORD ADDWi1 ;;DEVI OR WORD@11 
001314 000000 $DDW12: .WORD ADOWL2 ; DEVICE DE WORD#12 
001316 000000 $D0W13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORD#13 
1320 000000 $00W14: .WORD ADDWI4 ;;DEVICE DESCRIPTOR WORD#14 
001322 000000 "WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#15 
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.SBTTL _ERROR POINTER TABLE 

:#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:&#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;#LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN We lee IS PERTINENT. 


; #NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA 
: #NOTE2 : FACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;* EM ;;POINTS TO ERROR MESSAGE 
.* DH ;;POINTS TO THE DATA HEADER 
7* DT ;;POINTS TO THE DATA 
;* DF ;;POINTS TO THE DATA FORMAT 
$ERRTB: 
_SBTTL ERROR DEFINITIONS 
;ITEM 1 
EM1 ;CPU ERROR 
OH1 sTEST #, ERROR PC 
oT! ; $TMP1, $ERRPC 
ITEM 2 
EM2 ;MMU ERROR 
DH1 ;TEST #, ERROR PC 
pT ; $TMP1, $ERRPC 
sITEM 3 
EM3 ;FPP ERROR 
DH1 -TEST @, ERROR PC 
oT! ; $TMP1, $ERRPC 
sITEM 4 
EM4 SERROR IN READ-WRITE BITS OF CCR 
DH4 TEST é EXPECTED DATA, RECEIVED DATA 
pT4 1 tennbc Rl 
sITEM 5 
EMS ; FORCE NISs WRITES TO CACHE 
DHS sTEST 3 HIT/MISS. DATA IN CACHE, DATA IN MEMORY 
OTS ;$ 1 teRRPC Re $GDDAT 
s ITEM 6 
EM6 ;FORCE MISS WRITE INVALIDATES CACHE 
OHS TEST ¢ HITMISS, DATA IN CACHE, DATA IN MEMORY 
OTS 1 iernec. Re $GDDAT 
sITEM 7 
EM7 UNEXPECTED P PARITY INTERRUPT 
DH7 sTEST @, ADDRESS ACCESSED, MSER 
O17 See SERRPC. $BDADR .MSER 
;ITEM 10 
EM10 ; TAG PARITY ERROR 
OH? TEST e ADDRESS ACCESSED, MSER 
O17 1 ieRnec, $BDADR ,MSER 
;ITEM 11 
EM11 ;DATA PARITY ERROR 


DH? ;TEST @, PC, ADDRESS ACCESSED, MSER 


SEQ 0019 
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SEQ 0020 


557 001430 136062 DT7 ; $TMP1, $ERRPC, $BDADR,MSER 
558 001432 000000 0 
559 ;ITEM 12 
560 001434 127317 EM12 sLOW BYTE PARITY ERROR 
561 001436 135032 OH7 TEST #, PC, ADDRESS ACCESSED, MSER 
562 001440 136062 O17 : $TMP1, * ERREC, $BDADR , MSER 
563 001442 000000 
564 ;ITEM 13 
565 001444 127345 EM13 ;HIGH BYTE PARITY ERROR 
1 135032 OH7 TEST ‘ ADDRESS ACCESSED, MSER 

567 001450 136062 DT7 1 teRRec $80 ADR, MSER 

001452 000000 
56 ;ITEM 14 
570 001454 127374 EM14 ; ERROR PATA PATH 
571 001456 134646 OH4 TEST @ EXPECTED DATA, RECEIVED DATA 
572 001460 136074 OT14 1 ternbc. $GDDAT , TSTLOC 
573 001462 000000 nia 

; 
575 001464 127417 EM15 FORCE MISS READS FROM CACHE 
576 001466 134733 DHS ‘TES! 4 HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
577 001470 136046 OTS 1" ternbc R2, Ri, $GDDAT 
578 001472 000000 
579 sITEM 16 
580 001474 127453 EM16 ;FORCE Miss READS FROM CACHE AND MISS 
581 001476 134733 DHS TEST ra HITZMISS. DATA IN CACHE, DATA IN MEMORY 
582 001500 136046 OTS 1 ternbc Re ’ $GDDAT 
583 001502 0 
584 ;ITEM 17 
585 001504 127520 EM17 ;ERROR IN TN_RECORDING HITS IN HIT/MISS 
586 001506 134646 DH4 ‘TEST @ RECEIVED DATA 
587 001510 136106 OT17 ;$ TA SERAPC. SCDOA RECDAT 
588 001512 000000 
589 ;ITEM 20 
590 001514 127564 EM20 ;WRITE BYTE ALLOCATES CACHE 
591 001516 134621 DH1 ;TEST @ 
592 001520 136026 OTi ; $TMP1, $ERRPC 
593 001522 000000 
594 ;ITEM 21 
595 001524 127617 EM21 ;WRITE BYTE HIT DOES NOT RECORD HIT 
596 001526 134621 OH sTEST #, PC 
597 001530 136026 OT1 : $TMP1,$ 
598 001532 000000 
99 ;ITEM 22 
600 001534 127662 EM22 sBYTES REVERSED ON WRITE CYCLES 
601 001536 134621 DH1 ;TEST @ 
602 001540 136026 OT1 : $TMP1, $ERRPC 
603 001542 000000 0 ; 
604 ;ITEM 23 
605 001544 127721 EM23 sCONDTT TONAL BYPASS DOESN'T INVALIDATE CACHE 
606 001546 134733 DHS TES! # HIT/HISS. DATA IN CACHE, DATA IN MEMORY 
607 001550 136046 OT5 s tennbc. Re $GDDAT 
608 001552 _ Pe 
; 

610 001554 127775 EM24 ;HITS RECORDED AFTER ELUSHING CACHE 
611 001556 135105 OH24 sTEST @, PC, NUMBER OF HITS 
612 001560 136120 OT24 ; $TMP1, $ERRPC,R3 
613 001562 000000 0 





614 

615 001564 
616 001566 
617 001570 
ott 001572 
620 001574 
621 001576 
622 001600 
623 001602 
624 

625 001604 
626 001606 
627 001610 
628 001612 
629 

630 001614 
631 001616 
632 001620 
633 001622 
634 

635 001624 
636 626 
637 001630 
638 001632 


66 
670 001714 


130040 
134621 
136026 
000000 


;I1TEM 25 
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;BYPASS _ INVALIDATE CACHE 


;TEST @ 
; $TMP1, $ERRPC 


;MSER DOES NOT CLEAR ON WRITE REFERENCE 
sTEST #, PC 
: $TMP1, $ERRPC 
FT he ERROR DON DON’ T aigniss MISS 

1" ternec. MPSER,RE 
;PARITY ERROR, DON DON’T SET MSER WITH CCR<7>=0 
TEST @, HIT/MISS 
; $TMP1, $ERRPC ERNPC HSER. RS. 0 
;PARITY ERROR IGNORED 
37 PC 
; $TMP1, $ERRPC 


;PARITY ERROR IGNORED ON LOW BYTE 
 $THP1, $ERRPC 


:PARITY ERROR IGNORED ON HIGH BYTE 
sTEST #, PC 
: $TMP1, $ERRPC 


PARITY ABORT LOGIC DOESN'T WORK 
sTEST #, PC 
: $TMP2, SERRPC 


;MSER NOT SET PROPERLY 
‘TEST @, PC, EXPECTED DATA, RECEIVED DATA 
' $TMP1, $ERRPC, $GDDAT ,MSER, 0 


PARITY INTERRUPT DOESN’ T WORK 
TEST @ 

ee ee1 SERRPC 

:NXM AND PARITY ABORT DIN’ T HAPPEN 


' $TMP1, $ERRPC 


;PARITY ABORT NOT BLOCKED BY NXM TRAP 


SEQ 0021 
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SEQ 0022 
ERROR DEFINITIONS 
671 001716 134621 DH1 ;TEST #, PC 
672 001720 136026 OT1 ;$TMP1, $ERRPC 
673 001722 000000 0 
674 sITEM 41 
675 001724 130652 EM41 ;MULTI- PROCES SSOR HOOK INSTRUCTION DOESN‘ T CAUSE MISS 
676 001726 135214 OH41 ‘TEST @, INSTRUCT ION OPCODE 
77 001730 136154 OT41 eo SERRPC. $BDD 
678 001732 000000 0 
ITEM 42 
680 001734 130736 2 ERROR IN PARITY LOGIC 
681 001736 134621 OH1 STEST #, PC 
682 001740 136026 OT1 ; $TMPL, 
683 001742 000000 
ITEM 43 
685 001744 130764 EM4 ;ERROR IN CACHE DATA RAMS 
686 001746 135265 DH43 ‘TEST #, PC, EXPECTED DATA, RECEIVED DATA, CACHE LOCATION 
687 001750 136164 0T43 : $TMP1, $ERRPC,R1,RECDAT , $BDADR 
001752 
ITEM 44 
690 001754 131015 sERROR IN NXM IN STANDALONE MODE 
691 001756 134621 OH1 sTEST @, 
692 001760 136026 OT1 ; $TMP1, $ERRPC 
693 001762 000000 ten iil 
695 001764 131055 EM4 sHITS NOT RECORDED PROPERLY THRU HIT/MISS 
696 001766 134621 OH1 ; TEST 
697 001770 1 DT1 ;$TMP1, $ERRPC 
698 001 0 
699 ;ITEM 46 
700 001774 131137 sHIT RECORDED FOR A LOCATION NOT IN CACHE 
701 001776 135365 DH47 TEST 2 COTTE OCATI ON A CESSED 
702 002000 136200 0147 1 ternec. KIPAR6 
703 002002 0 
704 sITEM 47 
131227 EM47 ;MISS RE RECORDED FOR A LOCATION THAT SHOULD BE IN CACHE 
135365 DH47 TEST * LOCATION ACCESSED 
707 002010 136200 0147 1 teRnPc. KIPAR6, $BDADR 
002012 0 
;ITEM 50 
710 002014 131314 EMSO ERROR INT TAG STORE 
711 002016 135365 OH47 TEST 8 ADDRESS 
12 002020 136212 DT50 steric Ra 8 Ri, $BDADR 
713 002022 000000 0 
714 ;ITEM 51 
715 002024 131337 EMS1 PCR READ-WRITE BITS 
716 002026 134646 OH4 TEST $ CTED DATA, RECEIVED DATA 
717 002030 136224 OT51 1 ternec $GDDAT ,PCR 
718 002032 000000 0 
719 ;ITEM 52 
720 002034 131371 ;ERROR IN BCSR READ-WRITE BITS 
1 002036 134646 TEST a c, EXPECT ED DATA, RECEIVED DATA 
002040 136236 0T52 1 teRROC. $GOD BCSR 
723 002042 
;ITEM 53 
725 002044 131427 ;RESET DOESN'T CLEAR BCSR<4> 
002046 134621 OH1 sTEST @, PC 
727 002050 1 OT1 : $TMP1, $ERRPC 





Ke 
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SEQ 0023 


728 002052 000000 
729 ;I1TEM 54 . 
002054 131463 ;CHECKSUM ERROR IN 16-BIT ROM 
731 002056 134621 OH1 STEST #, PC 
002060 136026 OT1 : $TMP1, $ERRPC 
— ITeH SS 
735 002064 131521 EMSS ;CHCKSUM ERROR IN 8-BIT ROM 
002066 1 OHi STEST #, PC 
737 002070 OT1 : $TMP1, $ERRPC 
738 002072 0 
ITEM 56 
002074 131555 EMS6 : TIMEOUT READING LKS 
741 002076 134621 OHi TEST #, PC 
002100 1 OT1 ; $TMP1, $ERRPC 
743 002102 0 
ITEM 57 
745 002104 131601 EMS7 ;LKS<07> DOES NOT BECOME 1 
002106 134621 OHi sTEST #, PC 
747 002110 136026 OT1 :$TMPL, $ 
748 002112 000000 ain y 
750 002114 131633 EM60 ;WRITE REFERENCE DOESN’T CLEAR LKS<07> 
751 002116 134621 OH1 sTEST #, PC 
002 1 OT1 ; $TMP1, $ERRPC 
002122 0 
;ITEM 61 
755 002124 131701 EM61 ;ILLEGAL LKS INTERRUPTS 
002 134621 DH1 sTEST @, PC 
757 002130 136026 OT1 ;$TMP1, $ERRPC 
002132 000000 aie go" 
i 
60 002134 131730 EM62 ;PROCESSOR INTERRUPTS DON’T CLEAR LKS<07> 
761 002136 134621 OH1 STEST #, PC 
002140 136026 OT1 : $TMP1, $ERRPC 
763 002142 000000 naa e 
765 002144 132001 EM63 :LKS READY DOESN’T GO LOW 
002146 134621 OH1 STEST @, PC 
767 002150 136026 OT ; $TMP1, SERRPC 
002152 009000 ai o 
; 
770 002154 132032 EM64 ;WRONG NUMBER OF LKS INTERRUPTS 
771 002156 134621 OH1 TEST #, PC 
002160 136026 OT1 ; $TMP1, $ERRPC 
002162 000000 ai e 
775 002164 132071 EM65 :LKS INTERRUPTS HAPPEN AT WRONG PRIORITY 
776 002166 135452 DH65 sTEST #, PC, PRIORITY 
777 002170 136262 DT65 ; $TMP1, $ERRPC, $GDDAT 
778 002172 000000 0 
s ITEM 66 
002174 132141 ;BCSR<12> DOES NOT DISABLES LKS 
781 002176 1 OH1 TEST #, PC 
002200 1 OT1 ; $TMP1, $ERRPC 
002202 0 


;ITEM 67 
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EM67 
DH1 
OT1 


;ITEM 70 


DT1i 
;ITEM 71 


SEQ 0024 


se e<i5> DOESN’ T SET LKS<06> 
‘TEST @ PC 
;$TMP1, $ERRPC 


a ¢ DOESN'T SET LKS<7> 
;TEST @, PC 
; $TMP1, $ERRPC 


;RESET a ' CLEAR LKS<06> 
;TEST @ PC 
;$TMP1 1, $ERRPC 


; TIMEOUT READING SLU REGISTERS 
sTEST #, ADDRESS FAILED 
Temi SERRPC. $BDDAT 


;XMIT READY DIDN‘T GO LOW 
sTEST #, PC 
;$TMP1, 


— ee BECOME 1 
: $THP1, $ERRPC 


;WRONG CHARACTER RECEIVED 
;TEST @. EXPECTED DATA, RECEIVED DATA 
: $TMP1, SEPRPC, $GDDAT , SBDDAT 






:RCSR<OT> shot CLEARED AFTER READING RBUF 
+ Fep 1 SERRPC 
sXCSR«O7> Nor SET ON RESET 

: $TMP1, SERRPC 

;RCSR<07> Nor CLEARED ON RESET 
‘ $TMP1, $ERRPC 





SLU INTERRUPTS HAPPEN AT 4 
; TEST 
: $TMP1 1 ternec 


;RESET DOES NOT CLEAR XCSR<6> AND RSCR<6> 
sTEST #, PC 





Me 
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002340 
B48 002342 
BA4 
845 002344 
846 002346 
847 002350 
848 002352 


850 002 
851 002356 


855 002364 
856 002366 
857 002370 


[ 


: 
: 


SRRRTERRES 
O@ONOUS Ur 
58 
o 


OODemoce 
SO IRE 


870 002414 
871 002416 
002420 
873 002422 
002424 
876 002426 
002430 
878 002432 
002434 
881 002436 
002440 
883 002442 
884 
885 002444 
886 002446 
887 002450 
885 002452 
890 002454 
002456 
002460 
002462 
002464 
002466 
002470 
002472 


SSSSE38238 


362 
36304 


133315 
134646 


136272 
000000 


133373 
135562 
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; $TMP1, SERRPC 


; TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07> 


TEST #, PC 
; $TMP1, $ERRPC 


;RECEIVE INTERRUPTS DON'T CLEAR RCSR<07> 
;TEST #, PC 
; $TMP1, $ERRPC 


sBREAK CONDITION DOES NOT SET RBUF PROPERLY 
TEST ?, RBUF 
: $TMP1, $ERRPC, RBUF 


a CLEARED ON NEXT CHAR. 


‘TEST ¢ RBUF 
:$TMP1, LeRRPC’ RBUF 


sERROR IN WRITING TO XCSR<0> 
; TEST 
: $TMP1, $ERRPC 


RESET | DOES NOT CLEAR XCSR<00> 
STEST #, PC 
; $TMP1, $ERRPC 


<2 ab tee WAS NOT OVERRUN BY THE SECOND 


TEST ¢ EXPECTED DATA, RECEIVED DATA 
eee. FERREC. SGDDAT, $BDDAT 


; OVERRUN cor DOES NOT SET PROPER BITS IN RBUF 


TEST @ 
See TERREC RAUF 


;RBUF WAS NOT CLEARED ON THE NEXT CHARACTER 
STEST ¢, PC, 
; $TMP1, $ERRPC , RBUF 


;ERROR IN XCSR<2> 

;TEST #, PC 

; $TMP1, SERRPC 

;ERROR a TAG STORE FROM essa MODE 


TEST ¢ SS ACCE 
eee FERREC. SBDOAT, KIPARG,, SBDADR 


SEQ 0025 
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ERROR DEFINITIONS 


133633 
134621 
136026 
000000 


133714 
34621 


;ITEM 116 
—M116 
DH1i 
DTi 
0 

;ITEM 117 
EM1 
DH1i 
OTi 
0 

;ITEM 120 
EM120 


DH1 
DT1 


0 
;ITEM 121 
EM121 
DH1 
OT1 
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SEQ 0026 


;DMA_TAG al DOES NOT SET MSER<4> 


;TEST # 
; $TMP1, $ERRPC 


seen <i oe SET IN STANDALONE MODE 
; $TMP1, $ERRPC 


;DMA WRITE HITS DON’T INVALIDATE CACHE 
;TEST ¢ 
: $TMP1, LERRPC 


fe yg eee ON WRITE DMA HITS NOT EVERYTHING IS INVALIDATED 
; $TMP1, $ERRPC 


;READ DMA HIT IS MESSED UP 
sTEST # 
; $TMP1, $ERRPC 


s ERROR sn DMA CYCLES FROM Q22RE 
:TEST # PC 
; $TMP1, $ERRPC 


;PIRQ INTERRUPTS DON'T TAKE PRIORITY OVER @ BUS INTERRUPTS 
‘TEST #, PC 
; $TMP1, $ERRPC 


:NO POWER DOWN TRAP TO 24 OCCUR 
‘TEST @, PC 
5 $TMP1, $ERRPC 


ERROR IN INTERRUPTS FROM Q22BE 
‘TEST #, PC 
:$ — 


ERROR IN PMG COUNTER 
TEST #, PC 
; $TMP1, $ERRPC 


s UNEXPECTED TIMEOUT 
 $TMP1, $ERRPC 


;ERROR WRITING TO LKS<6> 


Bestar 
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SEQ 0027 
ERROR DEFINITIONS 
956 002626 134621 OH1 ;TEST @, PC 
957 002630 136026 OT1 : $TMP1, $ERRPC 
Sn ITEM 132 
960 002634 134510 EM132 ;MAINTENANCE REGISTER ERROR 
961 002636 134621 OHi STEST #, PC 
962 002640 OT1 ;$TMP1, $ERRPC 
963 002642 000000 
964 ;ITEM 133 
965 002644 134546 133 ; EEROM TYPE ERROR 
966 002646 134621 TEST @, PC 
967 002650 136026 OT1 ; $TMP1, $ERRPC 
968 002652 
sITEM 134 
970 002654 134567 ; ERROM WRITE/READ ERROR 
971 002656 135671 DH134 ‘TEST #, PC, ERROR COUNT, PATTERN, DATA READ, ADORESS 
972 002660 136336 0T134 : $TMP1, SERRPC, $TMPO,R3, $BDDAT, $BDADR 
—_— ‘ 
975 _SBTTL GLOBAL VARIABLES AND REGISTER NAMES 
977 ;REGISTERS FOR THE FIRST Q22BE 
978 002664 000000 CSRi: .WORD 0 ;CONTROL REGISTER 1 FOR Q22BE 
979 002666 000000 CSR2 WORD 0 ;CONTROL/STATUS REGISTER 2 
980 002670 000000 BA: WORD 0 :DMA ADDRESS FOR Q22BE 
981 002672 000000 WC: WORD 0 ;WORD COUNT REGIS 
002674 000000 DATA: .WORD 0 SDMA DATA FOR Q22BE 
983 002676 000000 VQ@BE1: .WORD 0 ;ADDRESS OF VECTOR FOR Q22BE 
002700 000000 V@PR1: .WORD 0 ;PRIORITY 
985 002702 000000 SIMGOA: .WORD 0 : SIMULTANEUOS GO ADDRESS REGISTER 
REGISTERS FOR THE SECOND Q22BE 
002704 000000 éspi2: .WORD 0 ,CONTROL REGISTER 1 FOR Q22B€ 
989 002706 000000 CSR22: .WORD 0 ;CONTROL/STATUS REGISTER 2 
990 002710 000000 BA2:  .WORD 0 ;DMA ADDRESS FOR Q22BE 
991 002712 000000 wc2: .WORD 0 ; WORD STER 
002714 000000 DATA2: .WORD 0 ;DMA DATA FOR Q22BE 
002716 000000 ‘WORD 0 SADDRESS OF VECTOR FOR Q22BE 
002 000000 VQ@PR2: .WORD 0 ;PRIORITY 
002722 000000 LKSFL: .WORD 0 
997 002724 000000 ToHS: “WORD 0 ;ACTUAL CHECKSUM 
002726 000000 SAVPCR: .WORD 0 
999 002730 000000 "WORD 0 
002740 22740 
1001 002740 WORD 0 
902 908742 -BLKW 15. ;RESERVED FOR BLOCK MODE TRANSFER 
1004 903002 000032 000012 000006 @22EN: .WORD 32,12,6.2 ;PRIORITY 7-4 FOR Q22BE 
ee 
1007 177524 BCR= 177524 ;BOOT/DIAGNOSTICS CONFIGURATION 
1008 177524 BDR= 177524 ;BOOT/DIAGNOSTICS DISPLAY 
i 177520 BCSR= 177520 ;BOOT/DIAGNOSTICS STATUS 
CCR= 177746 CONTROL REGISTER 


1011 177752 HITMIS= 177752 


‘MIT OR MISS REGISTER 
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GLOBAL VARIABLES AND REGISTER NAMES 


Ks 177734 ;UNIBUS CONFIGURATION REGISTER 
Laos 177546 ;CLOCK STATUS REGISTER 
. 177750 ; REGISTER 
MSER= 177744 ;MEMORY SYSTEM 
PCR= 177522 ;PAGE CONTROL REGISTER 
PIR= 17777e ;PROGRAM INT T REQUEST 
° 177562 ;RECEIVER DATA 
RCSR= 177560 ;sRECEIVER STATUS REGISTER 
° 177566 ; TRANSMITTER DATA 
XCSR= 177564 ; TRANSMITTER STATUS REGISTER 
CPEREG= 177766 ;CPU ERROR REGISTER 
” ;MEMORY MANAGEMENT REG. 0 
MMR1=SR1 ;MEMORY MANAGEMENT REG. 1 
=SRe ; MANAGEMENT REG. 2 
3=SR3 ; MANAGEMENT REG. 3 
POLY= 120001 


.SBTTL GLOBAL DATA SECTION 


;* THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
: IN MORE THAN ONE TEST. 
ee 


; THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE VECTOR DATA 
;WHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
;FROM THE Agee RESPONCE . 


SLOCOO: .WORD 

SLOCO1: .WORD 90 

; THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA. 
LOWADD: . Rb LOW ADDRESS FOR RAM TESTS 


;STORES BIT TEST 
;STORES RECIEVED DATA FOR BIT TESTS 


;ERROR INDICATOR FOR FLOATING POINT TESTS 


WORD 0 
: .WORD 0 ;STORES GOOD SS FOR RAM TESTS 
: .WORD 0 ; CONTAINS TOTAL NO. OF EEROM 
TSTADD: .WORD 0 ;ADDRESS STORE FOR RAM TESTS 
; .WORD 0 ;ADDRESS STORE TEST 
FLAG: .WORD 0 ;USED TO STORE “FLAG” CONDI 
CCHPAS: .WORD 0 ; flag-counter for control of Cache subtests 
EEPAS: .WORD 0 ; flag-counter for control of 
SAVSUP: .WORD 0 ;USED TO STORE SUPERVISOR STACK VALUE 
SAVUSE: .WORD 0 ;USED TO STORE USER STACK VALUE 
SAVMRO: .WORD 0 ;USED TO STORE MMU STATUS REGISTER © DATA 
SAVMRi: .WORD 0 ; STORE MMU STATUS REGISTER 1 DATA 
SAVMRe: .WORD 0 ;USED TO STORE MMU STATUS REGISTER 2 DATA 
SAVSWR: .WORD 0 ; SAVE SFTWRE SWTCH REG DURING TEST 
FLOAT: .BLKW 4 ;USED TO STORE VALUES FOR MMW TESTS 
FLO: BLKW 4 ;USED TO STORE VALUES FOR MMU TESTS 
SEQ: .WORD O ;STORES SEQUENCE NUMBER FOR JUMP TESTS 
SPS: -WORD O ;STORES STACK POINTER FOR JUMP TESTS 
SPSJ: .WORD 0 ;STORES STACK POINTER FOR JUMP TESTS 
BTEXP: .BLKW 4 DURING TESTS 
: .BLKW 4 
-WORD O 
.BLKW 4 


;RECIEVED FLOATING POINT EXCEPTION CODE 


SEQ 0028 
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SEQ 0029 
GLOBAL DATA SECTION 

1069 003132 RECST: .BLKW 4 ;sRECIEVED FLOATING POINT STAT 
pda 003142 RECDST: .BLKW 4 ;DESTINATION ADDRESS FOR FLOATING POINT TESTS 
1072 ; THESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 
1073 003152 000000 ALLCTR: .WORD OQ 

10s 003154 000000 LOOPIN: .WORD 0 

1076 ;SOME MORE TEMPORARY STORAGE FOR RAM TESTS 

1077 003156 000000 SAVPOS: .WORD 0 ;STORES TEMPORARY BIT POSITIONS FOR RAM TESTS 
pda 003160 000000 MASK:  .WORD 0 ; STORES BIT MASK FOR ERROR ISOLATION 
10 ua. IS IT. THE PROGRAM TEST LOCATION! !!!iiiritesieiest 
1081 003162 000000 TSTLOC: 

on 003164 20. 

108 ;FPP REGISTER DEFINITIONS 

1084 000000 ACO= #0 

1085 000001 ACi= #1 

1086 000002 = #2 

1087 000003 AC3= #3 

1088 000004 AC4= #4 

1089 000005 ACS= #5 

1090 000006 = 86 
ees 000007 AC7= #7 
ina ;FPP INTERRUPT VECTOR 
1095 000244 FPVEC=244 
1096 
1097 
1098 001000 STBOT= 1000 
1099 
1100 
1102 003234 123456 TAB1:  .WORD 123456 
1103 003236 000000 . WORD 
1104 003240 000000 -WORD 0 
1105 003242 000001 -WORD 1 
1106 055555 TAB2: .WORD 0555 
1107 003246 177777 -WORD 177777 
1108 00 145671 -WORD 145671 
1109 003252 100000 .WORD 100000 
1110 003254 003000 TAB3:  .WORD 
1111 003256 123456 -WORD 123456 
1112 003260 000000 . WORD 
1113 003262 000000 . WORD 

1114 003264 055555 TAB4: .WORD 55555 
1115 003266 177777 -WORD -1 

1116 003270 000000 -WORD 0 

1117 003272 000000 -WORD 0 

1118 po Lh 043243 TABS: .WORD 43245 

119 76 000000 WORD 0 

120 003300 000000 -WORD 0 

1121 003302 000000 .WORD 0 

1 003304 162400 TABSA: .WORD 162400 

003306 000000 .WORD 0 

1124 003310 000000 .WORD 0 

1125 003312 000000 -WORD 0 

1126 003314 000000 TAB6: .WORD 0 





* 
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GLOBAL DATA SECTION 
1127 003316 900000 
128 


003000 


003000 


TAB6A: 


TAB?: 


TABS : 


TABS: 
TAB1O: 


TAB11: 


TABLIA: 


TABl2: 


TABI3: 


TAB138: 
TABi4: 


TABiS: 


TAB16: 


TABI7: 


TAB18: 


TAB21: 
TAB22: 


§ SSSESSSSSSSSSERREES 5555 2 SSSS5555 SSSSSSERRE000985 


so 


.0,0,0 


"9 


30000, 3000,2,0 
16100,0,0,1 


100200,0,0,0 
100400,0,0,0 


SEQ 0030 


F 3 
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SEQ 0031 
GLOBAL DATA SECTION 
003532 000000 
1179 003554 000200 000000 000000 TAB23: .WORD 200,0,0,1 
1180 003544 062400 000000 000000 TAB24: .WORD 62400,0,0,0 
003552 000000 
1181 003554 001100 000000 000000 TAB25: .WORD 1100,0,0,0 
1183 003574 001000 000000 000000 TAB27: .WORD 1000,0,0,0 
1185 003614 010100 000000 000000 TAB29: .WORD 10100,0,0,0 
1186 003624 930100 000000 002000 TAB29A: .WORD 10100,0,2000,0 
1187 — 
1188 903634 000500 00000 000000 +AB30: .WORD 500,0,0,0 
1189 003644 900400 000000 000000 TAB31: .WORD 100400,0,0,0 
003652 000000 
1190 003654 016000 000000 000000 TAB32: .WORD 16000,0,0,0 
1191 003664 011600 000000 000000 TAB33: .WORD 11600,0,0,0 
1192 003674 900640 000000 000000 TAB34: .WORD 640,0,0,0 
003702 000000 
1193 003704 077600 900000 000000 TAB40: .WORD 77600,0,0,0 
1194 003714 100200 000000 000000 TAB4i: .WORD 100200,0,0,1 
1195 003724 000340 000000 000000 TAB42: .WORD 340,0,0,0 
003732 000000 
003742 177776 
1197 003744 000577 177777 177777 «TAB4S: .WORD 577,-1,-1,-1 
1199 003764 173737 124242 052525 TAB47: .WORD 173737,124242,052525,12346 
1200 003774 000000 052525 TAB47A: .WORD 0,0,052525,12346 
004002 012346 
1201 004004 173737 124242 000000 TAB48: .WORD 173737,124242,0,0 
004012 000000 
1202 004014 000600 000000 000000 TAB49: .WORD 600,0,0,0 
004022 000000 
1204 004024 START: 
; LCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY 
004024 005737 004112 ENTSAV: TST SAV30 :; FIRST TIME THROUGH ? 
004030 001034 VMKOR >; BRANCH IF BEEN HERE ALREADY 
004032 032737 000040 000052 BIT 868115, a¢52 :; ARE WE IN UFD MODE ? 
004040 001430 BEQ VMKOR ;; LEAVE IF NOT 
004042 012737 177777 004116 MOV $-1, UFDFLG >; SET UFD FLAG 
004050 032737 000100 000052 BIT @B116, aeS2 ;; ARE WE IN QUIET MODE ? 
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SEQ 0032 
GLOBAL DATA SECTION 

004056 001403 BEQ 1$ ;; BR_IF NOT 
004060 012737 177777 004120 MOV #-1, UQUIET | oa SET QUIET MODE 

104042 1$: EMT 42 ; GET ADDRESS OF XXDP DCA TABLE 
004070 005060 000042 CLR 42(RO) XXDP + SERR” 
004074 013737 000030 004112 MOV 30, SAV30 + SAVE EMULATOR ADDRESS 
004102 013737 000032 004114 MOV 32, SAV32 :; SAVE EMULATOR PRIORITY LEVEL 
004110 000404 BR VMKOR ;; GET AROUND TAG AREA 
004112 000000 SAV30: .WORD 0 ;; PUT EMULATOR INFO HERE 
004114 000000 SAV32: .WORD 0 33 PUT PRIORITY ae HERE 
004116 000000 UFDFLG: .WORD 0 ;; USER FRIENDLY aie LAG 
ys ot pe 000000 UQUIET: .WORD 0 ;; UFD QUIET MODE F 


OR: 
5 ERaEEAAESESSESSESERESESSESESESSS > CESSES ESEEEAEESESEEESSERESESESESESSEESESES 








1205 004122 i$: 
-SBTTL INITIALIZE THE COMMON TAG _ 
;;CLEAR THE COMMON TAGS CecHT A> ANZA 
004122 012706 001100 MOV S$CMTAG RE _;FIRST LOCATION TO BE CLEARED 
004126 005026 CLR (R6)+ > CLEAR MEMORY LOCATION 
004130 022706 001140 CMP SSWR,R6 ; ;DONE? 
004134 001374 BNE Pury ;;LOOP BACK IF NO 
004136 012706 001100 MOV 8STACK ;SETUP THE STACK POINTER 
; sINITIALIZE A FEW VECTORS 
004142 012737 140474 000020 MOV S$SCOPE,@@IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
004150 012737 MOV $340, ae1 *2 ;;LEVEL 7 
004156 012737 140776 000030 MOV SSERROR @GEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
164 012737 000032 MOV $340, @8EMTVEC+2 ;;LEVEL 7 
004172 012737 143522 000034 MOV STRAP. @BTRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
737 000036 MOV $340, 08 C+2; 
012737 143604 MOV 8$PWRON, B@PWRVEC ;;POWER FAILURE VECTOR 
004214 012737 MOV $340, Q0PWRVEC+2 ;;LEVEL 7 
013737 1 140400 MOV T,$E0PCT so: END-OF - 
004230 005037 001164 CLR ; ;INITIALIZE NUMBER OF ITERATIONS 
004234 005037 001166 CLR ;:CLEAR THE ESCAPE ON 
004240 112737 001115 MOVB ; ;ALLOW ONE ERROR PER TEST 
004246 012737 MOV ;;INITIALIZE THE LOOP ADDRESS FOR SCOPE 
004254 012737 004254 001110 MOV : ; THE ERROR LOOP ADDRESS 
,;SIZE FOR A HARDWARE SWITCH necfisen IF NOT FOUND OR IT IS 
»:EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
004262 013746 000004 MOV C,-(SP) ;;SAVE ERROR VECTOR 
004266 012 004322 MOV $  AERRVEC i SET UP ERROR VE 
004274 O12 177570 001140 MOV @DSWR, SUR ; sSETUP A HARDWARE SWICH REGISTER 
012737 177570 001142 MOV SODISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
004310 022 177777 174622 CMP $-1, aSWR ;3TRY TO REFERENCE HARDWARE 
004316 001012 BNE 30002$ + BR IF NO TIMEOUT TRAP OC 
; :AND HARDWARE SWR IS NOT = -1 
004320 000403 BR 30001$ ‘;BRANCH IF NO TIMEOUT 
004322 012716 004330 30000: MOV 830001$,.(SP)  ;3;SET UP FOR TRAP RETURN 
004326 000002 RTI 
004330 012737 000176 001140 30001%: MOV @SWREG, SWR ;;POINT TO SOFTWARE SWR 
004336 012737 000174 001142 MOV @DISPREG , DISPLAY 
004344 012637 000004 30002$: MOV SP)+, QGERRVEC ;;RESTORE ERROR VECTOR 
004350 37 001206 CLR CLEAR PASS COUNT 
004354 132737 001221 BITB #§ @APTSIZE,$ENVM ;;TEST USER SIZE UNDER APT 
004362 001403 30003$ :;YES,USE NON-AFT SWITCH 
004364 012737 001222 001140 MOV 8$SWREG , SWR ;;NO,USE APT SWITCH REGISTER 


004372 30003$ : 
1206 004372 013737 004116 004120 MOV UFDFLG,UQUIET  ;ABORT IN UFD ON ERROR 
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INITIALIZE THE COMMON TAGS 


SEQ 0033 


1207 004400 012737 137542 000004 MOV STOUT, @@ERRVEC ;POINT TO all ROUTINE 
004406 012737 000340 000006 MOV $340 , APERRVEC+2 SAT PRIORITY 7 
1209 004414 012737 137012 000114 MOV @RAMPAR , 8¢114 ;POINT PARITY ABORT 
1210 004422 012737 000 000116 MOV $340 ,a¢11 ;AT PRIORITY? 
1211 004430 012737 137724 000250 MOV @MMUTRP , ;POINT MMU TRAP VECTOR 
1212 004436 012737 000 000252 MOV $340 ,d¢252 
1213 005037 177766 CLR a#177766 ‘CLEAR CPU ERROR REGISTER 
1214 004450 032737 000100 000052 BIT #BITO6, ;IN UFD QUIET MODE ? 
1215 004456 001130 BNE ooP ;IF SO, SKIP PRINTOUT 
1216 012701 004472 MOV #.+12,R1 ; STORE LOCATION POINTER 
1217 012711 177777 MOV #-1,(R1) ;MAKE SURE TO PRINT NOT ONLY AT FIRST TIME 
1218 .SB(TL TYPE PROGRAM NAME 
;; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
004470 005227 177777 INC #-1 « FIRST TIME? 
004474 001052 BNE 30004 $ IF NO 
004476 022737 140440 000042 CMP #$ENDAD , 8042  SACT- 11? 
004504 001446 BEQ ret! ;;6R IF YES 
004506 104401 004554 TYPE iinet ASCIZ STRING 
.SBTTL GET vaLue For FOR SOFTWARE REGIST 
004512 005737 000042 TST ;;ARE WE RUNNING UNDER XXDP/ACT? 
004516 001012 BNE 50006 : BRANCH IF YES 
004520 123727 001220 000001 CMPB SENV, #1 ;ARE WE RUNNING UNDER APT? 
004526 001406 BEQ 30006 $ ; BRANCH IF YES 
004530 023727 001140 000176 CMP SWR 33 SWITCH REG SELECTED? 
004536 001005 BNE 30007$ $3 
004540 104406 GTSWR ;;GET SOFT-SWR SETTINGS 
004542 000403 BR 30007$ 
oof nn 112737 000001 001134 as of MOVB #1, $AUTOB ;;SET AUTO-MODE INDICATOR 
004552 000423 BR 30004 $ us OVER THE ASCIZ 
;30005$: .ASCIZ <CRLF># 11-8 CPU DIAGNOSTIC - COKDAFO #<CRLF> 
004622 $6004$: 
1219 004622 NOP ; debug 8 
1220 004624 123727 001220 000001 CMPB $ENV, #1 ; running unde r APT? 
1221 004632 1020 BNE 20$ ; defaul no-APT initialization 
1222 004634 013700 001224 MOV $USWR ,RO ; work copy pass culation 
1223 004640 00 TST RO ; if = 0 default value 
1224 004642 001420 BEQ 25$ ; setup default value 
1226 004644 042700 000017 BIC #17,RO ; clear low order nibble 
1227 004650 000241 CLC ; assure no Nowns 
004652 006000 ROR RO ; 4 rotates = divide 
004654 006000 ROR RO ; 16 (=pess time) 
1230 004656 006000 ROR RO ; is erea subroutined 
1231 004660 006000 ROR RO ; with general 
1232 004662 005700 TST RO ; divide, this to 
ize 004664 001413 BEQ 30$ ; determine skip altogether 
1235 004666 010037 003032 MOV RO,CCHPAS ;residue = no. of desired passes 
1236 004672 000413 BR 35$ ; continue on 
1237 ps os Le ps HEL 177777 003032 20$: One wns ; largest A. no apt mode?? 
1239 's oe 012737 000001 003032 253: ny 3 —- ; normal default = 1 
1241 004714 012737 000000 003032 30%: MOV #0, CCHPAS ; no cache tests included 
004722 35$: nop ; aid 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


SEQ 0034 


1244 004724 032737 000200 000052 BIT #81107, ae52 ;UFD MODE? 
1245 004732 001002 BNE LOOP ;IF YES, BRANCH 
1246 004734 004737 137070 JSR PC ,Q22SIZ :SIZE FOR Q22BE 
1247 004740 LOOP: 
1248 -DSABLE 
s kaaeEARaAEASERAAERAERSESEESASSRERERAERERERESEEEESEAESESERESE SESE SESE 
004740 000004 1&T1: SCOPE 
1251 “SBTTL BASE INSTRUCTION SET TESTS 
1252 5 Raa AEAREESEAEEREEERESESESE EERE ESE AERERESESESEEEEEEES EEE SESE S EEE SEES ESE 
1253 5 ERAEREEEERASARESERESRERESEESERESEEESERESAESERESESESESES ES EEEEEE EES EEE SESS ES 
1254 ; BEGIN BASE INSTRUCTION SET TESTING 
1255 5 ERAERAAEAAEEESESEESEEEEESESESESERESARESESEEEEEESS SESS EEE ESEREEE EEE EES SEES SS 
1256 kAAeEAEAAARAERSESESRSE EEEESERREREAE SEER ERESAERESESERESSEAEEA SER ESESE SE EEE ES ERED 
1265 004742 RSTST: 
1267 sTEST BEQ BNE INSTRUCTIONS 
1268 5 RRRRRERARERREEERERESEEREESEEESEEEAEEESEE EEE ESE SEES SESE SESE SES EES 
“THESE TWO INSTRUCTIONS ARE FUNDAMENTAL TO RECOGNIZING ERROR CONDITIONS 
1269 004742 000277 SCC 
1270 004744 000244 CLZ ;CC=0100 - Z BIT CLEARED 
1271 004746 001401 BEQ 1$ saTEST INSTR -TRY TO CAUSE A BEQ ERROR 
1272 004750 001001 BNE 2$ ;BRANCH IF GOOD 
1273 :THE 2 FLAG DIDNT CLEAR OR BRANCH FAILED. 
1274 sFAILURE AT THIS LOCATION 
1275 ;COULD MEAN PROBLEM, MICRO. 20E PROBLEM 
1276 CONDITION CODE PROBLEM OR JUST ABOUT ANYTHING 
1277 ELSE. 
1278 004752 104001 1$: ERROR +1 ; 
1279 004754 000257 2$: ccc ; 
1280 004756 000264 SEZ :COND CODES = 0100 (ZERO) 
1281 004760 001001 BNE 3$ ;#TEST INSTR TRY TO BRANCH ON ZERO FLAG 
1282 004762 001401 BEQ 4$ :#TEST INSTR* BRANCH IF GOOD 
1283 ;BRANCH FAILURE WITH Z BIT SET 
1284 004764 104001 3$: ERROR +1 ;CPU ERROR 
1285 0047 4$: ;END OF TEST 
1295 004766 M2: 
1297 ; TEST BRANCH ON CARRY 
1298 5 RRARAAERERESEERREEERERER ERASERS ESESASERERERER SEES SEES ESS ESS SS 
THIS IS A TEST TO SEE IF THE MODULE FORM ANTICIPATED IS FEASIBLE. 
1299 004766 000257 ccc ;CC=0000 
1300 004770 103001 acc 2$ ;#TEST INSTR« 
1301 BRANCH CARRY CLEAR FAILED 
1302 004772 104001 1$: ERROR +1 :CPU ERROR 
1303 004774 000261 2$: SEC ;CC#1111 
1304 004776 103401 BCS 4$ »#TEST INSTR 
1305 ; BRANCH CARRY SET FAILED 
005000 104001 3$: ERROR +1 ;CPU ERROR 
1307 005002 4$: 
1311 005002 M3 
; TEST DATA PATHS 
i3is 005004 001005 She iS TRY TO INSURE WE ARE TESTING 
; 
1316 ‘THE DATA PATH AND NOT THE “CLR RO” INSTRUCTION 
1317 005006 005010 CR (RO) ;FORCE LOCATION TO ZERO 





1318 005010 
1319 005012 
1320 
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000000 
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000000 
052525 


177777 


zu 





SEQ 0035 
BNE 1$ ;TRY TO INSURE 0-0 
TST avd ;AGAIN, TRY TO INSURE THAT 0=0 
BEQ 2$ ;BRANCH I 
;LOCATION O NOT SETUP PROPERLY 
ERROR +1 ;CPU ERROR 


TEST DATA PATHS - ONES AND ZEROS 
MOV #125252 , 80 


;0=125252 

CMP #125252 , 880 ;SEE IF DATA MADE IT 
BEQ 2$ ;BRANCH IF IF DATA IS GOOD 
;ERROR! EITHER THE BUS IS BAD, 
OR OR COMPARE 


: THE MOV 
s INSTRUCTIONS FAILED 
;CPU ERROR 


ERROR +1 
;END OF TEST 


TEST DATA PATHS - DATA 0'S AND 1'S 
MOV #052525 , @#0 


;SETUP DATA 
CHP 900, 8052525 ; TEST FOR CORRECT DATA 
ERROR +1 ;CPU ERROR 


TEST DATA PATHS - 1'S 
CLR a#0 


COM ato ;SET UP MEMORY LOCATION O = 111111 
CMP ae0 , 8177777 ; TEST DATA 

BEQ e$ ;BRANCH IF NO 

ERROR +1 ;CPU 


KS 
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SEQ 0036 
BASE INSTRUCTION SET TESTS 
1383 005156 001401 BEQ 4$ ;YES GO ON 
1384 | ani” GO TO ERROR 
i ERROR +1 ;CPu E 
: 
GPRITS: 
Ri BIT TESTS 
MOV $177777,R1 ;R1=177777 
CMP R1,¢177777 ;DOES R1=177777 
BEQ i$ ; 
NO GO TO ERROR 
ERROR +1 SCPU ERROR 
1$: CLR Ri ;R1=0 
CMP Ri 9 ;DOES R1i=0 
BEQ 2: ;YES ON 
NO GO TO ERROR 
ERROR +i ;CPU 
2$: MOV #125252 ,R1 ;R1=125252 
CMP R1, #125252 :DOES R1=125252 
BEQ ;YES GO ON 
NO GO TO ERROR 
ERROR +1 ;CPU 
3$: MOV #52525,R1 ;R1=52525 
CMP R1, #52525 “DOES R1=52525 
— +S GO-TO ERROR 
ERROR +1 ;CPU ERROR 
4$: 
éprots: 
; R2 BIT TESTS 
MOV $177777 ,R2 ;R2=177777 
CMP R2,#177777 ;DOES R2=177777 
BEQ 1 ee 1. 
ee 
“1 ;CPU ERROR _ 
1$: CLR R2 ;R2=0 
CMP R2, #0 ;DOES R2=0 
BEQ 2$ on Th 
ERROR +1 SCPU ERROR 
2$: MOV 125252 ,R2 ;R2=125252 
CMP R2, 125252 ;DOES R22125252 
BEQ 3 ;YES GO ON 
— 
ERROR +] ;CPU 
34: MOV #52525 ,,R2 ;R2=52525 
CMP R2, #52525 sDOES R2=52525 
BEQ ;YES GO ON 
;NO GO TO ERROR 
“0 ERROR +1 ;CPU ERROR 
GPR3TS: 
; R3 BIT TESTS 
MOV $17 ;R3*177777 





7777 ,R3 
CMP R3,0177777 -DOES R3=177777 





1446 005326 


1 
1461 005370 


001401 
104001 
005003 


020327 
001401 


77777 
177777 


1$: 


23: 


3$: 


1$: 


2s: 


3$: 


1$: 


2$: 
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BASE INSTRUCTION SET TESTS 


BeaStiéidL 
™ 

CLR. ORS 

CHP séR3, #0 

BEQStiéD?S 

SA” 9125252. R3 

CMP 3, #125252 

BEQ ; 

She 852525.R3 

CMP R3, #52525 

BEQStiéS 

ERROR +1 


777 
R4.@L77777 


323 


2 S823 
; 


BIT TESTS 
8177777 RS 
RS.0177777 


23 Steg B3s 
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;CPU ERROR 


SEQ 0037 





1507 005504 

1308 005510 

1509 

1510 005512 

1511 005514 
005520 


1 
13h 005524 


1536 
1537 005572 
1336 005576 





020527 
001401 
104001 
012705 
020527 
001401 


104001 


012706 
020627 
001401 
104001 
005006 
020627 
001401 
104001 
012706 
020627 
001401 
104001 
012706 
020627 
001401 


104001 
012706 


012737 
022737 
001401 
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BASE INSTRUCTION SET TESTS 


125252 


052525 
052525 


001000 


000377 
000357 


177776 
000000 


MACRO VOS.03 Friday 26-Mar-86 15:50 


177776 
177776 


177776 


177776 
177776 


177776 
177776 


3$: 


1$: 


2$: 


3$: 


i$: 


2s: 


3$: 


~ ay TESTS 


MO $177777 ,R6 
CMP R6, #177777 
BEQ i$ 

| Fa 

Er Ay R6 

CMP R6, #0 

BEQ 2$ 

ERROR + 

MOV $125252,R6 
CMP R6, #125252 
BEQ $ 

MOV 952525 R6 
CMP R6, #52525 
BEQ 4$ 

ERROR +1 

MOV #STBOT .R6 


$377 ,8017777 
eo 


+1 
90177776 
—,- 


1 
$105, 96177776 
#105,90177776 


+1 
#252 ,80177776 
: aetetaetalaae 
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;R6=177777 
sDO0ES R6=177777 


sPS=357 T BIT SHOULDN'T SET 
;DOES 


PS=357 


; 
NO GO TO ERROR 
SCPU ERROR 


;PS=0 

;DOES PS=0 

;YES GO ON 

sNO GO TO ERROR 


3;PS=105 
;DOES PS=105 


‘NO GO TO ERROR 


SEQ 0038 
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SEQ 0039 
BASE INSTRUCTION SET TESTS 

1568 005706 104C01 ERROR +1 ;CPU ERROR 

1569 005710 4$: | 

1579 

1580 005710 MSPO: 

1582 : TEST SINGLE OPERAND INSTRUCTIONS- MODE 0 

1583 ee ee ge ag ag oe ae, 

“THE INC, COM, CLR, AND DECREMENT INSTRUCTIONS ARE VERIFED. 

1584 005710 005004 éLR R4° sINITIALIZE R4 WITH DATA 

1585 005712 005104 COM R4 

1586 005714 005004 CLR R4 TEST INSTRUCTION 

1587 005716 001401 BEQ 2$ “BRANCH IF R4 CLEARED 

1588 005720 104001 1$: ERROR +1 SCPU ERROR 

1589 005722 005104 2$: COM R4 ;#TEST COMPLIMENT INSTRUCTION 

1590 005724 005204 INC R4 «TEST T INCREMENT INSTRUCTION 

1591 005726 001401 BEQ 4$ + BRANCH IF R4 = 

1592 ‘COMPLIMENT OR INCREMENT FAILED 

1593 005730 104001 3$; ERROR +1 ;CPU ERROR 

1594 005732 A$: 

1599 005732 MSPB 

; TEST SINGLE OPS - EVEN BYTE OF CLRB, DECB, AND COMB 

1602 005732 005004 | CLR R4 

1603 005734 005104 COM R4 ;SETUP TEST REGISTER 

1604 005736 105004 CLRBOsaR4 ;aTEST CLEAR BYTE INSTRUCTION 

1605 005740 001401 BEQ 2$ 


;BRANCH IF 
:CLEAR EVEN BYTE FAILED 


1607 005742 104001 1s: ERROR +1 CPU 
1608 005744 105304 2$: DECBOeséRG ‘*TEST DECREMENT BYT 

005746 100002 BPL 3$ ;DECREMENT BYTE NT ER ILED 
1610 005750 105104 COMBO séR4 :#TEST COMPLIMENT BYTE 
1611 005752 001401 BEQ 4$ BR 

;COMPLIMENT OR DECREMENT FAILED TO WORK 
1613 005754 104001 3$ ERROR +1 ; 
1614 005756 4$ 
1619 005756 MSPC 
TEST SINGLE OPS - MODE 1 CLRB, COMB, AND INCB 
1621 005756 905004 
1622 005760 005014 CLR (R4) 
1623 005762 005114 COM (R4) ;SETUP TEST DATA 
1624 005764 005014 CLR (R4) :®TEST INSTRUCTION 
1625 005766 001401 BEQ 2$ ;BRANCH IF GOOD 
: MODE 1 FAILED 

1627 005770 104001 1s: ERROR +1 ;CPU ERROR 
1628 005772 005114 2$: COM (R4) TxTEST INSTRUCTION 
1629 4 001403 BEQ 3 :(O)SHOULD = -1 
1630 005776 100002 BPL 3$ ; 
1631 006000 005214 INC (R4) -*TEST INSTRUCTION 
1632 006002 001401 | BEQ 4$ ; BRANCH 
1 “COM OR INC FAILED TO ALTER LOC O CORRECTLY 
1634 006004 104001 3$: ERROR +1 ;CPU ERROR 





B4 


COKDAFO KDJ11-8 CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:30 Page 14-21 


SEQ 0040 
BASE INSTRUCTION SET TESTS 

1637 3 
— —_ 
1642 ; TEST SINGLE OPS MODE1-EVEN BYTE-CLRB,COMB, INCB 
1643 CLR R4 
1644 006010 005014 CLR (R4) 
1645 006012 005114 COM (Ra) ;SETUP TEST DATA 
1646 006014 105014 CLRB Es (R84) teTEST INSTRUCTION 
1647 006016 105014 CLRB = (R84) «TEST INSTRUCTION 
1648 006020 001401 BEQ 2$ ;BRANCH IF 
1649 CLEAR (0) EVEN BYTE FAILED 
1650 006022 104001 1$ +1 
1651 006024 105214 2$ INCB (R4) eTEST INSTRUCTION 
+65¢ 006026 1 3$ ; TEST FLAGS 
1653 006030 001 BEQ 3$ 
1654 32 105114 coMB 42Ots« (R44) ;*TEST INSTRUCTION 
1655 006034 105214 INCB .-«O(R4) 
1656 006036 105214 (R4) 
1657 006040 001401 BEQ 4$ :BRANCH IF GOOD 
16 ;COMB OR INCB FAILED 
1659 006042 104001 3$: ERROR +1 :CPU ERROR 
1660 006044 4$: 
1661 

4 
1665 006044 MSPEO 
1667 ; TEST SINGLE OPS - ODD BYTE - CLRB, COMB, DECB 
1668 006044 CLR R4 
1669 006046 005014 CLR (R4) 
1670 006050 005114 COM (R4) ;SETUP TEST DATA 
1671 006052 005204 INC R4 ;POINT TO ODD BYTE 
16 105014 CLRB 3s (R84) isTEST INSTRUCTION 
1673 006056 001401 BEQ i$ 
1674 ‘CLEAR ODD BYTE FAILED 
1675 006060 104001 ERROR +1 CPU 
1676 006062 005304 i$: DEC R4 ‘POINT TO EVEN BYTE 
1677 006064 005214 INC (R4) ;LOC O=1 0 
1678 006066 005204 INC R4 ; POINT To O00 BYTE 
1679 006070 105114 COMB Os«CR4+) ‘#TEST INSTRUCTION 

006072 1052 INCB CRG) ;LOC O=-1 0 
1681 006074 100003 BPL 2 BR IF ERROR 
006076 001 BEQ 2$ ; 
1683 006100 105214 INCB .-« (R4) ;#TEST INSTRUCTION 
1684 006102 001401 BEQ 3$ ;BR H IF G i tai 
;MODE 

1686 006104 104001 2$: ERROR +1 :CPU ERROR 
1687 006106 3$: 
1688 

; 
1692 006106 MSPF 


TEST SINGLE OP - MODE 2 - CLR, COM, INC 
CR R4 
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SEQ 0041 
BASE INSTRUCTION SET TESTS 
1700 006122 001401 BEQ i$ ;BRANCH IF GOOD 
1701 ;MODE 2 CLEAR FAILED 
1702 006124 104001 ERROR +1 ;CPU ERROR 
1703 006126 005304 1$: DEC R4 
1704 006130 005304 DEC R4 :R4=400 
1705 006132 005124 COM (R4)« ;#TEST INSTRUCTION 
1706 006134 100004 BPL 2$ ;BRANCH IF FAILURE 
1707 006136 005304 DEC R4 
1708 006140 005304 DEC R4 :R4=400 
1709 006142 005224 INC (R4)+ ;#TEST INSTRUCTION 
1710 006144 001401 BEQ 3$ ; BRANCH 
:MODE 2 FAILURE 

006146 104001 2$ ERROR +1 ;CPU ERROR 
1713 006150 3$ 
1718 006150 MSPG 

; TEST CLRB, COMB, DECB, MODE 2 - EVEN BYTE 
1721 006150 CLR R4 
1722 006152 105104 COMB Osa 
1723 006154 005204 INC R4 ;R4=400 
1724 006156 005014 CLR (R4) 
1725 006160 005114 COM (R4) ;400=-1 oé 
162 CLRB 30s (R4)+ :#TEST INSTRUC’ (ON 
1727 006164 001401 BEQ i$ ; 
1728 ;MODE 2 EVEN BYTE FAILED 
1729 006166 104001 ERROR +1 :CPU ERROR 
1730 006170 005304 1$: DEC R4 
1731 006172 105324 DECB (R4)+ ;#TEST INSTRUCTION 
1732 006174 100003 BPL 2$ ; BAD 
1733 006176 005304 DEC R4 :POINT TO EVEN BYTE 
1734 006200 105124 COMB 4Os«CR4)+ :#TEST INSTRUCTION 
1735 006202 001401 BEQ 3$ ;BRANCH IF 
1736 ;MODE 2, EVEN BYTE FAILED 
1737 006204 104001 2$: ERROR +1 -CPU ERROR 
1738 006206 3$ 
1739 
1740 ; 
— — 
1745 ; TEST CLRB. COMB, INCB MODE 2 - ODD BYTE 
1746 006206 CLR R4 
1747 006210 105104 COMB ORG 
1748 006212 INC R4 ;R4=400 
1749 006214 005014 CLR (R4) 
1750 006216 005114 COM (R4) ;400*-1 -1 
1751 006220 14 INC (R4) ;POINT TO ODD BYTE 
1752 006222 1 CLRB  3s-s« (R44) :#TEST INSTRUCTION 
1753 006224 001401 BEQ i$ ;BRANCH IF GOOD 
1754 ;MODE 2,000 BYTE FAILED 
1755 906226 104001 ERROR +1 ;CPU 
1 005304 1$: DEC R4 ;POINT TO ODD BYTE 
is Sues ties fhe 11 9 
+ ; 

1759 006236 105124 COMB 40Os« CR)» ;#TEST INSTRUCTION 


i 
1760 006240 100003 BPL 2e$ ;BRANCH IF MODE 2 FAILED 








005304 
105224 


2$ 
3$ 

; 
MSP 
; 


i$: 


1$: 


I: 


DEC R4 
INCB (R4)+ 
BEQ 3$ 


ERROR +1 


TEST CLR, COM, 
CLR R4 

CLR CR4) 
COMB CR4) 
INC CR4) 
CLR aC R4)+ 
SEQ i$ 
ERROR +1 
DEC R4 
DEC R4 
COM aC R4)+ 
BPL 2$ 
DEC R4 
DEC R4 
INC aCR4 )+ 
BEQ 3$ 
ERROR +1 


CLR a 
CLR Ri 
COMB Ri 
INC Ri 
CLR ere 
COM Ri)+ 
CLR ena? 
COMB R1) 
CLR (R4) 
COMB (R4) 
INC CR4) 
CLRB ACR4)+ 
BEQ i$ 

+1 
DEC R4 
DEC R4 
COMB aC R4)+ 
DEC ie 
DEC 4 
INCB aC(R4)+ 
BEQ 3 
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BASE INSTRUCTION SET TESTS 


1761 006242 
1762 006244 


;POINT TO ODD BYTE 


Oe 2. ODD BYTE FAILED 
; 
;CPU ERROR 


INC - MODE 3 


i 
;0=0 


;0=400 

3*#TEST INSTRUCTION 
;BRANCH IF GOOD 
;MODE 3 FAILED, 400 SHOULD=90 
; ERROR 


;R4=0 
;#TEST INSTRUCTION 
;BRANCH IF BAD 


;REPOSITION POINTER 
;#TEST INSTRUCTION 


;BRANCH IF 
sMODE 3 FAILED 
;CPU ERROR 


;R1=400 
;400=-1 
'402=000 377 


;0=400 
;#TEST INSTRUCTION 400-377 


000 
;BRANCH IF MODE 3 EVEN _ CLEARED 






1 ee TRUCTION FAIL 
;REPOSTION POINTER 
;#TEST ING: RUCTION 


oo 


;REPOSITION © JINTER 
;#TEST INSTRUCTION 
;BRANCH IF 


SEQ 0042 





104001 


005004 
105104 


2s: 
3$: 





i 


q BEXKREGHY BCKOGCRYE 
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BASE INSTRUCTION SET TESTS 


MODE 3, EVEN BY! . FAILED 
‘CPU ERROR 


;R4=401 
;#TEST INSTRUCTION 
;BRANCH IF 402 NEQ 0 


;R4=401 
;401=0 


;BRANCH IF GOOD 
;000 BYTE FAILED 
;CPU ERROR 

;R4=401 

;403=377 

;#TEST INSTRUCTION 


;BRANCH IF 
sMODE3 ODD BYTE FAILED. 
;CPU ERROR 


, DEC - MODE 4 

Ra 
RS 
Q4 3R4=400 

(R4) : 

oass 3;400=-1 

aa ; 

(R4)-+ ;402=1 

-(R4) 3#TEST INSTRUCTION 
i$ ;BRANCH IF GOOD 

i ;MODE 4 FAILED 
shay ;#TEST INSTRUCTION 400=-2 

: 

2¢ s;BRANCH IF BAD 

44 ;BRANCH IF BAD 

R4 3;R4=400 

-(R4) ;#TEST INSTRUCTION 
3$ ; BRANCH GOOD 

;MODE 4 FAILED 
+1 ; ERROR 


TEST COMB, INCB, CLRB - MODE 4, ODD BYTE 
CLR R4 


COMB 


R4 


SEQ 0043 
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SEQ 0044 
BASE INSTRUCTION SET TESTS 
1883 906504 005204 INC R4 ;R4=400 
1884 006 005044 CLR -(R4) ;376=0 
1885 006510 105114 COMB sR) 
1886 006512 005224 INC (R4)- ;376=001 000 
1887 006514 005014 CLR (R4) 
1888 006516 005124 COM (R4)- ;400=1 
1889 006520 005204 INC R4 :R4=403 
1890 006522 105044 CLRB = -(R4) ; TEST INST. CLEAR ODD BYTE (401) 
1891 006524 001401 BEQ 2$ ;8R 
:MODE 4 BYTE FAILED 
1893 006526 104001 1$ +1 ;CPU ERROR 
894 006530 2$ INC R4 
1895 006532 005204 INC R4 :R4=403 
1896 006534 105144 COMB 0s - (R44) ; TEST INST. 401-377 
1897 006536 005304 DEC R4 
1898 006540 005304 DEC R4 
1899 006542 105244 INCB = -(R4) ; TEST INST. 401-0 
1900 006544 001401 BEQ 4$ ; IF 
1901 ;MODE 4 ODD BYTE FAILED 
1902 006546 104001 3$: ERROR +1 ;CPU 
1903 006550 105344 4$: DECB = - (R4) -#TEST INST. 
1904 006552 001401 BEQ 6$ ; BRANCH 
;MODE 4 DECREMENT ODD BYTE FAILED 
104001 St: ERROR +1 :CPU ERROR 
; 
MSPN: 
; TEST CLR, COM, INC - MODE 5S 
005004 CLR R4 
005014 CLR (R4) 
105114 come 42—s« (R44) 
INC (R4)+ ;0=400 
CLR a-(R4) :#TEST INST. 400=0 
001401 BEQ 1$ ; IF GOOD 
:MODE 5 FAILED 
0400 ERROR +1 ;CPU ERROR 
beter 1$: INC R4 
on8204 INC R4 sRESET POINTER TO 0 
Go.) 53 COM @-(R4) -aTEST INST. 376-1 
00) igf BEQ 2$ ;BRANCH IF BAD 
oO. 2204 INC R4 
INC R4 ;REPOSITION POINTER 
DEC a-(R4) ;aTEST INST. 37620 
001403 BEQ 2$ ;BRANCH IF BAD 
INC (R4)« 502401 R4=2 
INCB  a-(R4) -&TEST INST.,400= 0 376 
001401 BEQ 3$ ;BRANCH IF GOOD 
;MODE 5 FAILED 
104001 ERROR +1 -CPU ERROR 





ww 


TEST NEG MODE 5 





—_—so —_- = 


COKDAFO KDJ11-B CLUSTER DI‘G. 
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005004 
105104 
905204 
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A 


ww 
ee ee 


as: 


Re 


ARAN 
2 P Sa aan 
~~ & SM 


as. 
xD 
> 
Ww 


PWWWB 
vrune i 


al 
p=) 
~~ 
+ 


;R4=400 


;R1=376 
;R2=0 
;0=0 


;400=-1 

3376-0 

;0=0 

sBRANCH IF GOOD 
;NEG FAILED 


: ERROR 

; TEST RESULT OF NEGATE 
; BRANCH 

sRESULT OF NEGATE BAD 
CPU ERROR 


SEQ 0045 | 





2013 007014 
2014 007016 
2015 007022 


2016 
2017 007024 
2018 007026 


2044 007066 
2045 007072 


000376 


000376 


177776 


gq EA] 98g RAABAROEECEgEE 


2B 


376(R4) 
2$ 


+1 
376(R4) 
400(R4 ) 


3$ 
400(R4) 
~_ 


+1 
-2(R1) 
6$ 


+1 
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BASE INSTRUCTION SET TESTS 


;400=0 

;BRANCH IF GOOD 
CPU ERROR 
;400=-1 

;402= -1 

sGRANCH IF BAD 


2=-2 

;BRANCH IF GOOD 
po 6 FAILED 

;CPU ERR 
;400=0 
BRANCH IF GOOD 
sINC MODE 6 FAILED 
;CPU ERROR 


;R1=0 


3;R4=2400 
> 


3;400=-1 

1376-0 

37421 R4=376 

;400=1 

;NEGATE FAILED 

: IF GOOD 

;NEGATE FAILED 

;CPU ERROR 

1 ie RESULT OF NEGATE 
: 
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BASE INSTRUCTION SET TESTS 


2062 007132 104001 
2063 007134 
2064 


2082 007 000002 
2083 007170 005074 177400 
2084 007174 
2085 007176 
2086 

2087 007200 005171 000000 
2088 007204 

2089 007206 104001 

2090 

2091 007210 005104 


pe 007212 005274 000401 
20935 007216 001401 
2094 007220 104001 


8$: 
9$: 


MSPR : 


ERROR +1 ;CPU ERROR 
TEST CLR, COM, INC - MODE 7 
CLR R1 ;R1=0 
CLR R4 ; 
COMB R4 : 
INC R4 ;R4=400 
CLR (Ri) 
COMB (Ri) 
INC (R1) 
INC (R1) 
INC (R1) ; ;0=402 
CLR (R4) ;400=0 
CLR 2(R4) 
COM 2(R4) ;402=-1 
@-400(R4) ;402=0 
BEQ 2$ ;BRANCH IF GOOD 
+t ;CPU ERROR 
; INSTRUCTION FAILED 
COM a@aocRi) ;402=- 
BMI 4$ ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
COM R4 
INC @401(R4) 402=0 
BEQ 6$ ;BRANCH Good 
ERROR +1 


;CPU ERROR 
sMODE 7 FAILED 


SEQ 0047 





J4 


COXDAFO KDJ11-B CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:30 Page 14-29 


2123 007270 
124 
125 

2128 007270 
129 


30 
2131 007270 
32 272 


BASE INSTRUCTION SET TESTS 


1$: 


TEST SINGLE OPERAND MODE 2 REG 7 
CLR R4 


TEST TST MODE 0 
CLR R4 


SCC 


R4 
R4 
CR7)+ 
-1 
3$ 
+1 


CLR R 

COMB R4 
SCC 

CLN 

TSTB R4 
BVS i$ 
BCS 1$ 
BVS 1$ 
BMI 2$ 
ERROR +1 


;R4=400 

;CLEAR NEXT LOCATION 
;SETUP INITIAL DATA 
;BRANCH IF GOOD 


;R4=0 

sCONDITION CODES =1111 
;CC=1011 

:*TEST INSTRUCTION 


;BRANCH IF ERROR 
;BRANCH IF GOOD 


;1ST MODE O FAILED 
;R4=-1 


;CC=0111 
;#TEST INSTRUCTION MODE 0 
;BRANCH IF ERROR 
;BRANCH IF GOOD 


‘TST FAILED 


302000 377 
;CC=0111 


‘BRANCH IF GOOD 
;CPU ERROR 


;#TEST INSTRUCTION ON EVEN BYTE 
ANCH IF ERROR 


SEQ 0048 








IK4 
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SEQ 0049 
BASE INSTRUCTION SET TESTS 
2186 007376 005204 2$: INC R4 ;POINT TO 1 
2187 007400 105704 TSTB R4 ; TEST INSTRUCTION 
2188 007402 001401 BEQ 4s ;BRANCH IF GOOD 
2189 007404 104001 3$: ERROR +1 ;CPU ERROR 
2190 ;TST FAILED ON BYTE 
2191 007406 4$: 
2192 
2193 
2196 007406 MSPV 
2197 
1 ; TEST TST MODE 1 
2199 007406 005004 R4 
2200 007410 005014 CLR (R4) ;0=0 
2201 007412 000277 SCC 
007414 000244 CLZ ;CC=1011 
007416 005714 TST (R4) ;*TEST INSTRUCTION IN MODE 1 
007420 103403 BCS 1$§ ;BRANCH IF ERROR 
2205 007422 102402 BVS 1$ 
2206 007424 100401 BMI 1$ i 
2207 007 001401 BEQ 2$ ;BRANCH IF GOOD 
2208 0074 104001 1$: ERROR +1 ;CPU ERROR 
2210 007432 005214 2s: INC CR4) ;0=1 
te 007434 000277 SCC 
2212 007436 005714 TST (R4) ; TEST INSTRUCTION 
2213 007440 001403 BEQ 3$ ;BRANCH IF ERROR 
2214 007442 102402 BVS 3$ 
2215 007444 103401 BCS 3$ 
6 007446 100001 BPL 4s ;BRANCH IF GOOD 
2217 007450 104001 3$: ERROR +1 ; ERROR 
;1ST FAILED MODE 1 
2219 007452 4s 
2224 007452 MSPX 
; TEST TST MODE 1 BYTE 
2227 007452 CLR R4 ;R4=0 
2228 007454 4 ot 
007456 105114 R4) 
2230 007460 14 CR4) ;0=001 000 
2231 007462 000277 
2232 007464 ;CC=1011 
2233 007466 105714 (R4) ;#TEST INTRUCTION 
2234 007470 103403 1$ ;BRANCH IF ERROR 
2235 007472 1 i$ ; 
2236 007474 100401 i$ 
2237 007476 001401 2$ ;BRANCH IF GOOD 
2238 007500 104001 i$: +1 ;CPU ERROR 
2240 007502 005204 2$: R4 ;R4=1 
2241 007504 000277 
ooee 00 105714 (R4) ; TEST INSTRUCTION 
2243 007510 0014035 3$ ;BRANCH IF ERROR 
2244 007512 100402 BMI 3$ 
2245 007514 102401 BVS 3$ 


2246 007516 103001 BCC 4$ ;BRANCH IF GOOD 
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SEQ 0050 
BASE INSTRUCTION SET TESTS 
oo 007520 104001 3$: ERROR +1 ;CPU ERROR 
; 
2249 007522 4$: 
2250 
2251 ; 
2254 007522 MSPY 
2255 
2256 ; TEST TST MODE 2 
2257 007522 005004 CLR R4 ; 
2258 007524 CLR CR4)+ ;0=0 
2259 ooraee CLR CR4) 
2260 00 COM (R4) ;2=-1 
2261 007532 CLR R4 ;R4=0 
007534 SCC ; 
007536 CLZ ;CC=1011 
2264 007540 TST (R4)+ ; TEST INSTRUCTION 
2265 007542 BCS 1$ ;BRANCH IF ERROR 
00 BVS i$ 
2267 007546 BMI i$ 
00 BEQ 2$ ;BRANCH IF GOOD 
2269 007552 104001 1$: +1 ; ERROR 
sMODE 2 TEST FAILED 
2271 007554 005724 2$: TST (R4)+ ;TST LOC2 
2272 007556 103403 cs 3$ 
007560 102402 BVS 3$ 
2274 007562 001401 Q 3$ 
7564 100401 4$ 
2276 007566 104001 3$ ERROR +1 ;CPU ERROR 
sMODE 2 FAILED 
2278 007570 4$ 
: 
2283 007570 MSPZ 
; TEST TST MODE 2 BYTE 
2286 007570 005004 CLR R4 
2287 007572 CR&)-< : 
2288 007574 105144 COMB -(€R4) ;0=377 000 
2289 007576 005304 DEC Rg ;R4=0 
2290 007600 000277 SCC 
2291 007602 000244 CLZ ;CC=1011 
007604 105724 TSTB (R4)-+ ; 
007606 102403 BYS i$ ;BRANCH IF ERROR 
2294 007610 103402 i$ 
2295 007612 100401 i$ 
2296 007614 001401 BEQ 2$ ;BRANCH IF GOOD 
2297 007616 104001 1$: ERROR +1 ; ERROR 
2298 sMODE 2 EVEN BYTE FAILED 
Stan 007620 000277 2s: Scc 
2 007622 000250 CLN ;CC=0111 
2301 007624 105724 TSTB (R4)+ ; 
007626 001403 BEQ 3$ : 
2 007630 103402 BCS 3$ 
7632 102401 BVS 3$ 
2305 007634 100401 BMI 4$ ;BRANCH IF GOOD 
7636 104001 3$: ERROR +i 


2306 00 ;CPU_ERROR 
2307 ;MODE 2 ODD BYTE FAILED 





M4 


2308 007640 
309 


2336 007706 
2337 007710 
2338 007712 
2339 007714 
2340 007716 
2341 007720 


2 
3348 007722 
2345 


4$: 


1$: 
2$: 


3$: 
4$; 


TEST TST MODE 3 
CLR 


CLR 
COMB 


2 
> 
wa 
+ 
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BASE INSTRUCTION SET TESTS 


;CC=1011 

; TEST MODE 3 
;BRANCH IF ERROR 
: 


;BRANCH IF GOOD 
;CPU 

sMODE 3 FAILED 
;R4=0 

;400=-1 

;CC=0111 

; TEST INSTRUCTION 
BRANCH IF ERROR 
‘BRANCH IF GOOD 


s;ERROR MODE 3 
;CPU ERROR 


TEST TST MODE 3 AUTO-INC 
CLR R4 





SEQ 0051 


ee 
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BASE INSTRUCTION SET TESTS 


SEQ 0052 


2369 007764 005304 DEC R4 
2370 007766 005704 TST R4 ;SEE IF AUTO-INC WORKED 
5371 007770 001401 BEQ 4$ SERROR IF R4 NE O 
2372 007772 104001 3$: ERROR +1 -CPU ERROR 
2373 ;AUTO-INC FIALED 
2374 007774 4$: 
2375 
2376 : 
2379 007774 MSTB3: 
2380 
TEST TST MODE 3 BYTE 
007774 CLR R4 
2383 007776 14 CLR (R4) 
2384 010000 105114 COMB 4Ots«éC +) 
2385 010002 005214 INC (R4) 
010004 005214 INC (R4) ;0=401 
2387 010006 CLR Ri 
2388 010010 105101 COMB 1 
2389 010012 00520 INC ;R1=400 
2390 010014 005011 CLR (R1) 
2391 010016 005111 COM (R1) 
10020 105011 CL (Ri) ;400=377 000 
2393 010022 105734 TSTB 3=s-_-« ACR4) + -#& TEST INSTRUCTION 
010024 001403 BEQ i$ -ERROR IF EQUAL 
2395 010026 103402 BCS 1$ “ERROR IF CARRY SET 
10030 102401 BVS i$ sERROR IR OVERFLOW 
2397 010032 100401 BMI 2$ ;BRANCH IF MINUS 
398 010034 104001 1$ ERROR +1 


CPU ERROR 
5CC ERROR 


2400 010036 005304 e$ DEC R 
2401 010040 005304 DEC 4 
010042 001401 BEQ 4$ ;BRANCH IF AUTO-INC WORKED 
2403 010044 3$ +1 nd te 
; AUTO- FAILED 
2405 010046 4$ 
3 
2410 010046 MST4 
; TEST TST MODE 4 
2413 010046 005004 CLR R4 
2414 010050 005014 CLR CR4) ;0=0 
2415 010052 005204 INC R4 
2416 010054 005204 INC R4 ;R4=2 
2417 010056 000277 scc 
2418 010060 000244 CLZ sCC=1011 
2419 010062 005744 TST -(R4) ;&*TEST INTRUCTION 
2420 010064 103403 BCS i$ sERROR IF CARRY 
2421 010066 102402 BVS i$ ;ERROR IF OVERFLOW 
> 10070 100401 i$ ; IF MINUS 
2423 010072 001401 BEQ 2$ ;BRANCH IF GOOD 
74 104001 i$: +1 ne ued™ 
2426 010076 005704 2$: TST R4 s INSURE CORRECT AUTO-DEC 
2427 010100 001401 BEQ 4$ sBRANCH IF GOOD AUTO-DEC 
;BAD AUTO-DEC 
2429 010102 104001 3$: ERROR +i ;CPU ERROR 
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BASE INSTRUCTION SET TESTS 


SEQ 0053 


2430 010104 4s: 
5431 
2432 ; 
5435 010104 fSsT4B: 
5436 
, TEST TST MODE 4 BYTE 
10104 CLR OR 
5439 010106 4 CLR —s- C4) 
5440 010110 005114 CoM «CRD 
5441 010112 105114 COMB CRA) ,0=377 000 
5442 010114 000277 SCC 
5443 010116 INC = R4 
5444 010120 005204 INC = R4 4=2 
5445 010122 105744 TSTB OO -(R4) RETEST INSTRUCTION 
5446 010124 001403 BeEQ Ss TERROR IF EQUAL TO 0 
5447 010126 103402 Bes. StséidS TERROR IF CARRY 
5448 010130 102401 BvS—SisédS TERROR IF OVERFLOW 
5449 010132 100401 BMI —s.2$ ‘BRANCH IF MINUS 
5450 C10134 104001 i$: ERROR 1 ;CPU 
5451 SCC SHOULD EQUAL 0100 
5452 010136 105744 2$: STB  -CR4) -#aTEST EVEN BYTE 
5453 010140 001401 Beas ‘BRANCH IF GOOD 
5454 010142 104001 $$: ERROR +1 ;CPU 
SCC SHOULD EQUAL 0100 AND R4=-1 
5456 010144 4$ 
; 
5460 010144 MSTS: 
5461 
, TEST TST MODE 5 
5463 010144 005004 CLR ORG 
5464 010146 005024 CLR —s C4) ‘O=0, R4=2 
5465 010150 000277 écc 
3466 010152 000244 CLZ ;CC=1011 
5467 010154 005754 TST _— @-(R4) TEST INSTRUCTION 
5468 010156 103403 Bes Sti "ERROR IF CARRY 
010160 102402 BvS—StséiS ‘ERROR IF OVERFLOW 
5470 010162 100401 BMI SsédS ‘ERROR IF MINUS 
5471 010164 001401 BEQStsét ‘BRANCH IF GOOD 
5472 010166 104001 1$: ERROR 1 CPU ERROR 
5473 :CC WRONG, SHOULD = 0100 
5474 010170 005704 . ma - 
75 010172 001401 BEQStiéAS sBRANCH IF AUTO-DEC. WORKED 
5476 010174 104001 33: ERROR +1 
5477 -AuTO-Dee FAILED 
5478 010176 4s: 
5479 
5480 ; 
2483 010176 MSTSB: 
3484 
5485 ; TEST TST MODE 5 BYTE 
5486 010176 005004 CLR RA 
5487 010200 005014 ccR —s- CRA) 
105114 Cons (Ra) 
005214 INC R4 ,0=400 
5490 010206 005034 CLR ss CRA) 1400=0, Ré=2 
5491 010210 005154 COM —s«@-( RA) 


2492 010212 105134 COMB aC R4)+ ;400=377 000 R4=2 
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BASE INSTRUCTION SET TESTS 


2493 010214 105754 

2494 010216 103405 

2495 010220 100402 

2496 010222 1 

2497 010224 001401 

ates 010226 1 
010230 

2501 010232 105754 
010234 100401 

2504 010236 104001 

2505 010240 

2510 010240 

2513 010240 

2514 010242 14 

2515 010244 105104 

2516 010246 


4 
2519 010254 005764 177400 
2520 


9 01 005774 177402 
o10s34 





1$: 
2s: 


SEQ 0054 
TSTB a-C(R4) ;*#*#TEST INSTRUCTION 
BCS 1$ ;ERROR IF CARRY 
BMI i$ sERROR IF MINUS 
BVS i$ ;ERROR IF OVERFLOW 
BEQ 2$ sBRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD = 0100 
INC (R4)+ ;0=401 
TSTB a-(R4) ;#&TEST INSTRUCTION 
BMI 4$ ;BR F GOOD 
sEVEN BYTE FAILURE 
ERROR +1 ;CPU ERROR 
TEST TST MODE 6 
CLR R 
CLR (R4) ;0=0 
COMB R4 
INC R4 3;R4=400 
CLR (R4) 
COM (R4) ;400=-1 
TST -400(R4) 3;*&*TEST LOCATION 0 
BCS § ;ERROR Y 
BVS i$ ;ERROR IF OVERFLOW 
BMI i$ ;ERROR IF MINUS 
BEQ 2$ s;BRANCH IF ZERO 
ERROR +1 ;CPU 
;CC ARE 
CLR R4 ; 
TST nad ;TST LOCATION 400 
; 
7 s;BRANCH IF MINUS 
sCC ERROR 
TEST TST MODE 7 
CLR R4 
CLR CR4 
COM (R4)+ ;0=-1 
CLR (R4) 3220 
CLR Re ;R2=0 
CLR R4 
COMB R4 
INC R4 ;R4=400 
CLR CR4) ;400=0 
TST @-376(R4) ;#*TEST LOCATION 0 
Bcs i$ ERROR Y 
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SEQ 0055 
BASE INSTRUCTION SET TESTS 
2554 010344 104001 1s: ERROR +1 ;CPU ERROR 
2555 ERROR IN cc 
2556 010346 005222 2$: INC (R2)+ =-2 R2=2 
5557 010350 005774 177402 TST @-376(R4) A CHECK CONTENTS OF LOCATION 2 
2558 010354 100401 BMI 3$ ERROR IF MINUS 
2559 010356 001401 BEQ 4$ ‘BRANCH IF GOOD 
2560 010360 104001 3$: ERROR +1 ; 
1 :CC SHOULD = 0100 
010362 4s 
256 
2564 ; 
2566 , 
2567 ; 
Seco 
; 
peda "SBTTL *eeeeaeeee% DOUBLE OPERAND TESTS *#4ee04¢000800004 
; 
$e75 010362 MDMO : 
2574 
2575 TEST MOVE MODE 0 
2576 010362 005004 CLR R4 R420 
2577 010364 005001 CLR Ri 
2578 010366 005101 COM Ri ;Ri=-1 
2579 010370 010104 MOV R1,R4 ;#&TEST MOVE INSTRUCTION 
2580 010372 001402 BEQ i$ SERROR IF R4=0 
2581 010374 102401 BVS $ “ERROR IF OSERFLOW 
010376 100401 BMI 2$ ;BRANCH IF MINUS 
104001 1$: ERROR +1 ;CPU ERROR 
;CC SHOULD = 100-, R4 SHOULD=-1 
010402 005204 2$: INC R4 ;R4 SHOULD 
6 010404 001375 BNE 1$ ERROR IF R4 NE O 
seaa i 
91 010406 MDAO 
S393 : TEST ADD MODE © 
2594 010406 ;R4=0 
2545 010410 Ri 
910412 005101 7 Ri ;Ri=-1 
2597 010414 060104 AC R1,R4 :#e TEST ADD OF R1 TO R4 
2598 010416 001403 BLS i$ ERROR IF ZERO 
10 BCS i$ ;ERROR IF 
1 102401 i$ ERROR IF OVERFLOW 
2601 010424 100401 2$ sBRANCH IF MINUS 
010426 104001 i$ ol 
CC SHOULD = 1000 , R4=-1 
2604 010430 005204 2$: INC R4 SHOULD’ =0 
2605 010432 001401 BEQ 43 ‘BRANCH IF R4=0 
2606 010434 104001 3$: ERROR +1 sCPU 
;R4 SHOULD = 0 
2608 010436 4s 
2613 010436 MDSO 


2615 
2616 010436 005004 CLR 
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a00000000060 DOUBLE OPERAND TESTS *#e0604004440442% 
2617 010440 005001 CLR Ri 


SEQ 0056 


2618 010442 005201 INC R1 | ;R1=1 R4=0 
2619 010444 160104 SUB R1,R4 poet OF R4-R1, R4=-1 
2620 010446 102403 BVS 1$ sERROR IF V SET 
2621 010450 103002 BCC 1$ ‘ERROR IF NO CARRY 
010452 001401 BEQ 1$ SERROR IF =0 
2623 010454 100401 BMI 2$ BRANCH IF MINUS 
2624 010456 104001 1$: ERROR +1 CPU 
:CC SHOULD = 1001 
2626 010460 005101 2$: COM R1 ;R1= 
2627 010462 005201 INC Ri ;GET TWO’S COMPLIMENT, Ri=-1 
2628 010464 160104 SUB R1,R4 teeTEST R4-R1 (1- 1= 0 
2629 010466 001401 BEQ 4$ BRANCH IF ZERO 
2630 010470 1 3$ +1 CPU 
2631 :CC SHOULD = 0100 
2632 010472 43 
2633 
2634 ; 
2637 010472 MDM27 
2638 
2639 ; TEST MOV MODE 27,00 
2640 010472 000257 ccc ;CC=0000 
2641 010474 012704 125252 MOV #125252 ,R4 seaTEST MOVE 
2642 010500 001401 BEQ i$ IF = 0 
2643 01 100401 BMI 2$ ‘BRANCH IF MINUS 
2644 O1 104001 1$: ERROR +1 ;CPU 
5 [CC SHOULD = 1000 
01 012701 052525 2$ MOV #052525,R1 ;*&TEST MOVE 
2647 010512 1 BMI 3$ sERROR IF MINUS 
2648 010514 001001 BNE 4$ BRANCH IF NE O 
5649 010516 1 3$ “1 ;CPU ERROR 
2650 :CC SHOULD = 0000 
2651 010520 060104 4$: ADD R1,R4 5R1sR4=-1 
0105-7? 100401 BMI 6$ BRANCH IF MINUS 
Olvs2% 104001 S$ +1 ;CPU 
sMOV FAILED 
2655 O1 005204 6$ INC R4 R4+1=0 
2656 01 001375 BNE S$ ;ERROR IF NOT ZERO 
2658 
2661 010532 MBIOO 
2662 
2663 ; TEST BIC, BIS MODE 0,0 
2664 010532 005004 CLR Ra i 
SETUP Ri TEST DATA 
;RO=COMPLIMENT OF Ri 
;aeTEST BIC WITH CARRY SET 
;ERROR IF NO CARRY 
sERROR IF 
RR GCH IF PLUS 
,CPU ERROR 
;CC SHOULD = 


0001 
;COMPARE CONTENTS OF R4 AND R2 
;BRANCH IF EQUAL 





gers 019570 
2680 010572 
2681 010574 
2682 010576 
2683 010600 
2684 

2685 010602 
2686 010604 


2687 010606 
2688 010610 
2689 


2690 
2693 010612 
2694 


2731 
2732 010700 


2734 010710 
2735 010712 
2736 010714 
2737 010716 
2738 010720 


104001 


012701 
704 


3$: 
4$: 


5$: 
6$: 


aan : 


TEST BIT, CMP MODE 0,0 
MOV #125252 ,R1 
#100000 ,R4 


MOV 
MOV 
BIT 
BEQ 


R4,R1 
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eeeeeeeeeee0 DOUBLE OPERAND TESTS *#400644444404444 


;CPU ERROR 
;R4 AND R2 SHOULD BE EQUAL 


;R1=125251 


;BIS 052525 AND 125251=177775 


pu epnieranen IF MIUS VALUE 
‘BAD BIS OPERATION 


;R1=0 
;ERROR IF NE O 


;R1=125252 
;R4=100000 


;R2=052525 
;##TEST OF BIT ,CC=1000 
s;ERROR IF EQ O 


;CPU 

;CC SHOULD = 1000 
;#TEST 100000-125252=25252 
;ERROR IF 0 


;CPU ERROR 

sCC SHOULD = 0010 
-i = 25252 
IF EQUAL 


TEST MOV, MOVB MODE 1,1 AND SIGN EXT ON MOVB TO GPR 
/R4 ;R4=400 


MOV $400 

MOV #402 ,R ;R1=402 

CLR Pot : 

COM CR4 ;400=-1 

CLR (Ri) : 
COMB (R1) ;402=000 377 
CLR R2 ;R2=0 





SEQ 0057 








“~ 


b 
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SEQ 0058 
eeeeeseseees DOUBLE OPERAND TESTS #4040444446444444 
2739 010722 012703 000405 MOV #405,R3 3=405 
2740 010726 000277 SCC ;CC#1111 
2741 010730 011412 MOV (R4),(R2) ‘MOV. 400 TO 0 ,0=-1 
2742 010732 001403 BEQ i$ ; IF 
2743 010734 102402 BVS i$ ; IF 
2744 010736 103001 BCC 1$ ERROR IF NO CARRY 
2745 010740 100401 BMI 2$ ;BRANCH IF 
2746 010742 104001 1$: ERROR +1 ;CPU 
747 ;CC SHOULD =1001 
2748 010744 005212 2s: INC (R2) ;0=0 
2749 010746 001004 BNE 3$ ERROR IF NOT 0 
2750 010750 000257 ccc ;CC= 
2751 010752 111113 (R1),(R3) 1405-377 
0754 BEQ 3$ ;ERROR IF E 
2753 010756 100401 BMI 4$ :BRANCH IF GOOD 
2754 010760 104001 3$; ERROR +1 CPU 
2756 010762 105213 4s: INCB _-« (R3) ;405=0 
2757 010764 001375 BNE 3$ ERROR IF 405 NOT 0 
5758 .CHECK THAT SIGN EXTENSION OCCURS ON A MOVB TO GENERAL REGISTER. 
2759 010766 005002 CLR R2 SINIT R2 TO ZERO. 
5760 010770 111102 MOVB CR), R2 ; 77 TO R2 
2761 010772 100005 BPL 5$ sERROR BIT 15 SHOULD BE SET 
2762 010774 102404 BVS S$ V BIT SMOL\LD BE CLEARED 
2763 010776 103403 BCS S$ ‘CARRY SI? SHOULD BE UNAFFECTED 
11000 702 177777 CMP 9177777 ,R2 ; TEST 
1004 001401 BEQ $ “SIGN EXTENDED THROUGH UPPER BYTE 
sERROR! BYTE SHOULD HAVE 
canine EXTENDED THROUGH UPPER BYTE 
11 104001 S$ ERROR +1 ;CPU 
276 “11010 6$ 
i?: s 
2774 011010 MALL: 
2775 
2776 : TEST ADD MODE 1,1 
2777 011010 012704 000400 MOV 8400, R4 :R4=400 
2778 011014 012701 000402 MOV RI ;R1=402 
2779 011020 012714 177753 MOV $-25,(R4) ;4002-25 
011024 012711 000024 MOV $24,(R1) ;402=24 
2781 011030 061114 ADD (R15, (R4) ;-25+242-1 
2782 011032 001404 BEQ i$ sERROR IF 0 
2783 O11 103403 BCS 1$ ‘ERROR IF CARRY 
2784 011036 100002 BPL <$ ERROR IF POSITIVE RESULT 
2785 011040 005214 INC (R4) ;-1+120 
011042 001401 BEQ 2$ ;BRANCH IF GOOD 
2787 011044 104001 i$: ERROR +1 ;CPU ERROR 
2788 ;CC SHOULD = 1000 
2789 011046 2$: 
2790 
$794 011046 S11 
2795 
2796 : TEST SUB MODE 1,1 
2797 011046 012704 000400 MOV #400,R4 ;R4=400 
2798 011052 012701 000404 MOV Ri ;R1=404 
2799 011056 012714 000003 MOV #3,(R4) ;400=3 








H> 


2800 011062 
2801 011066 
011070 


2802 
2803 011072 
2804 


2611 
2614 011106 
2615 


2816 

2617 011106 

2818 Oliile 

2619 011116 
122 


2833 011152 
2834 011154 
2836 011156 
28637 011160 
2638 011162 
28639 011164 
2840 

2841 011166 


284 
2846 011166 
2847 


2848 

2849 011166 

28650 011172 

2651 011176 
011202 


011206 
2654 011210 
2655 Oll2i2 
2856 011214 
2857 611216 


385, 011220 
2860 01 


1222 


012711 
000277 
161411 
001402 
100401 
103001 
104001 


161411 
001375 


000006 


052525 
125252 


125252 


i$: 
2$: 


MOV #6,(R1) 


SCC 

SUB CR4),(R1) 
BEQ 1$ 

BMI 1$ 

BCC 


TEST BIC, BIS MODE 1,1 
MOV O,R4 
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eeseeesesece DOUBLE OPERAND TESTS #446444444464646444 


;406=6 
;CC=1111 
6-3-3 
ERROR IF O 
ERROR IF MINUS 
BRANCH IF GOOD 
; 

D = 0000 
;3-3=0 

;ERROR IF NOT O 


oy tCéeROa RA A1ed0e 
; s 
MOV #052525,.(R4) ;400= 
MOV $125252.(R1)  ;402= 
BIS (R4), (RL) “RAV RL = -1 
BEQ i$ ; IF 
2$ ;BRANCH IF GOOD 
+] 3CPU 
CC SHOULD = 1000 
(RL) ;402=0 
BEQ 4$ ;BRANCH IF GOOD 
+1 3; CPU 
;CC SHOULD = 0100 
DEC (RL) ;402=-1 
BIC (R4),(RL) ;R1=125252 
BEQ S$ sERROR IF 0 
BMI 6$ ;BRANCH IF GOOD 
ERROR +1 :CPU ERROR 
C SHOULD = 1000 
COM (Ri) ;402=052525 
BIC (R1),(R4) ;400=0 
BEQ 8§ BRANCH IF GOOD 


TEST BIT, CMP MODE 1,1 


MOV 6400,R4 
HOV #402 — 
HOV #125252, (R1) 
BIT (R4), (RL) 
BCS i$ 

BEQ 2$ 

ERROR 1 


(R4),(R1) 
3$ 


sCC SHOULD = 0100 


SEQ 0059 





2861 011224 
2862 011226 
2863 011230 
2864 011232 
2666 011234 
2867 011236 
2868 011240 
2869 011242 
po da 011244 
2872 011246 
73 


4 
pod 011246 


2892 304 
2893 011506 
2895 011310 
2897 011312 
2898 011314 
2899 011316 
2901 0113520 


2919 
2920 011354 
2921 011356 


177760 
177750 


177771 


i$: 
2$: 


i$: 
2$: 
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YL JBLE OPERAND TESTS ###se00004404444% 


BCC 3$ ;ERROR IF NO CARRY 
BVC 3$ ;ERROR IF NO OVERFLOW 
BMI 4$ BRANCH IF GOOD 
ERROR +1 ;CPU E 

sCC SHOULD = 1000 
CLR (R4) 
INC (R4) ;400=1 
BIT (R1),(R4) ;125252t1=0 
BEQ 6$ ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 

;CC SHOULD= 0100 
TEST MOV MODE 2,2 
MOV #400 ,R4 ;R4=400 
MOV #402,R1 ;R1=402 
MOV #5,(R4) ;40025 
CLR (Ri)+ 1402-0 
CLR (Ri) 
COM (Ri) 1404-1 
TST -(R1) ;R1=402 
SCC ‘CC#1111 
MOV (R1)+,(R4)+ '400=0 R4=402 R1=404 
BMI i$ sERROR IF MINUS 
BCC 1$ ; IF NO CARRY 
BVS 1$ ; IF OVERFLOW 
BEQ 2$ ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 

:CC SHOULD= 0101 
INC -(R4) ;400=1 R4=400 
ADD CR4), (RL) si+ -1 =0 
BEQ 4$ BRANCH IF GOOD 
ERROR +1 
sCC SHOULD = 0100 

VEST SUB MODE 2,2 
MOV 8400,R4 ;R4=400 
MOV #402,R1 ;R1i=402 
MOV #177760, (R4) ;400=177760 
MOV #177750, (R1) ; 4022177750 
SUB (R4)+,CRL)+ 'R1=177770 
BEQ i$ ;ERROR IF 
BVS 1$ ‘ERROR IF OVERFLOW 
BCC i$ sERROR IF NO CARRY 
BMI 2$ BRANCH IF GOOD 
ERROR +1 CPU 

‘CC SHOULD=1000 
INC -(R1) sR1I=1777771 
SUB #177771, (R1)+ ;R1=0 


SEQ 0060 





COKDAFO KDJ11-B8 CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:30 Page 14-42 












SEQ 0061 
eeeeeeeeeses DOUBLE OPERAND TESTS #¢e00084404044444 
O11 100401 BMI 3$ sERROR IF MINUS 
2923 011364 001401 BEQ 4$ ;BRANCH IF GOOD 
2924 011366 104001 3$: ERROR +1 ;CPU ERR 
;CCSHOULD = 0100 
2926 011370 4s: 
2928 ; 
o944 011370 MBB22: 
2946 : TEST BIC, BICB, BIS, BISB MODE 2,2 
2947 011370 012704 000400 MOV $400,R4 ;R4=400 
2948 011374 012701 000402 MOV #402, Rl *R1=402 
011400 012702 000404 MOV #404.R =404 
O11 012714 141401 MOV o191401, cR4) ;400=303 001 
2951 011410 012711 177405 MOV #177405 :402=377 005 
2952 011414 012722 70 MOV Rahs ;404=2070 
011 012722 177777 MOV RS). ;406=-1 
2954 011424 042421 BIC B1sCRDe ;402=074004 
O11 001401 BEQ i$ ; IF 
2956 011430 100001 BPL 2$ ;BRANCH IF 
:CC SHOULD = 1000 
011432 104001 1$: +1 ;CPU ERROR 
2959 011434 052421 2$: BIS (R4)+,(R1)+ 404=074074 
O11 142421 BICB (R4)+,(R1)-+ ;406=074 
2961 011440 005301 DEC Ri :R4=405 R1=406 
O11 152421 BISB (R4)+,(R1)- '406=-1 R4=406 R1=407 
2963 011444 100401 4$ ;BRANCH IF GOOD 
406 SHOULD=-1 
2965 011446 104001 3$: +1 ;CPU ERROR 
O11 005214 4$: INC (R4) ;406 SHOULD=0 
2967 011452 001401 BEQ 6$ ;BRANCH IF 
-ERROR! 406 NE O 
2969 011454 104001 S$: ERROR +1 ;CPU 
2970 011456 63: 
2975 011456 MBC22: 
2976 
2977 ; TEST BIT, CMP MODE 2,2 
2978 011456 012704 000400 MOV $400 ,R4 ;R4=400 
2979 011462 012701 000402 MOV $402,R1 ;R1=402 
2980 011466 012714 125252 MOV $125252,(R4) ;400=125252 
2981 011472 012721 100001 MOV €100001,(R1)+  ;402=100001 
2982 011476 012711 100002 MOV #100002, ;404=100002 
2983 011502 005741 TST -(R1) ;R1=402 
2984 011504 132421 BITB (R4)+,(R1)+ ;*##ANDED RESULT= 000 
2985 011506 100401 BMI i$ ; IF 
2986 011510 001401 BEQ 2$ ;BRANCH IF GOOD 
2987 011512 104001 i$: . ;CPU 
2988 sCC D = 0100 
2989 011514 132124 2s: BITB (Ri)+,(R4)+ ;#x ANDED RESULT = 200 
2990 011516 001401 BEQ 3$ ;ERROR IF EQUAL 
i O11 100401 BMI 43 ;BRANCH IF GOOD 
2992 011522 104001 3$: ERROR +1 ;CPU 
;CC SHOULD= 1000_ R4=402 R1=404 
2994 011524 022421 43: CMP (R4)+,(R1)+ RESULT 
S$ F EQUAL 





KS 
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SEQ 0062 


2996 011530 103001 BCC 3$ ;ERROR IF NO CARRY 

2997 011532 100401 BMI 6$ ;BRANCH IF GOOD 

2998 011534 104001 S$: CRROR +1 :CPU 

2999 ;CC SHOULD = 0000 

3000 011536 005341 6$: -(R1) ;404=100001 

3001 011540 005741 TST -(R1) 3R4=404 R1=402 

3002 011542 022124 CMP CR1)+,(R4)+ sRESULT =0 

3003 011544 001401 BEQ 8$ ;BRANCH IF GOOD 

3004 ;CC SHOULD = 0100 R1=404 R4=406 
O11 104001 7$ ERROR +1 ;CPU ERROR 

3006 011550 8$ 

3011 011550 MS33 





1576 012712 054320 
3021 011602 163431 
604 001402 
3023 011606 103401 
00001 
612 104001 i$ 
3027 011614 022712 054120 2$: 
3028 011620 001401 43 
3029 011622 104001 3$: ERROR +1 ‘CPU 
3030 :CC SHOULD = 0100 R4=2 Ri=4 
3031 011624 005067 166150 4$: CLR 0 ;RESTORE VECTORS 
3032 011630 005067 166146 CLR 2 ; 
3033 
’ 
3038 011634 MCB44: 
3040 ; TEST CMP, BIT MODE 4,4 
3041 011634 012704 000400 MOV $400 ,R4 :R4=400 
11640 012701 000402 MOV ;R1=402 
3043 011644 012721 125366 MOV $125366,(R 6 1)+ ;402=125366 R1=404 
3044 011650 012724 173001 MOV #173001 R4)+ '400=173001 R4=402 
3045 011654 1 CMP ,- (RL) 5173001 - 125366=045603 CC=0000 
BCS SERROR IF CARRY 
BPL ; 
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SEQ 0063 


3057 011700 104001 3$: ERROR +1 ;CPU ERROR 
3058 011702 005724 4s: TST (R4)- 3R4=402 
3059 011704 005201 INC ;R1=403 
3060 011706 124441 CMPB s«-(R4) , -(R1) 5173 - 173-0 
3061 011710 001401 BEQ 6$ ; IF 
3062 BAD COMPARE 
3063 011712 104001 S$: ERROR +1 ;CPU ERROR 
3064 011714 6$: 
3065 ; 
3068 011714 MASS: 
3069 
3070 TEST ADD MODE 5,5 
3071 011714 012704 000400 V $400, R4 
3072 011720 012724 000001 MOV #1, (R4)+ ;400=1 
011724 012724 177776 #-2,(R4)+ ;402=-2 
3074 011730 012724 MOV #400, (R4)+ ;404=400 
011734 012714 MOV #402, (R4) :406=402 R4=406 
3076 011740 012701 000410 MOV $410,R1 :R1=410 
3077 O11 065451 ADD a-(R4),a-(R1) s1+ -2= -1 
3078 011746 001402 BEQ 1$ ; IF 
O11 00001 BPL i$ ERROR IF PLUS 
3080 011752 103001 Bcc 2$ BRANCH 
3081 011754 104001 1$ ERROR +1 CPU ERROR 
; 
3083 011756 704 000004 2$ ADD R4 ;R4=410 
011762 065154 ADD a-(R1),a-(R4) ;-1 +120 
3085 011764 001401 BEQ 4$ ernie IF GOOD 
3086 011766 1 3$: +1 CPU 
3087 CC SHOULD= 0100 R4=406 R1=402 
3088 011770 4$: 
3089 
3090 ; 
3093 ; 
3094 ; 
3095 go a a en ne nn nnn nn nee e enn e nen --- 
3096 STEST DOP BIT(B) MODE 6.6 
3097 ; 
3098 
3099 ; 
3100 ; 
3101 011770 MB66: 
3102 
31 ; TEST BIT, BITB MODE 6,6 
3104 O11 CLR R4 R420 
3105 011772 012701 000400 MOV €400,R1 ; 
3106 011776 012721 125252 MOV #125252, (R1)-+ ;400=125252 
012002 012721 000001 MOV #1,(R1)- ;402= 
012006 012721 100000 MOV €100000,(R1)-+ ;404=1000000 R1=406 
3109 012012 0 000400 177774 BIT 400(R4), -4(R1) ;(400)t(402)=0 
3110 012020 001401 BEQ 2$ ;BRANCH IF GOOD 
CC SHOULD = 0100 
012022 104001 1$: ERROR 1 SCPU ERROR 
3113 012024 136461 000405 177772 2%: BITB 405(R4),-6(R1) ;(405)t(400)=200 
3114 012032 001401 BEQ 3$ ;ERROR IF ZERO 
012034 100401 BMI 4$ ;BRANCH IF GOOD 
alk SHOULD = 1000 
3117 012036 104001 3$: ERROR +1 ;CPU 





3118 012040 
3119 


3120 
3123 012040 
3124 


3 

3137 012102 
3138 912104 
3139 Ol2112 
3140 012114 
3141 

3142 012116 
sas 012122 
3145 


3158 012146 
3159 012150 
3160 

3161 012152 
3162 012156 


3167 012170 
3168 012174 
3155 012176 
3171 012200 
31 

31 

3176 012200 
3177 

3178 

3179 012200 
3180 012202 





005004 
012714 


000400 


177776 
177777 
000400 


000402 
177372 


177777 


165656 
165654 


125252 


125124 


000403 


177776 


4$: 


i$: 
2$: 
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TEST SUB MODE 7,7 
V #400 ,R4 


MO ; 
CLR Ri 
MOV #-2,(R4)+ ;400=-2 
MOV #-1,(R4)+ ;402=-1 
MOV #400, (R4)+ ;404=400 R4=406 
MOV #402 ,(R1) ;0= 
INC ;Ri-1 
SUB @-406(R4) ,8403(R1) 3-2 - -1 = -l 
BEQ 1$ sERROR IF ZERO 
BMI 2$ ;BRANCH IF 

CC SHOULD=1000 
ERROR +1 ; 
SUB @-1(R1),a-2(R4) ;-1 - -1 = 
BEQ 4$ ;BRANCH IF GOOD 






+l ;CPU ERROR 
;ERROR ON SUBTRACT 400=0 
CLR 0 sRESTORE VECTORS 
CLR 2 ; " 
TEST ROL, MODE 0 
MOV # ,R4 3;R4=125252 
Scc ;CC=1111 
ROL R4 3;R4=052525 WITH CARRY SET 
BYC i$ sERROR IF V CLE 
BCC i$ ;ERROR IF CARRY CLEAR 
CMP #052525 ,R4 ;SEE IF RO = EXPECTED 
BEQ 2$ ERROR IF R4 NE EXPECTD 
ERROR +1 ;CPU 
;ROL FAILED, CC SHOULD=0011 
MOV #125252 ,R4 ;R4= 
ccc ;CC=0000 
ROLB R4 sROTATE EVEN BYTE 
BCC 3$ ;ERROR IF CARRY 
BYC 3$ ;ERROR IF NO OVERFLOW 
BMI 3$ ;ERROR IF MINUS 
CMP #125124 ,R4 ;SEE IF R4 = EXPECTED 
BEQ 4$ BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
;ROLB FAILED, CC SHOULD=1011, R4=125125 


TEST ROL, ROLB MODE 1 
CLR R4 


#52525, (R4) ;0+52525 


SEQ 0064 
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ee0e00000e¢¢ DOUBLE OPERAND TESTS 44¢44464444448444 


3181 012206 006114 ROL (R4) 
3182 012210 100005 BPL i$ 
3183 012212 102004 BVC 1$ 
012214 103403 BCS i$ 
3185 012216 021427 125252 (R4), #125252 
3186 012222 001401 BEQ 2$ 
3188 012224 104001 1$: ERROR +1 
3189 012226 012714 125252 2$: MOV #125252, (R4) 
012232 005204 INC R4 
3191 012234 SCC 
012236 106114 ROLB  (R4) 
3193 012240 3$ 
3194 012242 103005 BCC 3$ 
3195 012244 1 BVC 3$ 
3196 012246 005304 DEC R4 
3197 012250 022714 052652 CMP #52652, (R4) 
3198 012254 001401 BEQ 43 
3199 012256 3$ ERROR +1 
3201 012260 4$ 
3 ; 
3206 012260 MRL2 
3208 ; TEST ROL, ROLB MODE 2 
3209 012260 005004 CLR 
3310 012262 012714 100000 MOV #100000, (R4) 
3211 912266 000257 ccc 
3212 012270 006124 ROL (R4)+ 
3313 012272 103002 BCC i$ 
3214 012274 102001 BVC i$ 
3315 012276 001401 BEQ 2$ 
3217 012300 104001 1$: Ps | 
3218 012302 304 2$: DEC R4 
19 012304 304 DEC R4 
012306 001012 BNE 3$ 
3221 012310 012714 004040 MOV $4040, (R4) 
3222 012314 41 CLC 
3223 012316 106124 ROLB (R4)+ 
012 103405 3$ 
3225 012322 102404 BVS 3$ 
012 005304 R4 
3227 012326 022714 004100 #04100, (R4) 
3228 012332 001 BEQ 4$ 
32 012 104001 3$: +1 
3231 012336 4$: 
32 
3236 012336 MRL3 
; TEST ROL, ROLB MODE 3 
3239 012336 005004 CLR R4 
012 012714 052525 #052525, (R4) 


3240 340 MOV 
3241 012344 000277 scc 


SEQ 0065 


;##TEST INSTRUCTION, 0=125252 
;ERROR I 

;ERROR IF NO OVERFLOW 

;ERROR IF CARRY 

SEE IF R4=EXPECTED 


:BAD ROL ,CC SHOULD=1010 
;CPU ERROR 
— 


4-1 
Reeliii 
aaTEST INSTRUCTION 
;ERROR IF a ehles IS POSITIVE 


R4=0 
;ERROR IF 0 NE EXPECTED 
;BRANCH IF GOOD 


;CPU ERROR 
;BAD ROLB ODD BYTE,CC SHOULD=1011 


SSTEST INSTRUCTION 
NO CARRY 


;ERROR IF 
ERROR IF NO OVERFLOW 
BRANCH IF GOOD 
ooln FAILED ,CCSHOULD= 0100 
;CPU 


;ERROR IN AUTO-DEC 
;0=4040 
;**TEST INSTURCTION 


ERROR IF — SET 
;ERROR IF V 


;SEE IF O= EXPECTED RESULT 
BRANCH IF GOOD 


;CPU 
;BAD ROL 


;R4=0 
30 
;CC=#1111 





3263 012412 
3264 


3266 012412 
3267 012414 
3268 012420 


000000 


125253 


000002 
054321 


130643 


000400 
123456 


1$: 
2s: 


ROL 
BPL 
BvC 
BCS 


CMP 
BEQ 


ae0 
1$ 
1$ 


1$ 
#125253, (R4) 
2$ 


+1 
#125252, (R4) 


TEST ROL MODE 4 
CLR Ri 


MOV 
SCC 


#2,.R4 
#54321,(R1) 


-(R4) 

1$ 

i$ 

1$ 

#130643 ,(R1) 
i$ 


R4 
2$ 


+1 


TEST ROL MODE 5 
R R4 


#400, (R4) 
#123456, a(R4)+ 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VO5S.03 Friday 28-Mar-86 13:30 Page 14-47 
eeeeeeerteeee DOUBLE OPERAND TESTS #0¢0¢ss0080080444% 


;#*TEST INSRUCTION MODE 3 WITH PC 
ERROR 


ERROR IF NO OVERFLOW 
;ERROR IF CARRY 
;COMPARE RESULT WITH EXPECTED 
TE ROL CC SHOULD 1010 
;CPU ERROR 


2 

;*#*#TEST INSTRUCTION 

; F MINUS 
sERROR IF NO CARRY 
BRANCH IF OVERFLOW 

;CPU ERR 

;BAD ROL, CC SHOULD=1011 


‘cC=1111 
;*& TEST ay it heat 


Y 
;SEE IF EXPECTED RESULT 
;BRANCH IF ROL FAILED 
;SEE IF AUTO-DEC WORKED 


SEQ 0066 
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eeeeeeeeeee¢ DOUBLE OPERAND TESTS ##4400e00004848448 


3303 
3304 
3307 012514 
3308 


3309 
3310 012514 012704 
3311 012520 005001 

















000400 
040700 
000400 
149101 
029400 


MRL6: 


7 a DOr 
ww 


TEST ROL MODE 6 
MOV #400 ,,R4 
CLR 


MOV #32525, (R1) 
SCC 

ROL -400(R4 ) 
BMI 1$ 

BCS 1$ 

BVS 1$ 

CMP #65253, (R1) 
BEQ 2$ 

ERROR +1 


TEST ROL MODE 7 


MOV #400 ,R4 
CLR 

MOV #100000 , 940 
ROL a2(R4) 
BMI i$ 

BNE 1$ 

BCC 1$ 

BVC 1$ 

TST a#0 
BEQ 2s 
ERROR +1 


TEST SWAB MODE 37 


MOV 

MOV #40700, (R4) 
SWAB 40s 400 

BMI i$ 

CMP #140101, (R4) 
BNE i$ 

SWAB 

BMI 2$ 

ERROR +1 


;R4=400 

;R1=0 

;0=32525 

;#«TEST a 
sERROR IF MINUS 
SERROR - CARRY 


;ERROR IF OVERFLOW 
SEE IF CORRECT RESULT 
;BRANCH IF GOOD 


ROL MODE 6 


;R4=400 
3402-0 


;0=100000 
;#*TEST INSTRUCTION 
MINUS 


;R4=400 
:400= 101 300 
3400 SHOULD = 300 101 
ERROR IF 
‘SEE IF EXPECTED RESULT 
:;BRANCH IF BAD 
3;400=101 300 
GOOD 
' BAD SWAB MODE 37 





SEQ 0067 


3433 012670 
012672 


3439 012672 


012704 
000257 


052525 


025252 


000001 


000001 
012772 
003072 


012736 


003072 
012770 


003072 


003072 
012734 


003072 


003072 


000001 


000003 


1$: 
2$: 


MOV #52525 ,R4 
CCC 

ROR R4 

BCC 1$ 

CMP #25252 ,R4 
BEQ 2$ 

ERROR +1 


ey RORB MODE 1 


CL 

MOV #1, (R4) 
SCC 

RORB  (R4) 

BCC i$ 

BPL 1$ 

CMP #200, (R4) 
BEQ 2$ 

ERROR +1 

TEST UMP - ALL MODES 
MOV #1,90SEQ 
MOV @MJUL RL 
SMP (R1) 

CMP assea, #2 
BEQ MJU2A 
ERROR 1 

CMP R1, @MJU2+2 
BEQ 

ERROR +1 

INC aeSEQ 
MOV aMJ2 RL 
UMP acRi)- 
“WORD MJU3 
CMP aeSEQ, #1 
BEQ MJULA 
ERROR +1 

INC aeSEQ 
MOV eMJU2 
JMP (R1)+ 
CMP q 
BEQ 

ERROR +1 
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;CC=0000 


3R4 SHOULD = 25252 WITH CARRY 
CARRY 


;ERROR IF NO 

;SEE IF R4= EXPECTED 
;BRANCH IF 

sROR MODE O FAILED 


;CPU ERROR 


;SETUP TEST SEQUENCER 
SET MODE 1 JUMP 


;#JMP MODE 1 
ioe FOR CORRECT SEQUENCE 


ADDRESS 


MODE 2 JUMP FAILED 


;CPU 


;CPU ERROR 
;AUTO-INCR FAILED 


;CPU 
;JMP OUT OF 


;UPDATE TEST 
SETUP MODE 


SEQUENCE 


;CHECK FOR AUTO-INCREMENT 
BRANCH IF GOOD 


SEQUENCER 
3 JUMP 


;UPDATE SEQUENCE 
;SETUP MODE 2 DESTINATION 


; JUMP MODE 2 
; TEST FOR CORRECT SEQUENCE 
BRANCH IF GOOD 


SEQ 0066 





3487 013030 
3488 


3512 013124 
3513 013132 
3514 013134 
3515 

3516 013136 
3517 013142 
3518 013146 


3519 
3520 013150 
3521 


sas 013152 
3523 013160 
3524 013162 


3531 013204 
3532 013212 
3533 013214 


3535 013216 
3536 
3547 
3548 
3549 013216 
3550 
3551 


3553 013222 
013224 


022701 
1 


012701 


000040 
012717 
000240 


012772 
003072 
013114 
013150 
003072 
003072 
013145 
000005 
013112 


003072 


003072 
013152 


013526 


003072 


003072 


~ 
oO 
Aa 


gs £3 


q = 


gaegslx 983 g 88K 983 
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#e00000¢0e06 DOUBLE OPERAND TESTS #444464404446444% 
MJUSA: 


CMP 
BEQ 
ERROR 


INC 


R38 354 


#J2+2,R1 
MJU3B 


+1 


ol 

aeSEQ 
#MJ5+2,R1 
a-(R1) 
MJUS +2 
#6 , @#SEQ 
MJU6A 

+1 

aeseQ 
#MJ7+10,R 
@-10(R1 as 
4JU7 

#7, @8SEQ 
- 


30 Page 14-50 


;_ TEST AUTO-INCREMENT 
BRANCH IF GOOD 


CPU 
;AUTO-INCREMENT FAILED MODE 3 


; UPDAT QUENCER 
;SETUP_ DESTINATION ae 4 
;sEXECUTE JUMP MODE 4 


;CHECK AUTO-DECREMENT 
;BRANCH IF GOOD AUTO-DEC 


;CPU ERR 
‘ AUTO- DEC FAIELD MODE 5 
TEST CORRECT SEQUENCE 
‘ BRANCH IF GOOD SEQUENCE 
;CPU ERROR 
;JMP OUT OF SEQUENCE 
;UPDATE SEQUENCE COUNT 
;SETUP DESTINATION MODE6 
; JUMP MODE 6 
; TEST AUTO-DECR 
CPU BRANCH IF GOOD 
MODE 4 AUTO-DEC FAILED 
; TEST FOR CORRECT SEQUENCE 
BRANCH IF CORRECT SEQUENCE 


;CPU 
SINCORRECT JMP SEQUENCE 
; UPDA 


;POINTER MODE 5 


; TEST FOR CORRECT SEQUENCE 
BRANCH IF GOOD SEQUENCE 


;CPU 
; TESTING OUT OF SEQUENCE 


TEST THAT PRE-FETCH BUFFER CAN BE OVER WRITTEN 
MOV #126$ ,R1 


32. 
MOV 
. WORD 


(PC)+, (PC) 
NOP 


;sWRITE THE ee THE JMP INSTRUCTION 


;NOP INSTRUCTI 


;SET UP Ri WITH ADDRESS OF ERROR 
; ROUTINE 


SEQ 0069 





F6 
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30008$ : 


000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000111 
012717 
000240 


000111 
012717 
000240 


Meee te 
012717 
000240 
oranae 
01271 


000240 
000111 
012717 
000240 


300098 : 


30010$: 


300115: 


30012$: 


30013$: 


30014$ : 


30015$: 


30016$: 


30017$: 


300188 : 


30019$ : 


30020$ : 


30021$: 


30022$ : 


30023$ : 


30024$: 


30025$: 


300268 : 


TL Lk 
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— 
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~ 
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ob 

~ 

wD 

oO 
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; JMP (R1) 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 


; IMP CR1) 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
s;NOP INSTRUCTION 


; JMP (R1 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 


; JMP 1 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
INSTRUCTION 


; JMP CR1) 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 


; JMP (Ri) 
; WRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 


; IMP (Ri) 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 


; UMP (R1) 

sWRITE THE NOP OVER THE JMP INSTRUCTION 
:NOP INSTRUCTION 

; IMP (R11) 

;WRITE THE “54 OVER THE JMP INSTRUCTION 


Ri 
be THE NOP OVER THE JMP DISTRI 
INSTRUCTION 
UMP (Ri) 
;sWRITE THE NOP OVER THE JMP INSTRUCTION 
sNOP INSTRUCTION 
; IMP (Ri) 
;sWRITE THE NOP OVER THE JMP INSTRUCTION 
; INSTRUCTION 


; MP (Ri) 
sWRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 


MP CRI) 
SURITE THE NOP OVER THE UMP INSTRUCTION 
INOB_INSTRUCTION 
‘URITE THE NOP OVER THE UMP INSTRUCTION 
:NOP INSTRUCTION 
‘URITE THE NOP OVER THE UMP INSTRUCTION 
INE INSTRUCTION 
‘URITE THE NOP OVER THE UMP INSTRUCTION 
‘NOP INSTRUCTION 


SEQ 0070 
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000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
sete: 
01271 

000111 
012717 
000240 
epee: 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 


012717 
000240 


000111 
012717 


000240 
000111 
000137 


104001 


013530 


000000 003072 


30027$: 


30028$ : 


30029$ : 


300308: 


d syg"gg"ese5°ssG9°S GS ES“ EE ENE: 


Sesees & 


TEST JMP MODES 17,27,37,67,77 
MOV i 


JMP 
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111 
(PC)+, (PC) 
NOP 


1i1 
(PC)+, (PC) 
NOP 


111 
CPC)+, (PC) 


lant ond 
ve 
Or 
— 


+, (PC) 


d+, CPC) 


Sar 


ae 
on 


d+, CPC) 


d+, CPC) 


SarSar8 


lated 
or 


d+, CPC) 


S388 
3 


$32. ,R2 


$10,R3. 
ili 3 R3) 


R2,130$ 


; JMP (R1) 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
s;NOP INSTRUCTION 


; JMP (Ri) 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
s;NOP INSTRUCTION 


; JMP 1 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 

; JMP Ri) 

:;WRITE THE NOP OVER THE JMP INSTRUCTION 
sNOP INSTRUCTION 


; JMP (R1) 
;WRITE THE NOP OVER THE JMP INSTRUCTION 
:NOP INSTRUCTION 


R1) 
‘WRITE THE NOP OVER THE JMP INSTRUCTION 
s;NOP INSTRUCTION 

* UMP (R1) 

;sWRITE THE NOP OVER THE JMP INSTRUCTION 
;NOP INSTRUCTION 

; IMP (R1) 

; WRITE THE NOP OVER THE JMP INSTRUCTION 
; NOP INSTRUCTION 

1 (Ri) 

WRITE THE NOP OVER THE JMP INSTRUCTION 
i INSTRUCTION 


(Ri) 

WRITE THE NOP OVER THE UMP INSTRUCTION 
:NOP INSTRUCTION 
‘WRITE THE NOP OVER THE JMP INSTRUCTION 
+ Sa 
{WRITE THE NOP OVER THE JAP INSTRUCTION 
‘NOP INSTRUCTIC 
re (Ri) 
‘SUMP OVER ERROR CALL 
‘ERROR! PRE-FETCH BUFFER WAS NOT 





OVER WRITTEN 
;CPU ERROR 
RESTORE THE OVER WRITTEN JMP INSTRUCTIONS FOR THE NEXT PASS. 


;SET UP R2 AS COUNTER 


SET UP R3 AS POINTER. $$$ 
-ADD OFFSET TO POINT TO Ist. JMP IN TABLE. $¢8 


RET OVER WRITTEN JUMPS 
POINT TO NEXT OVER WRITTEN ADOR. 
D0 UNTIL R2=0 


;SETUP TEST SEQUNCER 
; JUMP MODE 17(SHOULD BE IN-LINE) 





SEQ 0071 





ho 
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3577 013566 
as 013572 
3580 013574 
3581 013576 
3 013602 


3584 
3585 015606 
3587 013610 
3588 013616 
013620 
3590 
3591 013622 
3592 013626 
3593 013632 
3594 013640 
01 
3596 
3597 013644 
3598 013650 
3599 013652 


3600 
3601 013656 


3606 01 
3607 013672 
3608 

3609 013674 
3610 013702 
3611 013704 
3612 

3613 013706 
3614 013712 
3615 

3616 

3617 013716 
3618 

3619 

3622 015716 
3623 


3624 
3625 013716 


005737 
001401 


003072 


003072 
000401 


003072 
177714 


000002 


000001 


000003 


g 
: 
7 
3 


HUP17: 


TST 
BEQ 


ERROR 
INC 
JMP 


4 
m 
w 
—4 


eg0ssess 





SUPDATE SEQUENCE NUMBER 
“(THE #401=BR UPDATED PC-+2) 
; 
;CHECK IF CORRECT SEQUENCE 
ann BRANCH IF IN SEQUENCE 
; TEST OUT OF SEQUENCE 
;UPDATE SEQUENCER 
JUMP MODE 37 


;CHECK FOR CORRECT SEQUENCE 
BRANCH IF IN SEQUENCE 





; TEST FOR CORRECT SEQUENCE 
BRANCH IF IN SEQUENCE 


;CPU 
; TEST OUT OF SEQUENCE 
; TEST FOR CORRECT SEQUENCE 
IN SEQUENCE 


BRANCH IF 

;CPU 

; TEST OUT OF SEQUENCE 
: TE SEQUENCER 
; JUMP MODE 6 


— STACK POINTER LOCATION 
;SPSU = R6 AFTER DECRIMENT 
;SETUP SEQUENCE COUNTER 

SETUP INITIAL JUMP IN MODE 1 


'R4=-1 TO BE SAVED ON STACK 
;JSR MODE 1 


; TEST FOR CORRECT SEQUENCE 





SEQ 0072 





3635 013762 
3636 013764 


3638 013766 
3639 013772 
3640 013774 


3669 014110 
3670 014114 
3671 

3672 

3673 014116 
3674 014124 
3675 014126 


76 
3677 014130 





001401 
104001 


003076 
125252 
014116 


003072 


003072 


5$: 


MJSR2A: 


6$: 


MJSR2B : 


MJSRA: 
MUSR1: 
7$: 


MJSRIA: 


10$: 


MJSR4B : 


BEQ 


335 EBinoA3 : 


CLR 
JSR 
HALT 
. WORD 


3 %8Sos Ama 253 


BEQ 


ABineA 3 


INC 
MOV 
MOV 
MOV 
JSR 


MJSR2A 
+1 


sree. 
CR6), #125252 
#MJSR4 ,R4 
MJSR2B 

+1 

a#SEQ 
@#SPS ,R6 
#MJSRA ,R1 
R4 
R4,Q(R1)+ 
MJSR3 


#1, SEQ 
MJSR1A 


203,86 R4 
@MJSR2 RI 
R4, Stn se, 


$4, a8SEQ 
MUSR4A 

+k 

aeSPSU,R6 
10$ 
(R6),#052525 
10$ 

OMJSR6 ,R4 

- a 

+ 


aeSEQ 
aeSPS ,R6 
$377,R4 
+2 
R4,a-(R1) 
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;CPU 
;MODE 2 


BRANCH IF GOOD 
OUT OF SEQUENCE 


JUMPED TO 
;VERIFY STACK DECRIMENT 
ANCH IF 


ACK INCORRECT 


;BR ST 
;VERIFY CONTENTS OF STACK 


;BRANCH IF DATA ON STACK INCORRECT 
T RETURN ADDRESS 


;SEE IF CORRECT 
BRANCH 


;CPU ER 
;JSR MODE 2 FAILED 


TE SE 


; UPDA QUENCE COUNTER 
; RELOAD STACK POINTER 
;SETUP JSR MODE 3 

‘ DIFFERENT DATA TO R4 
;JSR MODE 3 


;LITERAL FOR JUMP MODE 3 


; TEST FOR CORRECT SEQUENCE 
BRANCH IF GOOD 


TEST FOR CORRECT SEQUENCE 
IF GOOD 


SEE IF CORRECT 
ANCH IF GOOD 


CPU 
;MODE 4 JUMPED TO OUT OF SEQUENCE 


sVERIFY STACK DECRIMENT 


ACK INCORRECT 


;BRANCH IF ST 
;VERIFY CONTENTS OF S 


STAACK 
;BRANCH IF DATA ON STACK INCORRECT 
URN ADORESS 


;SEE IF CORRECT RET 
BRANCH IF GOOD 


;CPU 
; JSR MODE 4 FAILED 
;UPDATE SEQUENCE COUNTER 


SEQ 0075 


3714 014264 
3715 014272 
3716 014274 
3717 

3718 014276 
3719 014302 
3720 014304 
3721 014310 
3722 014312 
3723 014316 
zee 014320 


3746 014406 
3747 014412 
3748 014416 


200003 003072 MUSR3: 


003076 
000000 
014032 


003072 
003074 
052525 


014120 


000005 


003076 
000377 
014176 


003072 


003072 


11$: 


MJSR3A: 


12$: 


13$: 


@ gaddde GEQRGET 983 pagaay gaan? gee 


S BEWARE 2 


oa 
mM 
© 


38 


R4, -(R1) 





eHUSRC 10,8 
MJSR7 


#5 , 8¢SEQ 

MUSRSA 

+1 

@eSPSJ,R6 

16$ 

(R6), #377 

#MJSRB-2 + R4 
i 


aeSEQ 
aesPs RE 
$123456 ,R4 
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;CPU 


;CPU 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 


JUMPED TO OUT OF SEQUENCE 
; VERIFY STACK DECRIMENT 


IF STACK INCORRECT 
OF S 


; TEST FOR CORRECT SEQUENCE 
BRANCH IF GOOD 


;MODE 6 JUMPED TO OUT OF SEQUENCE 


;CPU 


;VERIFY STACK DECRIMENT 
;BRANCH IF STACK INCORRECT 
;VERIFY C 


ONTENTS OF STACK 
;BRANCH IF DATA ON STACK INCORRECT 
IF CORRECT RETURN ADDRESS 


PGR VECTOR 


; TEST FOR CORRECT SEQUENCE 
BRANCH IF GOOD 


;MODE S JUMPED TO OUT OF SEQUENCE 


;VERIFY STACK DECRIMENT 
;BRANCH IF 


;CPU 
;JSR MODE 5S FAILED 


;UPLATE SEQUENCE COUNTER 
;RELOAD STACK POINTER 
;SETUP DATA IN R4 


SEQ 0074 





IK6 


COKDAFO KDJ11-8 CLUSTER DIAG. MACRO VO5S.03 Friday 28-Mar-86 15:50 Page 14-56 
600660060064 DOUBLE OPERAND TESTS #¢440644004004444 


SEQ 0075 


3749 014422 012701 014274 MOV @MJSR6+1 ;SETUP JSR VECTOR 
3750 014426 004461 177770 JSR R4, ecaL) ; JUMP MODE 6 
3752 ; 
3753 014432 022737 000007 003072 MJSR7: CMP #7, @8SEQ ; TEST FOR CORRECT SEQUENCE 
3754 01 001401 BEQ MJSR7A BRANCH IF GOOD 
3755 014442 17$: ERROR +1 
3756 TO OUT OF SEQUENCE 
3757 014444 023706 003076 MJSR7A: CMP @eSPSU,R6 ;VERIFY STACK DECR 
3758 0144 1006 BNE 18 IF STACK INCORRECT 
3759 014452 021627 177773 CMP CR6), 4-5 ;VERIFY CONTENTS OF STAACK 
3760 014456 001003 BNE ;BRANCH IF DATA ON STACK INCORRECT 
3761 014460 022704 014346 CMP @MJSR5-2,R4 :SEE IF CORRECT 
3762 O1 001401 BEQ MUSR7E BRANCH IF 
3763 014466 18$: ERROR +1 :CPU errdr’ 
3764 : JSR MODE 7 FAILED 
3765 014470 MUSR7E : 
3766 014470 013706 003074 MOV @ESPS RE ;REPLACE STACK 
3768 ; 
3771 014474 MURA: 
3772 
3773 TEST USR MODES 27, 37, 67, 77 
3774 014474 012737 000001 003072 MOV #1,a8SEQ ;SETUP SEQUENCER 
3775 014502 010637 003074 MOV ,B8SPS ;SAVE STACK ADDRESS 
3776 014506 010637 003076 MOV , BESPSJ :SAVE STACK DECRIMENT ADDRESS 
3777 014512 162737 000002 003076 SUB #2. a8SPSJ 
3778 014520 012704 177777 MOV #-1,R4 ‘SETUP R4 DATA 
3779 014524 000240 JSR R4, #240 sEXECUTE A JSR MODE 27 

; 
3781 014530 022737 000001 003072 MJR27: CMP #1, @8SEQ ; VERIFY Y_COERRECT TEST SEQUENCE 

014536 001011 BNE i$ s INCORRECT TEST SEQUENCE 
3783 014540 023706 003076 CMP @ESPSU,RE :VERIFY STACK POINTER 
3784 014544 001006 BNE 1$ 
785 014 021627 177777 CMP (R6), 8-1 ;VERIFY R4 GOT LOADED ON THE STACK 
3786 014552 001003 BNE i$ BRANCH IF INCORRECT STACK CONTENTS 
87 014 7 014530 CMP R4, @MJR27 ;VERIFY CORRECT RETURN ADDRE 
3788 014560 001401 BEQ MUR27A BRANCH IF GOOD RETURN ADDRESS ON STACK 
3789 014562 1 1$: ERROR +1 
MODE 27 FAILED 

791 014 37 003072 MJR27A: INC aeseQ ;UPDATE SEQUENCER 
3792 014570 704 152525 MOV #152525 ,R4 ;SETUP R4 TEST DATA 
3793 014574 013706 003074 MOV /R6 :RESET STACK POINTER 
3794 O1 37 014666 JSR R4, BOMIR37 - JSR MODE 37 
3795 014604 MJR27B: HALT 

. 
3797 014606 023727 003072 000003 MUR67: CMP @eSEQ, 3 ;VERIFY TEST SEQUENCE 
3798 014614 001011 BNE 2$ s INCORRECT TEST SEQUENCE 
3799 014616 023706 003076 CMP a#SPSU,R6 :VERIFY STACK 
3800 014622 001006 BNE 2$ SINCORRECT STACK DECRIMENT 
3801 014624 021627 000125 CMP (R6), #125 ‘VERFIFY STACK WAS LOADED 
3802 014630 001003 BNE 2$ 
3803 014632 020427 014742 CMP R4, @MJR77 ;VERIFY RETURN ADDRESS 
3804 014636 001401 BEQ MUR67A BRANCH IF GOOD 
3805 014640 104001 2s: ERROR +1 ;CPU 

‘MODE 67 FAILED 

3807 014642 005237 003072 MUR67A: INC @aeSEQ ;UPDATE SEQUENCER 


















3837 014774 

3838 

3839 014776 

3841 014776 

384 

3846 015002 

3847 

3848 

3849 015002 

3850 015006 

3851 015012 
5016 


013706 
012704 
004477 


000000 
014742 


003074 
000001 
000002 


003072 
003076 
152525 
014604 


003072 
003074 
000125 
177644 
003072 
003076 
000001 
014662 


003074 


123456 
015022 


123456 


015046 


000002 


MJR6A : 
MJR6B : 


HJR3? : 


2$: 


MJR37A: 


HURT? : 


RTS1: 


RTS6: 


zga2 


ZEinemene 383% ZBin sm sne § 


E 


@#SEQ, #2 
SaSPSJ,R6 
CR6), #152525 
nyASTa 


@eSPS ,R6 


TEST RTS AND RTS R6 
MOV #5 


MOV 
MOV 
RTS 


#123456 
S1,R3 


-(R6) 
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;RESET STACK 

;SETUP R4 DATA 

;JSRP MODE 77 

sDATA FOR MODE 77 JUMP 

; VERIFY TES” se 

s INCORRECT ° 7 SEQUENCE 
;VERIFY S14" DECRIMENT 

; INCORRECT "ACK DECRIMENT 
 VERFIFY STACK WAS LOADED 


; VERIFY RETURN ADDRESS 
;BRANCH IF GOOD 


;RELOAD ST 
;SETUP R4 DATA 
;JSR MODE 6 


; INCORRE 

;VERFIFY STACK WAS L 

;VERIFY RETURN ADDRESS 
ANCH IF GOOD 


BR 
SCPU ERROR 
‘MODE 77 FAILED 
SRESET STACK 


; INSURE VALID STACK 
SETUP TEST REGISTER 
;SETUP_TEST PC 

;*#TEST INSTRUCTION 


;CPU 
s INCORRECT PC ON RTS 


;BRANCH IF GOOD 
;CPU_ERROR 
;REGISTER CONTENTS INCORRECT 


; THIS TEST CHECKS AN UN-TESTED PLA TERM 


Bid RS 
R5 RE 
R6 
+1 


s SAVE STACK _IN Ri 
EXPECTED RETURN ADDR TO RS 
; MOVE RETURN ADDR TO R6 


;CPU ERROR 


SEQ 0076 





M6 
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SEQ 0077 


sERROR : RTS NOT EXECUTED 








1$: CMP (RS) ,R6 ;1S R6=*31506? 
BEQ RTSE crriet IF IT IS THEN GO TO END OF TEST 
ERROR +1 CPU 
;ERROR! WRONG ADDR IN R6 
RTSE: MOV R1,R6 sRESTORE STACK 
TSMMUO: 
SETUP AND TEST KERNEL SUPERVISOR AND USER STACKS 
040000 177776 MOV #40000, 26177776 ;SET PS TO SUP MODE 
1777 MOV #177777, Re. ;INIT SUP STACK TO ALL ONES 
ar CMP $177777 ,R6 ;ARE ALL BITS SET 
BEQ i$ ON 
NO GO TO ERROR 
ERROR +1 ;CPU 
1$: CLR R6 ;SET SUP STACK TO ALL ZEROES 
000000 CMP $0 ,R6 :ARE ALL BITS CLEARED 
BEQ 2$ iYES eB, 0N 
[CPU ERROR 
125252 2$: MOV #125252 ,R6 ;SET SUP STACK TO. ALTERNATING PATTERN 
125252 #1 ;IS SUP SP C 
BEQ 3 sYES GO ON 
ERROR , ;NO GO TO ERROR 
052525 3$: MOV #52525 ,R6 SET SUP STACK TO ALTERNATING PATTERN 
052525 CMP , ;IS SUP SP 
BEQ 4$ ;YES GO ON 
NO GO TO ERROR 
ERROR +] ? 
000700 4$; MOV e7 ;SETUP SUP 
140000 177776 MOV #140000 , 64177776 ;SET PS TO USER MODE 
177777 MOV 777 ,R6 SINIT USER STACK TO ALL ONES 
177777 CMP #177777 ,.R6 SARE ALL BITS SET 
BEQ S$ ;YES GO ON 
‘NO GO TO ERROR 
ERROR +1 ;CPU 
S$: CLR R6 ;SET USER STACK TO ALL ZEROES 
000000 CMP 90. R6 ;ARE ALL BITS CLEARED 
BEQ 6$ ;YES GO ON 
wel” 
ERROR +1 
125252 6$: MOV #125252 ,R6 SET USER STACK TO ALTERNATING PATTERN 
125252 CMP #125252 ,R6 ;IS USER SP CORRECT 
BEQ 7$ ; YES ON 
NO GO TO ERROR 
ERROR > | ;CPU 
052525 7$: MOV #52525 ,,.R6 ;SET USER STACK TO ALTERNATING PATTERN 
052525 CMP #52525 ,R6 ;IS USER SP CORRECT 
BEQ 8$ A: 1 
ERROR +1 ;CPU ERROR 
000600 8S: MOV $600 ,R6 ;SETUP USER SP 
301000 - rT sSET PS, TO KER MODE 
2 ‘ 
000700 CL @e7 ‘CLEAR FIRST WORDS OF SUP, KER, AND USE STACKS 
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SEQ 0078 
600000006060 DOUBLE OPERAND TESTS seeeeeeeesesesees 
3926 015276 005037 001000 CLR aeSTBOT 
3927 015c62 004767 0054 JSR re, CHECK ' TEST SUP, AND USE STACKS 
3928 015266 012737 040000 177776 RET1: MOV #40000 , 86177776 ‘SET PSW OT SUP MODE 
3929 015274 022706 000700 CHP $700, R6 :1S SUP SP C CORRECT 
3930 015300 001401 BEQ i$ S 
NO GO TO ERROR 
338 Ot304 104001 ERROR +1 ;CPU ERROR 
012737 140000 177776 1%: MOV #140000, 84177776 :SET PSW TO USE MODE 
as 15312 706 000600 CMP #600 ,R6 :IS USE SP CORRECT 
; 015316 001401 BEQ 2$ ;YES GO ON 
‘NO GO TO ERROR 
33 015320 104001 ERROR +1 ;CPU 
3938 015322 005037 177776 2$: CLR @¢177776 ;SET PSW TO KER MODE 
3939 015326 022706 001000 CMP SSTBOT ,R6 IS KER SP CORRECT 
3940 015332 001401 BEQ 3$ GO ON 
3941 NO GO TO ERROR 
3942 015334 104001 ERROR +1 CPU nal 
3943 015336 3$: 
3944 015336 000167 000206 JMP MTSO 
; 
3946 ;ROUTINE TO CHECK STACKS AFTER TWO RTS STATEMENTS 
01 012737 040000 177776 CHECK: MOV #40000 , 8177776 ;SET PSW TO SUP MODE 
3949 015350 004767 000044 JSR PC, CHECK : TEST SUP, KER, AND USE STACKS 
3950 015354 022716 000000 RET2: CMP #0, (SP) ;IS SUP STACK CLEARED 
3951 015360 001401 BEQ 1$ ;YES GO ON 
3 NO GO TO ERROR 
3953 015362 104001 ERROR +1 ;CPU ERROR 
3954 015364 012737 140000 177776 1%: MOV #140000 , 84177776 :SET PSW TO USE MODE 
3955 015372 022716 000000 #0, (SP) :IS USE STACK CLEARED 
3956 015376 001401 BEQ 2$ ‘YES GO ON 
3957 ‘NO GO TO ERROR 
3958 01 104001 ERROR +1 ;CPU 
3959 01 005037 177776 2$: CLR 96177776 ;SET PSW TO KER MODE 
3960 015406 022716 015266 CMP @RET1, (SP) :DOES KER STACK HAVE CORRECT DATA 
961 015412 001401 BEQ 3$ S GO 
3962 NO GO TO ERROR 
3963 015414 104001 ERROR +1 sCPU enn 
3964 015416 000207 3$; RTS PC ; RETURN 
+ 
3966 ;ROUTINE TO CHECK STACKS AFTER ONE RTS 
3968 015420 012737 140000 177776 GHECK1: MOV #140000, 90177776 ;SET PSW TO USE MODE 
3969 015426 004767 000044 JSR PC, CHECK2 ; TEST KER _ AND USE STACKS 
3970 015432 022716 000000 RET3: CMP #0, (SP) :IS USE STACK CLEARED 
3971 015436 001401 BEQ i$ sYES GO ON 
39 NO GO TO ERROR 
3973 015440 104001 ERROR +1 ;CPU ERR 
3974 015442 005037 177776 i$: CLR 90177776 ;SET PSW TO KER MODE 
3975 015446 022716 015266 CMP @RET1, (SP) iIS KER STACK CORRECT 
3976 015452 001401 BEQ 2$ 
‘NO GO TO ERROR 
3978 015454 104001 +1 ;CPU 
3979 015456 012737 040000 177776 2%: MOV #40000 , 84177776 ;SET PSW TO SUP MODE 
3980 0 C ;1S SUP STACK CORRECT 


022716 015354 CMP @RET2 , (SP) 
3$ YES 
NO GO TO ERROR 





B / 
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SEQ 0079 


3983 015472 104001 ERROR +1 ;CPU ERROR 
3964 015474 000207 3$: RTS pC ; RETURN 
; 
3986 "ROUTINE TO CHECK STACKS AFTER ZERO RTS 
2988 015476 022716 015432 buECK2: CMP ss @RET3, (SP) ,IS USE STACK CORRECT 
3989 015502 001401 BEQ 1$ : 
NO GO TO ERROR 
3991 01 104001 ERROR +1 CPU 
3992 01 012737 040000 177776 i: MOV $40000 , 84177776 ;SET PSW TO SUP MODE 
015514 022716 015354 CMP @RET2, (SP) :IS SUP STACK CORRECT 
3994 015520 001401 BEQ 2$ 
3995 NO GO TO ERROR 
3996 015522 104001 ERROR +1 CPU 
3997 01 005037 177776 2$: CLR 9177776 ;SET PSW TO KER MODE 
3998 01 022716 015266 CMP @RET1, (SP) :IS KER STACK CORRECT 
3999 015534 001401 BEQ 3$ ;YES GO ON 
:NO GO TO ERROR 
4001 015536 104001 ERROR +1 ;CPU ERROR 
4002 01 012737 140000 177776 3%: MOV #140000 , 80177776 ;SET PSW TO USE MODE 
4003 015546 000207 RTS pc ; RETURN 
; 
4005 015550 SO: 
4008 015550 MMVCC: 
10 , TEST MOV CONDITION CODES - *«0- 
4011 015550 000277 SCC ; 
4012 015552 000244 CLZ ;CC=1011 
4013 01 012704 000000 MOV #0 ,R4 ;CC=0101, R4=0 
4014 O1 100403 BMI 1$ sERROR IF N FL 
4015 015562 BVS i$ SERROR IF V FLAG 
4016 015564 103001 BCC 1$ ; IF C FLAG CLEAR 
4017 015566 001401 BEQ 2$ ;SKIP IF Z FLAG SET 
= SHOULD=0101 
4019 015570 104001 1$ ol CPU 
15572 000277 2$: Scc 
4021 015574 000251 ‘WORD 251 ;CC=0110 
4022 015576 012704 100000 MOV #100000 ,R4 ;R4=100000, CC=1000 
4023 0 001403 BEQ 3$ SERROR IF Z SET 
4024 015604 102402 BVS 3$ SERROR IF V SET 
4025 103401 3$ SERROR IF C SET 
4026 015610 100401 4$ EXIT IF N SET 
4027 015612 104001 3$ ERROR +1 ;CPU 
;CC SHOULD= 1000 
4029 015614 4$ 
4034 015614 MBTCC: 
TEST BIT CONDITION CODES - *#0- 
4037 015614 005004 CLR R4 
01 005104 COM R4 ;R4=-1 
4080 Of i a cC#1011 
+} = 
4041 01 $3904 000000 BIT 0,R4 ;CC=0101 


100403 BMI N FLAG 
40a orsese lo2aoe BvS—StisédS SERROR IF V FLAG SET 
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SEQ 0080 
¢00060¢0000¢ DOUBLE OPERAND TESTS sesee000000004084 
BCC i$ ;ERROR IF C FLAG CLEAR 
BEQ 2$ SKIP IF Z FLAG SET 
1$: ERROR +1 ;CPU 
;CC SHOULD=0101 
2s: Scc 
.WORD 251 ;CC=0110 
100000 BIT #100000 , R4 ;CC=1000 
BE 3$ ;ERROR IF Z SET 
BVS 3$ sERROR IF V SET 
BCS 3$ sERROR IF C SET 
BMI 4$ EXIT IF N SET 
3$ ERROR +1 ;CPU E 
;CC SHOULD= 1000 
4$: 
MBCCC 
; TEST BIC CONDITION CODES - *#0- 
CLR R4 
COM R4 ;R4=-1 
SCC 
CLZ ;CC=1011 
177777 BIC #177777 ,R4 ;CC=0101 
BMI 1$ sERROR IF N FLAG 
BVS 1$ sERROR IF V FLAG SET 
40 1 BCC i$ ;ERROR IF € FLAG CLEAR 
4073 clk 001401 BEQ 2: SKIP IF Z FLAG SET 
4074 015710 104001 1$: ERROR «1 ;CPU ERROR 
4075 ;CC SHOULD=0101 
4076 015712 005104 2$: COM R4 ;R4=-1 
4077 015714 000277 Sscc 
4078 ites 000251 .WORD 251 ;CC=0110 
4079 015720 042704 077777 BIC #77777 ,R4 ;CC=1000 
001403 BEQ 3$ ;ERROR Z SET 
4081 015726 102402 BVS 3$ sERROR IF V SET 
015730 103401 BCS 3$ ;ERROR C SET 
4083 01 100401 BMI 43 EXIT IF N SET 
4084 015734 104001 3$: ERROR +i ;CPU 
4085 ;CC SHOULD= 1000 
4086 015736 4$: 
4087 
pret 015736 MBSCC 
4093 ; TEST BIS CONDITION CODES 
4094 015736 005004 CLR R4 ;R4=0 
4095 015740 000277 SCC 
4096 015742 000246 -WORD 246 ;CC=1001 
4097 015744 052704 000000 BIS #0 ,R4 3;R420, CC=0101 
100403 BMI 1$ ; IF MINUS 
102402 BVS i$ ;ERROR IF V SET 
4100 01 103001 BCC i$ ; IF C CLEAR 
4101 01 001401 BEQ 2$ BRANCH IF GOOD 
rte 1 i$: +1 ;CPU 
;BIS CC FAILED 


41 
4104 015762 000277 2s: scc 





4105 015764 


000241 
052704 
001403 
102402 
103401 
100401 
104001 


100076 


077777 


3$: 
4$: 


i$: 
2s: 


3$: 
4$: 


MCTSCC: 


| 5 RES ESEEESES. ERRKEEREAAAEREAREARAEAESEESRAEREEEEEESEEEEEE REESE SS 
00 - ##00 - #00 


;01 


1$: 
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CLC ;CC=1110 
BIS #100076 ,R4 :R4=100076, CC=1000 
BEQ 3$ SERROR IF Z SET 
BVS 3$ ;ERROR IF V SET 
BCS 3$ ;ERROR IF C 
BMI 4$ BRANCH IF GOOD 
ERROR +1 ;CPU 

;BAD BIS CC 
TEST DEC, INC CONDITION CODES 
HOV $77777 ,R4 3R4=77777 
SEC ;CC=0001 
INC R4 -R4=100000, CC=0011 
BEQ i$ SERROR IF ZERO 
BPL i$ :ERROR IF POSITIVE 
BVC 1$ -ERROR IF V CLEAR 
BCS 2$ ‘BRANCH IF GOOD 
ERROR +1 CPU 
cee ;INC FAILED 
INC R4 :R4=100001, CC+1000 
BCS 3$ sERROR IF € SET 
BVS 3$ ;ERROR IF V SET 
DEC R4 :R4=100000, CC=1000 
BVS 3$ sERROR IF V SET 
BCS 3$ -ERROR IF C SET 
scc 3 
WORD ;CC=0101 
DEC R4 :R4=77777, CC=1011 
BEQ 3$ ERROR IF Z SET 
BVC 3$ IF V CLEAR 
BCC 3$ ‘ERROR IF C CLEAR 
8PL 4$ :BRANCH IF GOOD 
ERROR +1 


;CPU 
;BAD CC 


TEST CLR, TST, SWAB CONDITION CODES 


SCC 

CLZ ;CC=1 

CLR R4 ee. tt c=0100 

BMI i$ ; IF 

BVS i$ fe IF V SET 
BCS i$ ;ERROR C SET 

BEQ 2$ BRANCH IF GOOD 

ERROR +1 


;CPU 
;BAD CC ON CLR 


SEQ 0081 





4172 016106 


sins 016124 
4181 016126 
130 


4187 
4188 016142 
4189 
4190 
4193 016142 
4194 
4195 
4196 016142 
4197 016146 
4198 016152 
4199 016154 
4200 016156 
4201 016160 
4202 016162 


4214 016206 
4215 016210 
4216 016212 
4217 016214 
4218 

4219 016216 
4220 


4221 
4224 016216 
4225 


4226 
4227 016216 
4228 016222 
ue Site 
4231 016280 
4232 


016232 


04 


077777 
000001 


177777 


2s: 


3$: 
4$: 


1$: 
2$: 


COM R4 
SCC 
TST R4 
BEQ 3$ 
BVS 3$ 
BCS 3$ 
4$ 
ERROR +1 
SCC 
SWAB R 
BVS S$ 
BCS S$ 
6$ 
ERROR +1 


TEST ADD CONDITION CODES 
MOV #77777 ,R4 
MOV #1,R1 
ccc 

ADO R4,R1 
BVC 1$ 
BCS 1$ 
BEQ i$ 
BMI 2$ 
ERROR +1 
INC R4 
ADO R4,R1 
BYC $ 
BCC 3$ 
BEQ 4$ 
ERROR +1 
ADD R4,R1 
BVS 5$ 
BCS 5$ 
BMI 6$ 
ERROR +1 


ia’ ADC ers CODES 
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;R4=-1 

;CC=1111 

;CC=1 

;ERROR IF Z SET 

s;ERROR IF V SET 

; IF C SET 

BRANCH IF GOOD 
;BAD TST CC 

fers, 

; = 


;CPU ERROR 
;BAD SWAB CC 


3R4=77777 
;Ri=1 
;CC=0000 
s77777 + 1 = 100000 IN Ri 
; IF V CLEAR 
; IF CARRY 
eee =, SET 
;CPU ERROR 
;CC SHOULD =1010 


;CPU 

;CC SHOULD = 0111 
30 « 100000 = 100000 
s;ERROR IF V SET 


MO 9177777 ,R4 sR4=177777 

SCC sCC=1111 

ADC =O «R84 :R4=0 CC=0101 
BMI «i$ ; MINUS 
BVS ssi sERROR IF V SET 
Bcc Os sERROR IF C SET 


SEQ 0082 





F7 


4233 016234 
4234 01 


4290 016372 
4291 016374 


001401 
104001 


077777 


077777 


077777 
170000 


is: 


3$: 
4$: 


1$: 
2s: 


3$: 
4$: 


5$: 
6$: 


BEQ 2$ 
ERROR 


+ 


MOV #077777 ,R4 


CLV 

ADC R4 
BPL 3$ 
BCS 3$ 
BEQ 3$ 
BYVS 4$ 
ERROR +1 
SCC 

ADC R4 
BVS 5$ 
BCS 5$ 
BMI 6$ 
ERROR +1 


TEST NEG, CMP, C 
MOV 8077777 ,R4 
ccc 

NEG R4 

BVS i$ 

Bcc i$ 

BEQ i$ 

BMI 2$ 

ERROR > | 

CLR R4 

ccc 

NEG R4 

BMI 3$ 

BCS 3$ 

BVS 33 

BEQ 4$ 

ERROR +1 


MOV 44 abd R4 


R4,R1 

BYC S$ 
BCC S$ 
BEQ S$ 
BMI 6$ 
ERROR +1 
CCC 

COM Ri 
BMI 


170000 ,R1 
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BRANCH IF GOOD 
;CPU ERROR 
;BAD ADC 
3;R4=077777 


cC=1101 
Rd=100000 CC=1010 
ERROR IF PLUS 


3R4=77777 
;CC=0000 
3;R4=100001 CC=1001 
; IF V SET 
sERROR IF C CLEAR 
; IF Z SET 
” ‘eee IF GOOD 
;BAD NEGATE 
3R4=0 
;CC= 
;CC=0101 
;ERROR N SET 
;ERROR IF C SET 
EACH IF GOOD 
;CPU ERROR 
;BAD NEG 
3;R4=77777 
3;R1=170000 


;CC=0000 _ 
377777 - 170000 = 107777 CC= 1011 
;ERROR AR 
;ERROR IF C CLEAR 
: ZERO 
;BRANCH IF GOOD 
;CPU ERROR 
;BAD CMP 


3R1*7777 
;ERROR IF 


SEQ 0083 





4292 016376 
6400 


4304 
4307 016416 
4308 


4309 
4310 016416 
4311 016422 


4344 016506 
4345 016510 
4346 016512 
4347 016514 
4348 

4349 016516 
4350 016520 
4351 016522 
4352 016524 


077775 
137757 


000012 


100000 


i$: 
2$: 


3$: 
4$: 


i$: 
2s: 
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BEQ 7$ ;ERROR IF ZERO 
BCC 7$ | ;ERROR IF CARRY 
BVC 8$ BRANCH IF ~"™ 
ERROR +1 ;CPU 

;BAD COM 
SCC 
COM Dy 
BMI 10$ -_ IF GOOD 
ERROR + ;CPU E 

;BAD COM 
TEST SUB CONDITION CODES 
MOV 877775 ,R4 ;R4=77775 
ccc ;CC=0000 
SUB #137757 ,R4 377775 - 137757 

sTRY TO CAUSE AN ARITHMETIC OVERFLOW 

BYC i$ ;ERROR 
BPL 1% sERROR IF RESULT IS POSITIVE 
BEQ 1$ ; ERROR Z SET 
BCS 2$ BRANCH IF GOOD 
ERROR +1 ;CPU 

;BAD SUBTRACT 
MOV #5,R4 ;R4=5 
CCC ;CC=0000 
SUB #12,R4 ;5-12=-5 AND SETS CARRY 
BCC $ sERROR IF CARRY CLEAR 
BVS 3$ sERROR IF OVERFLOW 
BEQ 3$ ;ERROR IF 
BMI 4$ BRANCH IF GOOD 
ERROR +1 ;CPU 

; SUBTRACT FAILED 
TEST SBC CONDITION CODES 
MOV #100000 , R4 ;R4=100000 
CcCc ;C=0000 
SBC R4 ;TRY TO SET V 
BPL i$ sERROR IF N CLEAR 
BVS i$ ;ERROR IF V SET (HAVENT SET C YET) 
SEC sCC SHOULD = 1001 
SBC R4 ;TRY AGAIN TO SET V 
BYC i$ ;ERROR IF V CLEAR 
BCS 1$ sERROR IF C SET 
BPL 2$ BRANCH IF GOOD 
ERROR +1 

;SBC FAILED 
CLR R4 ;R4=0 
ae CC=1110 

3 =z 

SBC R4 sTRY TO CAUSE C FLAG FAILURE 


SEQ 0084 





COKDAFO KDJ11-8 CLUSTER DIAG. MACRO VOS.03 Friday 28-Mar-86 13:30 Page 14-66 
¢0e6006¢0¢6¢ DOUBLE OPERAND TESTS #ee¢00440404640444 


SEQ 0085 


4353 016526 103410 Bcs 0tis38 SERROR IF C SET 
4354 016530 102407 BVStié8S$: TERROR IF V SET 
4355 016532 001006 BNE 38 ‘ERROR IF NOT ZERO 
016534 1 SEC ‘SET CARRY 
4357 016536 SBC Ot«éirRKA ‘NOW, O - CARRY = 177777 
016540 103003 BCC Ot«#STSS IF CARRY CLEAR 
016542 102 BVStié8S$ TERROR IF V SET 
360 016544 001401 BEQtsé83$ ‘ERROR IF ZERO 
4361 016546 100401 BMI «4 ANCH IF GOOD 
4362 016550 104001 33: ERROR +1 ;CPU 
4363 ;SBC FAILED 
4364 016552 4$: 
4365 
4366 
4369 016552 MRLCC: 
4371 , TEST ROL CONDITION CODES 
4372 016552 012704 060000 MOV. #60000,R4 5R4= 0110000000000000 
4373 016556 000257 ccc CC 
4.74 016560 006104 ROI R4 ‘R4= 1100000000000000 
16562 103402 Bcs Sti: ; 
4376 016564 102001 BvcOs«édS ‘ERROR IF V CLEAR 
4377 016566 100401 2§ 
4378 016570 104001 1$: ERROR 1 
4379 ;ROL FAILED 
4380 016572 006104 2$: ROL R4 TR4= 100000000000000. 
4381 016574 103002 BCC Ot«é«S8¢S ‘ERROR IF CARRY CLEAR 
4382 016576 102401 BvSStié88$; ‘ERROR IF V SET 
4 100401 43 BRANCH IF GOOD 
4384 016602 104001 3$ ERROR +1 ;CPU ERROR 
‘BAD ROL 
006104 4s R4 sR4 = 0000000000000001 
38 102003 BveOtié*SS S$ ‘ERROR IF V CLEAR 
4388 016610 103002 BceOté«é*SS ‘ERROR IF C CLEAR 
16612 100401 5§ TERROR IF MINUS 
4390 016614 001001 BNE  6$ cnet IF 000 
4391 016616 t S$ ERROR «1 :CPU ERR 
4393 016620 006104 6$ RA ;R4=000000000000011 
4394 016622 102402 BvVS—tsé78 TERROR IF V SET 
4395 016624 103401 Bcs 6Stié7#8 ‘ERROR IF C SET 
4395 016626 100001 BPLt(‘éRSS BRANCH IF GOOD 
4397 016630 104001 7%: ERROR 4 ;CPU ERROR 
4398 SBAD ROL 
4399 016632 8S: 
4400 
4401 
4404 016632 MRRCC: 
4405 
4406 TEST ROR CONDITION CODES 
4407 016632 012704 000003 MoV. «@3,R4 sR4= 0000000000000011 
4408 016636 000257 ccc 'CC= 0000 
4409 016640 006004 ROR RA Rae 
4410 016642 103002 eccOti«é‘dL'S TERROR IF NO CARRY 
4411 016644 102001 BveOsédS TERROR IF V CLEAR 
4412 O1 100001 BPLi(‘éiéiS BRANCH IF GOOD 
4413 016650 104001 i$: ERROR 1 ,CPU ERROR 


EE aes 





sake 016706 
4433 016710 
4434 


4435 
4438 016710 
4447 
4448 
4449 


4450 016710 
4451 016714 





012701 


045252 


125252 


052522 


2$: 


3$: 
4$: 


5$: 
6$: 


7$: 
8$: 


XxCBIT: 


ROR R4 
BCC 3$ 
BVS 3$ 
BMI 4s 
ERROR +1 
ROR R4 
BVC S$ 
BCS S$ 
BMI 6$ 
ERROR +1 
ROR R4 
BVS 7$ 
BCS 7$ 
BPL 8$ 
ERROR +1 


TEST C BIT WITH ROR/ROL 
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;ROR FAILED 


SEQ 0086 


;R4= 1 


;R4= 011000000000000 
; ERROR 


IF V SET 


;ERROR IF C SET 
;BRANCH IF 


GOOD 


: COSC OSe eee eee Cee a teeter PAT INTERIM TO TE Jil. 
TO 


a TEST IS TO CHECK FOR A SLOW C BIT 


i$: 


2s: 


a) DATA CHIP 


PATH INTERNAL 

EM IS ONLY EXHIBITED ON EARLY MASK SETS (1590 AND 159 
OM MOV #52525,R1 ;INIT Ri WITH DATA 
CLC ;CLEAR THE 
ROR Ri ;R1=025252, C BIT = 
ROR Ri ;R1i=112525, C BIT =0 
ROR Ri sR1=045252, C BIT =1 
ae 7 ;BRANCH IF CARRY BIT SET 

CMP €45252,R1 31S DATA IN Ri = TO EXPECTED DATA? 
BEQ 2s BRANCH IF YES 
ERROR +1 

MOV #125252 ,R1 ;SET UP R1 

CLC ;CLEAR THE CARRY BIT 

ROL Ri 3;R1=052524, C BIT =1 

ROL Ri 3;R1=125251, C BIT =0 

ROL Ri 3;R1=052522, C BIT =1 
BCS 3$ BR Y 

ERROR +1 

aA — RL :IS DATA IN R1 = TO EXPECTED DATA? 

+1 ;CPU ERROR 


Ree ———- 
‘C=0 R4= 1100000. - 
;ERROR 


IF CARRY 


4481 017002 


pet 017066 
4519 017070 
4 7074 


4529 017114 
4530 017116 
4531 

4532 017120 
4533 017122 
4534 017124 
4S35 017126 
4536 017130 
4537 017134 
4538 017136 


000341 


100001 


170016 


1$: 
2$: 


3$: 
4$: 


5$: 
6$: 


7$: 


BVC 


R4 
1$ 
1$ 
2$ 
+1 


SePnces me 


#170016 ,R4 
8$ 
+1 
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sERROR IF V CLEAR 
;BRANCH IF GOOD 

;ASL FAILED 
;C=1 R4= 1000000000000000 
;ERROR IF CARRY CLEAR 
;ERROR IF V SET 
;BRANCH IF GOOD 

;CPU 

;BAD ASL 
;C=1 R4= 
;ERROR IF V CLEAR 
fast + C CLEAR 
;BRANCH IF GOOD 

;CPU 

;BAD 
;C=0 R4= 
;ERROR IF V SET 
+ ER ANCH IF GOOD 

;CPU ERROR 

;BAD ASL 


:R4= 0000000011100001 


;R4= 1000000001110001 
3R4= 1100000000111000 
;ERROR IF CARRY CLEAR 
;ERROR me SET 


3 CPU erriR 


;BAD ASR 
;R4= 1110000000011100 
sERROR Ir V 
;ERROR JF C SET 


BRANCH TF GOOD 
sCPU ERROR 


;BAD ASR 
R4= 1111000000001110 
ERROR IF V CLEAR 


ERROR IF PLUS 

SEE IF EXPECTED RESULT 
BRANCH IF GOOD 

;CPU ERROR 
;BAD ASR 


SEQ 0087 








K 7 
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SEQ 0088 


4540 017140 8s: 
4541 
4542 
4545 017140 MSXTCC: 
TEST SXT CONDITION CODES / -#0- 
4548 017140 012704 123456 MOV #123456,R4 R4=123456 
4549 017144 91401 MOV —séR4RIL ;SAVE CONTENTS 
4550 017146 000237 ccc ‘CC=0000 
4551 017150 006704 SXT 4 ‘R4=0 CC=0100 
4552 017152 103403 Bcs 6—tséd'$ TERROR IF CARRY 
4553 017154 100402 1$ ‘ERROR IF MINUS 
17156 102401 BVS sa TERROR IF OVERFLOW 
4555 017160 001401 BEQStéltS ‘BRANCH IF GOOD 
4556 017162 104001 1$: ERROR +l ;CPU ERROR 
4557 ‘BAD SXT 
4558 017164 010104 23: MOV RI,R4 SRESTORE R4 
4559 017166 000277 SCC ;CC#1111 
4560 017170 006704 SXxT sR ‘R4=-1 CC=1001 
4561 017172 001405 BEQtié8$ ‘ERROR IF ZERO 
4562 017174 100004 BPLSti‘é#RS ‘ERROR IF PLUS 
4563 017176 103003 BCC Ot«é«S8S$ ‘ERROR IF NO CARRY 
4564 017200 102402 BvVStié#8S; TERROR IF OVERFLOW 
4565 017202 005104 COM Osi ‘R420 
4566 017204 001401 SEQ tiéS BRANCH IF GOOD 
4567 017206 104001 3$ ERROR +1 sCPU 
4568 SBAD SXT 
4569 017210 43: 
4570 
4571 
4574 017210 MXRCC: 
4576 TEST XOR CONDITION CODES / ##0- 
4577 017210 012704 123456 MOV #123456,R4 5R4=123456 
4578 017214 012701 052525 MOV #52525,R1 
4579 017220 000257 ccc 
4580 017222 074104 XOR —swRL. RA 
4581 017224 102403 BvS—Stiséid'S 
4582 017226 001402 BEQStiédSS 
4583 017230 103401 acs ~Stiéi'S 
4584 017232 100401 BMI —s-2$ 
4585 017234 104001 1$: ERROR el 
4587 017236 012701 125252 2$ MOV —s-: #125252, R1 
4588 017242 000277 SCC 
4589 017244 074104 XOR «wR RA 
4590 017246 100403 BMI «38 
4591 017250 001402 BEQti‘#SSS 
4592 017252 103001 Bcc t«éS8S; 
4593 017254 102001 BvcOt«éS 
4594 017256 104001 $$: ERROR +1 
4596 017260 074404 43:  XOR  R4,R4 
4597 017262 102406 avs Stié*SS 
4598 017264 100405 BMI s«45$ 
7266 1 acc .Ott«é*SSS$ 





4599 01 03004 
4600 017270 001003 BNE S$ 





4601 017272 


01 
4661 017406 


4663 017410 
4664 017414 
4665 017416 


022704 000000 


001401 
104001 


000055 


177777 


177777 


177777 
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CMP 00 ,R4 ;SEE IF EXPECTED RESULT 
5EQ 6$ BRANCH IF ‘00D 
S$: FRPCR ol ;CPU ERROR 
;BAD XOR 
6$: 
; 
MSXT: 
; TEST SXT (SIGN EXTEND INSTRUCTION) 


;0N A TRANSITION FROM ZERO INT T p 
; IS ONLY EXHIBITED ON EARLY MASK SETS (1590 OR 1593) 
CLR R4 ; R4 
ccc ;CC=0000 
“WORD 271 ;CC=1001 
SxT R4 :#TEST INSTRUCTION 
BVS i$ ; IF OVERFLOW IS NOT CLEARED 
i$ :BRANCH TF N BIT EFFECTED 
BEQ 1$ ;BRANNCH IF Z BIT EFFECTED 
Bcc 1 ;BRANCH IF C BIT EFFECTED 
BEQ 2$ ;BRANCH IF R4 =0 
1$: ERROR +1 ; 
;CC SHOULD HAVE = 1101 
es: SCC 
CLN ;CC=0111 
CLR R4 
MOV #55, (R4) ; TRASH R4 
SXT CR4) ;@TEST INSTRUCTION 
BNE 3$ :BRANCH IF BIT EFFECTED 
BVS 3$ ;BRANCH IF OVERFLOW 
BCS 3$ ; 
BMI 3$ ;BRANCH IF N IS SET 
TST (R4) SVERIFY INSTRUCTION WORKED 
BEQ 4$ ;BRANCH IF R4=0 
3$: ERROR +1 ;CPU 
>SXT FAILED 
; NOW TEST FOR SLOW N BIT IN Jil DATA CHIP 
4$ MOV #-1,RO ;RO=177777, N BIT = 1 
CLR R4 ;CLEA N BIT 
SXT RO ;aeaeTEST INSTRUCTIONess 
;TEST N BIT TRANSITION 1 TO O 
TST RO ;RO SHOULD = 0 
BEQ S$ ;BRANCH IF OK 
ERROR +1 ;CPU 
S$: CLR RO :CLEAR RO, N BIT = 0 
MOV #-1,R4 :SET N BIT 
SXT RO ;#aeTEST INSTRUCTIONsess 
-TEST N BIT TRANSITION © TO 1 
CMP #-1,R0 :RO SHOULD = 177777 
BEQ 6$ :BRANCH IF OK 
ERROR «1 ;CPU 


SEQ 0089 





M/ 


4666 017420 
4670 017420 
467 


4693 017476 
4694 
4695 017500 
4696 





v07643 
133333 


134570 


007643 


000555 


000010 


6$: 
MXOR: 


1$: 
2$: 


3$: 
4$: 


1$: 


3$: 


2$: 
4$: 


TEST XOR 
MOV #7643,R1 
MOV $133333,R4 
SCC 
XOR R4,R1 
BPL 1$ 
BEQ 1$ 
BCC 1$ 
BVS 1$ 
CMP R1, #134570 
BEQ 2$ 

+1 
MOV R1,R2 
ccc 
XOR R4,R2 
BMI 3$ 
BVS 3$ 
BCS 3$ 
CMP R2, 97643 
BEQ 4$ 
ERROR +1 
TEST SOB 
MOV #555 ,R4 
SCC 
BCC 2$ 
BYC 2$ 
BPL 2s 
BNE e$ 
S08 R4,1$ 
BCC 3$ 
BYC 3$ 
BPL 3$ 
BNE 3$ 
JMP 4$ 
ERROR +1 
UMP 4$ 
ERROR +1 
CMP R4,00 
BEQ S$ 
ERROR 
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;SETUP DATA 
;SETUP DATA 


;#TEST INSTRUCTION 


s;BRANCH IF PLUS TO ERROR 
;ERROR I 
;ERROR IF CARRY CLEAR 


;#TEST INSTRUCTION 
ERROR MINUS 


‘ERROR IF OVERFLOW 
s;ERROR IF CARRY 


: 

;#TEST INSTRUCTION 
;ERROR IF CARRY CLEAR 
s;ERROR IF NO OVERFLOW 
;ERROR IF PLUS 
;ERROR 


CPU ERROR 
,CC EFFECTED DURING TEST 


CPU ERROR 
.CC EFFECTED AFTER TEST 
“IS R4 CORRECT 
;YES GO 
cpu 
;NO GO TO ERROR 


ERROR IF V SET 
;VERIFY CORRECT RESULT 
ANCH IF GOOD 


SEQ 0090 


N7 
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4729 017554 
3750 

4731 

4732 017554 
4733 017560 
4734 017566 
4735 017572 
4736 017576 
4737 017600 
4738 

4739 017602 
4740 

4741 017604 
4742 017606 
4743 017610 
4744 

4745 017612 
4746 017614 


4 

4768 017664 
4769 017666 
4770 017670 
477 017672 
773 

4774 017674 
4775 017700 


4777 017702 
4778 017704 
4779 017710 
4780 

4781 017712 


4782 017714 
pos 017714 


478 


125252 


001000 


001000 


000776 


15$: 


6$: 
5$: 


16$: 


eee0eeeeee6e¢ DOUBLE OPERAND TESTS #400404680404444¢ 


MARK INSTRUCTION TEST 
MOV 


MOV 
MOV 


SEQ 0091 


8STBOT-100, SP ;SETUP TEST STACK = 700 
3125252, a¢STB0T -2 ‘SET UP NEW RS VALUE ON STACK 
$1$,R5 ‘PUT NEW PC IN RS 
#MARK+37, -(SP) S INSERT MARK 37 INSTRUCTION ONTO STACK 
(SP) ;* TEST INSTRUCTION 
MARK INSTRUCTION SHOULD HAVE GONE TO 1$ 
a SCPU ERROR 
2$ SERROR IF C OR Z BIT CLEAR 
5§ TERROR IF N BIT CLEAR 
3$ ‘BRANCH IF V BIT SET 
' i OAD CONDITION CODES ON MARK 
#125252,R5 ' VERIFY 5 
el CPU ERROR 
SP ¢STBOT VERIFY THAT STACK IS CORRECT 
TERROR! STACK WAS NOT CORRECT AFTER MARK 
“ SCPU ERROR 
#52525, -(SP) ;SETUP EXPECTED RS 
86400. -(SP) ‘MOVE MARK © INSTRUCTION ON STACK 
SP RS TR5= OF INSTRUCTION 
PC’S$ ‘LEAVE 6$ ON STACK 
16$ ;MARK RETURNED CORRECTLY 
SCLEAR THE CONDITION CODES 
RS TRETURN TO MARK INSTRUCTION 
INEXT INSTRUCTION ON STACK IS THE RETURN 
1 BAD MARK SEQUENCE 
+1 ;CPU ool 
7% ;IS C OR Z BIT SET? 
7% ‘IS N BIT SET? 
Bs ‘IS V BIT SET? 
ERROR! CONDITIONS CODES INCORRECT 
“1 SCPU ERROR 
R6, @STBOT ,IS THE STACK CORRECT? 
$ ; BRANCH 
; py enrigror! 88 STACK CLEANUP 
952525 ,RS iVERIEY THAT RS. WAS LOADED PROPERLY. 
10$ GO TO NEXT TEST. 
: RS WAS NOT CORRECT AFTER MARK. 
“1 ;CPU enn" 


TEST CLEAR CONDITION CODES INSTRUCTION 








BS 
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SEQ 0092 


4788 017714 012737 030017 177776 MOV «#30017, 90177776 ;SETUP PSW 
4789 017722 7 ccc ‘TEST INSTRUCTION 
4790 017724 022737 030000 177776 CMP «#30000, 99177776 ‘DID IT CLEAR ALL CONDITION CODE BITS 
4791 017732 001401 BEQSté«é«S ‘YES GO ON 
4792 01 104001 ERROR +1 ;CPU ERROR 
4 ‘NO GO TO ERROR 
4794 017736 1s: 
4795 ; 
4797 017736 XME101: 
4800 , TEST CLEAR C BIT INSTRUCTION 
4801 01 012737 030017 177776 MOV #30017,90177776 ;SETUP PSW 
4802 0177 CLC ‘TEST INSTRUCTION 
480% 017746 022737 030016 177776 CMP —«- #30016, 8177776 ‘DID IT CLEAR CARRY BIT 
4804 O1 001401 BeEQSté«dS ‘YES GO ON 
4805 arg BT NOT CLEAR GO TO ERROR 
01 104001 ERROR +1 ;CPU 
4807 017760 i$: 
4811 017760 tE102 
48 TEST CLEAR N BIT INST (CLND 
4813 01 012737 030017 177776 MOV. #30017,90177776 ,SETUP PSW 
4814 017766 ‘TEST INSTRUCTION 
4815 017770 022737 030007 177776 CHP —«-#30007,9#177776 ‘DID IT CLEAR NEGATIVE BIT 
4816 017776 001401 BEQStiéd;S YES GO ON 
17 020000 1 ; sCPU 
4818 ‘NO GO TO ERROR 
4819 020002 1$: 
4823 020002 $€103 
; TEST CLEAR V BIT INST (CLV) 
020002 012737 030017 177776 MOV #30017,0177776 ;SETUP PSW 
4826 020010 CLV ‘TEST INSTRUCTION 
4827 020012 022737 030015 177776 CHP —«-#30015,90177776 ‘DID IT CLEAR OVERFLOW BIT 
020020 001401 BQ Stiéd'S YES GO ON 
4829 020022 10400 el sCPU 
‘NO GO TO ERROR 
1 020024 1$: 
4838 020024 E104 
4936 TEST CLEAR Z BIT INST (CLZ) 
020024 012737 030017 177776 MOV. #30017,90177776 ;SETUP PSW 
4838 020032 CLZ STEST INSTRUCTION 
4839 020034 022737 030013 177776 CHP -«s«@30013, 9177776 ‘DID IT CLEAR ZERO BIT 
4840 020042 001401 Bea Stiéd;‘S YES GO ON 
4841 020044 10400 ERROR +1 sCPU 
4842 ‘NO GO TO ERROR 
4843 020046 1$: 
4ga4 
4847 020046 fE105: 
4848 TEST SET CONDITION CODES INST (SCC) 
4849 020046 012737 030000 177776 MoV #30000,00177 SSETUP PSW 
920054 000277 SCC ‘TEST INSTRUCTION 
i 022737 030017 177776 CMP s«@ 30017, 94177776 ‘DID IT SET ALL CONDITION CODE BITS 
020064 001401 BEQStiédLS YES GO ON 
930066 ERROR «1 sCPU 
4854 ‘NO GO TO ERROR 
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eeeeeeeseses DOUBLE OPERAND TESTS seeeeeeee08008444 


4855 020070 1s: 
4859 020070 fE106: 
4860 ; TEST SET C BIT INST (SEC) 
MOV -#30000,9#1777 ; SETUP 


4861 020070 012737 030000 177776 
76 000261 


PSW 
; TEST INSTRUCTI 


4862 0200 SEC ION 
4863 020100 022737 030001 177776 CMP -—«s:«@ 30001, 84177776 ‘DID IT SET THE CARRY BIT 
4864 020106 001401 BEQStiéd S YES GO ON 
4865 020110 104001 ERROR +1 SCPU 
‘NO GO TO ERROR 
4867 020112 1$ 
4871 020112 $€107 
TEST SET N BIT INST (SEN) 
487% 020112 012737 030000 177776 MOV #30000, 98177776 ;SETUP PSW 
4874 020120 000270 SEN ‘TEST INSTRUCTION 
4875 020122 022737 030010 177776 CMP s« 30010, 84177776 ‘DID IT SET THE NEGATIVE BIT 
4876 020130 001401 BEQSté«‘é«AS YES GO ON 
4877 020132 104001 ERROR 1 sCPU 
‘NO GO TO ERROR 
4879 020134 1$ 
4883 020134 TE110: 
; TEST SET V BIT INST (SEV) 
4885 020134 012737 030000 177776 MOV #30000, a¢ :SETUP PSw 
4886 020142 000262 SEV TEST INSTRUCTION 
4887 020144 022737 030002 177776 CMP —s«@ 30002, #177776 ‘DID IT SET THE OVERFLOW BIT 
4888 020152 001401 BEQStiédLSS YES GO ON 
4889 020154 104001 ERROR +1 sCPU 
‘NO GO TO ERROR 
4891 020156 i$ 
4895 020156 fE111: 
; TEST SET 7 BIT INST (SEZ) 
4897 020156 012737 030000 177776 MOV #30000,a0 ;SETUP PSW 
4898 020164 000264 ; TEST INSTRUCTION 
4899 020166 022737 030004 177776 CMP s«@ 300048177776 ‘DID IT SET THE ZERO BIT 
4900 020174 001401 BEQ Sti YES GO ON 
4901 020176 104001 ERROR +1 sCPU 
4902 ‘NO GO TO ERROR 
4903 020200 i$ 
4907 020200 fe112: 
; TEST MULTIPLE CLEARS OF CC BITS 
4909 020200 012737 030000 177776 MoV. #30000 SINIT PSW 
000277 SCC ‘SETUP PSW 
4911 020210 000243 243 TEST CLC CLV 
4912 020212 022737 030014 177776 CMP 0s: $30014,90177776 'PSW CORRECT? 
4913 020220 001401 BEQStéiéd S YES GO ON 
4914 020222 104001 ERROR #1 
4915 ‘NO GO TO ERROR 
4916 020224 000277 1s: sec SSETUP PSW 
4917 020226 000245 "WORD 245 TEST CLC CLZ 
4918 020230 022737 030012 177776 #30012, 80177776 ‘PSW CORRECT? 
4919 020236 001401 BEQStié?dS GO ON 
104001 ERROR 1 , 


SEQ 0093 





4936 302 
4937 020310 
4938 020312 
4939 


000277 
46 


022737 


030011 


030010 


030006 


030005 


030004 


030003 


030002 


030001 





030003 


177776 


177776 


177776 


177776 


177776 


177776 


177776 


177776 


177776 
177776 


es: 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


Scc 
.WORD 246 
CMP #30011 ,38#177776 - 
BEQ 3$ 
+1 
Sscc 
: 247 
CMP #30010 ,8¢177776 
BEQ 4$ 
+1 
Scc 
. 251 
CMP #30006 , 80177776 
BEQ 5$ 
+1 
SCC 
. 252 
CMP #30005 ,80177776 
BEQ 6$ 
+1 
SCC 
: 253 
CMP #30004 , 86177776 
BEQ 7$ 
ERROR +1 
SCC 
.WORD 254 
CMP #30003 , 84177776 
BEQ 8s 
ERROR +1 
scc 
.WORD 255 
CMP #30002 ,8%177776 
BEQ 9$ 
ERROR +i 
Scc 
. 256 
CMP #30001 ,80177776 
BEQ 10$ 


+1 


TEST MULTIPLE SETS OF CC BITS 
MOV #30000 , 80177776 


.WORD 26 

CMP #30003 , 84177776 
BEQ 1$ 
ERROR 


+ 
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;CPU ERROR 
s;NO GO TO ERROR 
;SETUP PSW 
; TEST CLC CLV CLZ 
;PSW CORRECT? 
YES GO 


;CPU 
;NO GO TO ERROR 


;CPU 
;NO GO TO ERROR 
; PSW 
; TEST CLN CLC CLV 
;PSW CORRECT? 
YES GO ON 
;CPU 
;NO GO TO ERROR 
;SETUP PSW 
; TEST CLN CLZ 
;PSW CORRECT? 
; 
;CPU ERROR 
;NO GO TO ERROR 
;SETUP PSW 
; TEST CLN CLC CLZ 
3;PSW CORRECT? 
YES GO ON 
;CPU 
;NO GO TO ERROR 
;SETUP PSW 
; TEST CLN CLV CiZ 
;SETUP PSW 
YES GO ON 
;CPU 
;NO GO TO ERROR 


;INIT_ PSW 
; TEST SEC SEV 
;PSW gl 


YES GO 
;CPU ERROR 


SEQ 0094 








030005 


030006 


030007 


030011 


030012 


030013 


030014 


030015 


030016 


177776 


177776 


177776 


177776 


177776 


177776 


177776 


177776 


177776 


1$: 


2$: 


3$: 


4$; 


5$: 


6$: 


7$: 


8$: 


9$: 


ccc 


265 : 
#30005 ,80177776 
st 


266 
etree 
+1 


267 
#30007 , #177776 
si 


271 
 ppeeimataaciles 
+i 


272 
#30012 ,8#177776 


273 
errs 
+1 


274 
ata celta 
+1 


275 
#30015 ,80177776 
+ 


276 
#30016 , 84177776 
* 
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;NO GO TO ERROR 
;SETUP PSW 
; TEST SEC SEZ 
;PSW CORRECT? 
;YES GO ON 


W 
; TEST SEV SEZ 
;PSW CORRECT? 
YES GO ON 
;CPU 
;NO GO TO ERROR 
;SETUP PSW 
; TEST SEC SEV SEZ 
3;PSW CORRECT? 
YES GO ON 
;CPU 
s;NO GO TO ERROR 
; PSW 
; TEST SEN SEC 
sPSW CORRECT? 
GO ON 


;CPU 
;NO GO TO ERROR 


;SETUP PSW 
; TEST SEN SEC SEZ 
3;PSW CORRECT? 


SEQ 0095 
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SEQ 0096 
eeee00008006 DOUBLE OPERAND TESTS *#e0¢844440044444 
5040 020642 TEL13A: 
5041 ; TEST SIGNED AND CONDITIONAL BRANCHES 
020642 000257 ccc : ;CLE. ALL CC BITS IN PSW 
5043 020644 002001 BGE 1$ SHOULD BRANCH 
020646 104001 ERROR +1 ;CPU 
5045 ;ERROR; DIDN'T BR 
5046 020650 003001 i$ BGT es BGT SHOULD BRANCH 
5047 020652 104001 ERROR +1 CPU 
;ERROR; DIDN'T BR 
5049 020654 003401 2$ BLE 3$ ;BLE 'T 
5050 020656 000401 BR 4$ BRANCH TO NEXT TEST 
5051 020660 104001 3$: ERROR +1 ;CPU 
sERROR; BLE SHOULD NOT HAVE BRANCHED 
5053 020662 002401 4$ BLT 5$ , ;BLT SHOULD NOT BRANCH 
5054 020664 000401 6$ BRANCH TO NEXT TEST 
5055 020666 104001 S$ ERROR +4 ;CPU ERROR 
sERROR; BLT SHOULD NOT HAVE BRANCHED 
5057 020670 000264 6$: ;SET THE Z BIT 
5058 0206 003401 BLE 7$ BLE SHOULD BR 
5059 020674 104001 ERROR +1 ;CPU ERROR 
sERROR; BLE DIDN’T BR 
5061 020676 003001 7$: BGT &$ ;BGT SHOULD NO 
5062 020700 000401 9$ BRANCH TO NEXT TEST 
5063 020702 104001 8$ ERROR +1 ;CPU ERROR 
s;ERROR; BGT SHOULD 
5065 020704 000257 9$ CCC sCLEAR ALL CC BITS IN PSW 
000270 ;SET N BIT 
5067 020710 002401 BLT 10$ ;SHOULD BRANCH TO NEXT TEST 
104001 + ;CPU ERROR 
;ERROR; BLT SHOULD HAVE 
5070 020714 003401 10$ BLE 11$ wk BRANCH TO NEXT TEST 
5071 020716 104001 +1 ;CPU 
sERROR; BLE SHOULD HAVE BRANCHED 
5073 020720 002001 11$: BGE 12$ ;BGE SHOULD NOT BRANCH 
5074 020722 00040" BR 13$ _ TO NEXT TEST 
5075 020724 10400. i2$ ERROR +1 ;CPU 
;sERROR; BGE SHOULD NOT HAVE BRANCHED 
13$ BGT 14$ ;68GT SHOULD NOT BRANCH 
BR 15$ we TO NEXT TEST 
14$ ERROR +1 ;CPU 
sERROR; BGT SHOULD NOT HAVE BRANCHED 
15$ ccc sCLEAR ALL CC BITS 
BLE «S ‘SFE SHOULD BRA 
+] ;CPU ERROR 
sERROR; BLE DIDN'T BRANCH 
16$ BLT .r eey BLT SHOULD BRANCH 
+ ; 
sERROR; BLT DIDN'T BRANCH 
17$ BGE 18$ : : ANCH 
BR 19$ BRANCH TO NEXT TEST 
18$: ERROR +1 ;CPU 
;ERROR; BGE SHOULD NOT HAVE BRANCHED 
19$: BGT 20$ ;BGT SHOULD NOT BRANCH 
BR 2i$ BRANCH TO NEXT TEST 
20$ ERROR +1 


CPU 
TERROR; BGT SHOULD NOT HAVE BRANCHED 





G8 
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SEQ 0097 
eseceesesese DOUBLE OPERAND IESIS seeseeseseesssess 
5097 020764 000257 21%: ccc ;CLEAR ALL CC BITS 
020766 000272 “WORD 272 | ;SET N AND V BITS IN PSW 
5099 020770 002001 BGE 22$ BGE SHOULD BRANCH 
5100 020772 104001 ERROR +1 CPU 
5101 ;ERROR; BGE DIDN'T BRANCH 
5102 020774 003001 22$: BGT 23% BGT SHOULD BRANCH 
5103 020776 104001 ERROR +1 sCPU 
ERROR; BGT DIDN'T BRANCH 
5105 021000 003401 23$ BLE 24$ ;BLE SHOULDN’ T 
1002 1 BR 25$ BRANCH TO NEXT TEST 
5107 021004 104001 24$ ERROR +1 CPU 
ERROR; BLE SHOULD NOT HAVE BRANCHED 
5109 021006 002401 25$ BLT 26$ ;BLT SHOULD NOT BRANCH 
5110 021010 000401 BR 27$ BRANCH TO NEXT TEST 
5111 021012 104001 26$ ERROR +1 CPU 
1 ERROR; BLT SHOULD NOT HAVE BRANCHED 
5113 021014 27: 
5116 021014 TE114: 
5117 , TEST NOP INST 
5118 021014 012737 030000 177776 MOV ‘ , 90177776 ;INIT PSW 
5119 021022 012700 000001 MOV #1,RO SINIT RO 
1 012701 000002 MOV $2,R1 SINIT Ri 
5121 021032 012702 000003 MOV #3.R2 ; INIT 
3 021036 012703 000004 MOV $4,R3 SINIT R3 
021042 012704 000005 MOV #5,R4 sINIT R4 
5124 021046 012705 000006 MOV $6 RS SINIT R5 
5125 021052 010637 003012 MOV R6. BPSLOCOO ;SAVE SP 
5126 021056 012737 030017 114146 MOV 930017, a#EXPDAT ;SETUP PSW 
5127 021064 000277 Scc :SET ALL CONDITION CODE BITS 
31 000240 NOP ; TEST INSTRUCTION 
1070 000240 NOP ; TEST INSTRUCTION 
: 1072 000240 NOP ; TEST INSTRUCTION 
131 021074 004767 000046 JSR PC,T114 ;CHECK PSW, AND GPR‘S 
132 021100 020637 003012 CHP , BOSLOCOO ;CHECK SP 
133 021104 001401 BEQ OK GO ON 
134 021106 ERROR +1 SCPU ERROR 
1 ;NO GO TO ERROR 
3136 021110 012737 030000 114146 1%: MOV #30000, @#EXPDAT ;SETUP PSW 
137 021116 000257 ccc ;CLEAR ALL CONDITION CODE BITS 
5138 1120 000260 “WORD 260 ; TEST FOR TION 
139 021122 000260 "WORD 260 ; TEST FOR TION 
5140 021124 000260 "WORD 260 ; TEST FOR TION 
141 021126 004767 000014 JSR PC, 1114 s CHECK PSW, AND GPR'S 
142 0211 003012 CMP R6 . BSLOCOO ;CHECK SP 
5143 021136 001401 BEQ 2¢ OK GO ON 
5144 021140 1 ERROR <1 ;CPU ERROR 
514 ;NO GO TO ERROR 
5146 021142 2$: 
5147 021142 000167 000104 JMP FINNOP 
$149 021146 023737 114146 177776 1114: CMP  aEXPDAT,@0177776 ;CHECK PSW 
5150 021154 001405 BEQ TA114 ;0K GO ON 
5151 021156 010067 157216 MOV RO, 400 SAVE RO 
5152 021162 104001 ERROR +1 ;CPU ERROR 
1 :NO GO TO ERROR 
5154 021164 016700 157210 MOV 400, RO ;RESTORE RO 
5155 021170 022700 000001 TA114: CMP #1,R0 ;CHECK RO 





H8 
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SEQ 0098 
eeeee0eeeeees DOUBLE OPERAND TESTS seeesesesesesesss 
5156 021174 001401 BEQ T8114 OK GO ON 
5157 021176 104001 ERROR +1 
1 ;NO GO TO ERROR 
5159 021200 022701 000002 78114: CMP #2,R1 ;CHECK R1 
5160 021204 001401 TC114 OK GO ON 
5161 021206 1 +1 
1 ;NO GO TO ERROR 
5163 021210 022702 o7o003 TC114: #3,R2 ;CHECK R2 
5164 021214 001401 T0114 OK GO ON 
5165 021216 10400 +1 
166 ;NO GO TO ERROR 
Stee 021220 022703 T0114: #4,R3 ;CHECK R3 
168 021224 001401 TF114 OK GO ON 
5169 021226 1 +1 ;CPU 
5170 ;NO GO TO ERROR 
5171 021230 022704 000005 TF1i14: #5,,R4 ;CHECK R4 
5172 021234 001401 T6114 OK GO ON 
51735 021236 1 i +1 ;CPU 
:NO GO TO ERROR 
75 021240 022705 000006 #6,R5 ; R5 
5176 021244 001401 TH114 OK GO ON 
5177 021246 1 1 
178 ;NO GO TO ERROR 
atop 021250 000207 $ 
5181 021252 000240 
5182 
5185 
5186 
5187 
5188 
5189 021254 005000 poccce- CLEAR------ 
5190 021256 005001 p----- PRIMARY - - -- 
5191 esises 005002 ; -----GENERAL ----- 
Si 1262 005003 3-----PURPOSE----- 
5193 021264 005004 po---- REGISTER---- 
5194 021266 005005 3-------SET------- 
5195 021270 012767 004000 156500 sseL ect ALTERNATE REGISTER SET 
5196 021276 032767 004000 156472 T TO SEE THAT BIT IS SET IN PS 
197 021304 001001 1$ IF IT’S SET GO TESTS REGISTERS 
198 021 +1 ;CPU 
F234 TERROR! ALTERNATE REGISTER SELECT 
;BIT IN PS IS NOT SET 
5201 021310 012700 177777 i$: 4177777 ,RO ;WRITE ALL ONES TO ALTERNATE REG SET 
520 O51316 910102 R1,Re 
e , 
Gstaes o10208 R2,R3 : 
021 010304 R3,R4 ; 
021 010405 R4,R5S ; 
seu 021 042767 004000 156442 $B1T11,PS ;CLeAR BIT 11 IN PS 
021 032767 004000 156434 #B1IT11,PS :1S BIT 11 = 0? 
aSs5 021342 001401 2$ IF IT'S NOT ZERO 
10 021344 +1 ;CPU 
asi ‘ERROR! or 11 DID NOT CLEAR 
021346 2$: RO SURE T REALLY 
ast petg is 001401 3$ WERE TALKING TO ALTERNATE REGISTERS. 
14 021352 1 1 ;CPU ERROR 
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5215 
5216 021354 005701 3$: TST 
$217 021356 001401 BEQ 
5218 021360 ERROR 
1362 005702 4$: TST 
$221 021364 001401 BEQ 
021366 ERROR 
1370 005703 S$: TST 
§225 021372 001401 FTQ 
1374 >L0R 
5227 
5228 021376 005704 6$: ST 
5229 021400 001401 a&Q 
seer 021402 1 1 
S23< 921404 005705 7$: TST 
02i406 001401 BEQ 
5234 021410 104001 ERROR 
5236 021412 012767 004000 156356 8%: MOV 
5237 021420 005000 
5238 021 005001 CLR 
5239 021424 005002 CLR 
1 005003 CLR 
5241 0214 005004 CLR 
021432 005005 CLR 
021434 042767 004000 156334 BIC 
021442 012700 177777 MOV 
5245 021446 01 MOV 
5246 021450 010102 MOV 
5247 021452 01 MOV 
021454 010304 MOV 
5249 021456 010405 MOV 
021 052767 004000 156310 61S 
5251 021466 005700 TST 
021470 001401 BEQ 
021472 1 ERROR 
021474 005701 9$: TST 
021476 001401 BEQ 
5257 021500 1 
021502 005702 10$: TST 
5260 021 001401 BEQ 
5261 021 i 1 
021510 005703 11$: TST 
oetatS 001401 BEQ 
5265 021514 1 1 ERROR 
5267 021516 005704 12$: TST 
5268 021520 001401 BEQ 
5269 021522 1 


S271 021524 005705 13$: TST 


#61T11,PS 
RO 
R1 


#61711,PS 
RO 


9$ 
+1 


Ri 
10$ 
+1 
R2 
11$ 
+1 
R3 
l2$ 
+1 


R4 
13$ 
+1 


RS 
#61T11,PS 
RO 
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;ERROR! 
| ; 
;CPU ERROR 
;ERROR! 
; 
;CPU ERROR 
;ERROR! 
; 
;CPU ERROR 
; 
; 
; CPU ERROR 
; 
; 
;CPU ERROR 
;ERROR! 
;ENABLE ALTERNATE REGISTER SET 
; --- ALTERNATE -- - 
;----REGISTER--- 
BACK TO PRIMARY GPRS 
sENSURE THAT WRITES TO PRIMARY GPRS 
;D0 NOT EFFECT ALTERNATE GPRS 
; 
: 
; 
* RETURN TO ALTERNATE REGISTERS 
;SHOULD BE ALL O'S 
;CPU ERROR 
;ERROR! 
; 
; 
;CPU ERROR 
; 
; 
;CPU ERROR 
’ 
; 
;CPU ERROR 
; 
: 
SCPU ERROR 


SEQ 0099 





JB 
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5EQ 0100 


5272 021526 001401 BEQ 14$ =" 
021530 104001 ERROR +1 ;CPU £ 
5274 021532 14%: : 
5275 
5276 021532 ALROTS: 
5277 ' ALTERNATE REGISTER SET RO BIT TESTS 
5278 021532 012700 177777 MOV $177777 ,RO ;RO=177777 
5279 021536 7 177777 CMP RO, #177777 ‘DOES RO=177777 
021 001401 BEQ 1$ YES GO ON 
1 021544 ERROR +1 ;CPU 
;NO GO TO ERROR 
5283 021546 1$: CLR RO ;RO=0 
5284 021550 000000 CMP RO, #0 ;DOES RO=0 
5285 021554 001401 BEQ § YES GO ON 
5286 021556 ERROR +1 CPU 
5287 ;NO GO TO ERROR 
5288 021560 012700 125252 2s: MOV #125252 ,RO ;RO= 
5289 021 020027 125252 RO, #125252 :DOES RO=125252 
5290 021570 001401 BEQ $ :YES GO ON 
5291 021572 1 +1 ;CPU ERROR 
NO GO TO ERROR 
021574 012700 052525 3$: MOV #52525, RO ;RO= 
021 020027 052525 RO, #52525 :DOES RO=52525 
5295 021604 001401 BEQ 4$ :YES GO ON 
5296 021606 104001 ol ; 
NO GO TO ERROR 
5298 021610 4$: 
021610 ALRiTS: 
; ALTERNATE REGISTER SET Ri BIT iESTS 
5304 021610 012701 177777 MOV $177777,,R1 :R1=177777 
5305 021614 020127 177777 CMP R1. #177777 ;D0ES R1=177777 
021 001401 BEQ i$ YES GO ON 
5307 021622 1 ERROR +1 CPU 
;NO GO TO ERROR 
021 1 1$: CLR Ri ;Ri=0 
5310 021 020127 000000 CMP R1, #0 :DOES R1=0 
5311 021 001401 BEQ 2$ YES GO ON 
5312 021634 10400 ERROR 1 ;CPU 
1 ;NO GO TO ERROR 
5314 021636 012701 125252 2s: MOV #125252,R1 ;Ri= 
5315 021642 020127 125252 CMP ai. #125252 ;DOES R1=125252 
5316 021646 001401 BEQ YES GO ON 
5317 021650 10400 ERROR = CPU 
18 ;NO GO TO ERROR 
5319 021652 012701 052525 34: MOV #52525,R1 ;Ri= 
021 020127 052525 CMP R1, #52525 ;DOES R1=52525 
5321 021662 001401 BEQ 4$ YES GO ON 
5322 021664 1 ol CPU 
NO GO TO ERROR 
5324 021666 43: 
021666 ALP2TS: 
; ALTERNATE REGISTER SET R2 BIT TESTS 
021666 012702 177777 MOV 6177777 ,Re 3R2*177777 
5331 021672 7 177777 CMP RO. @177777 ‘DOES R2=177777 
5332 021676 001401 BEQ i$ ;YES GO ON 





K8 
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5333 021700 
5334 

5335 021702 
5336 021704 
5337 021710 
5338 021712 
5340 021714 
5341 021720 
021724 
5343 021726 
5344 

5345 021730 
5346 021734 
5347 021740 
5348 021742 


104001 


001401 
1 


012702 
020 


052525 
052525 
177777 


177777 


125252 
125252 


177777 
7777 


1$: 


2s: 


3$: 


1$: 


2$: 


3$: 


1$: 


2s: 


MOV 61777 
CMP R4, 6177777 
BEQ i$ 
+1 
CLR R4 
CMP R4,40 
BEQ 2$ 
+1 
MOV #125252 ,R4 
CMP R4, #125252 


2 77777 


3,9177 wh 
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;CPU 


* ALTERNATE Ee ae SET R4 BIT TESTS 


* ALTERNATE REGISTER SET R3 BIT TESTS 


3R3=177777 
sDOES R3=177777 
YES GO ON 


i” GO TO ERROR 


:R4=177777 





SEQ 0101 





5394 022060 
5395 022062 
5396 


021127 
001363 


012701 


177777 
177777 


125252 
125252 


022374 
022404 


022412 
177776 


177776 


177777 


022374 


155612 


3$: 


1$: 
2s: 
3$: 
4$: 


fe115: 
i 


i$: 


2$: 


3$: 
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ee006000006¢ DOUBLE OPERAND TESTS #44600484446444644 


BEQ 3$ :YES GO ON 
ERROR +1 ;CPU ERROR 
, NO GO TO ERROR 
MOV —s«- #52525, R4 5R4=52525 
CMP R4, #52525 :DOES R4=52525 
BEQ 4$ crrine® GO ON 
ERROR +1 ;CPU 


ALTERNATE REGISTER SET R5 BIT TESTS 
MOV 7,R5 = 


$17777 :R5=177777 
CMP R5,4177777 ;DOES R5=177777 
BEQ i$ GO ON 
ERROR +1 ;CPU 
;NO GO TO ERROR 
CLR RS ;R5=0 
CMP R5, 40 ;DOES R5=0 
BEQ $ YES GO ON 
ERROR +1 iC 
;NO GO TO ERROR 
MOV #125252,R5 
CMP R5, #125252 :DOES R5=125252 
BEQ 3% ON 
ERROR +1 ; 
es “ NO GO <12 ERROR 
CMP Re 9s3808 ;DOES RS5=52525 
BEQ 43 YES GO ON 
ERROR el ;CPU ERROR 
:NO GO TO ERROR 
BIC #B81T11,PS RETURN TO PRIMARY GEN PURPOSE REGS 


TEST i PROCCESSOR STATUS INST (MFPS) 
; 


CLR SETUP DESTINATION R4 
MOV #TE1L15A,R1 ;SETUP POINTERS TO TABLES 
MOV #TE1158, ; 
MOV #TE1iSC, ; 
MOV (R1)+ 80177776 ;SETUP PSW 
MFPS R4 ; TEST INSTRUCTION 
CMP @#177776,(R2)+ ; CHECK 
BEQ 2$ onlin’ GO ON 
ERROR +1 ;CPU 
;NO GO TO ERROR 
CMP R4,(R3)+ ;CHECK R4 
BEQ 3$ crn GO ON 
ERROR +1 ;CPU 
;NO GO TO ERROR 
CMP C(R1),@177777 ;ARE WE DONE 
BNE 1$ ;NO GO TO 1$ 
MOV #TE115A,R1 ;SETUP POINTERS TO TABLES 


SEQ 0102 
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ee000000006¢ DOUBLE OPERAND TESTS #4¢40440444444404 


5455 022240 012702 022404 

5456 022244 012703 022412 
010605 

5458 022252 011137 177776 
06706 

023712 177776 
1401 


75 320 
5476 022324 012137 177776 
022 106 
5478 022332 023722 177776 


548 
5482 022342 020427 114147 
022352 023723 114146 


5489 
5490 022362 021127 177777 
001354 


S492 
5493 022370 000167 000032 
5494 





101$: 


102$: 


103$: 


4$: 


5$: 


6$: 


MOV 
MOV 
MOV 
MFPS 


933 


sggpssssesases * 8 F* O° E 


#TE1158 Re 
#TE115C,R3 


(Ri), 94177776 
9177776, (Re) 
102$ 


+1 


R6,(R3) 
1038 


RS ,R6 


#TE115A,R1 
5B Re 


#TEil 


$TE115D,R3 
Bee XPOAT 


#EXPDAT , R4 

(Ri )+,80177776 
(R4)>+ 

pera ee CEOs 


+1 


Fea, SEXPDAT +1 
6$ 


+1 


@EEXPDAT , CR3)+ 
T$ 


+1 


(R1),0177777 
4s 


TELISF 
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: 

;SAVE STACK IN RS 
;SETUP PSW 

; TEST INSTRUCTION 
CHECK PSW 

OK GO ON 


;CPU 
NO GO TO ERROR 
;RESTORE STACK 


;SETUP POINTERS TO TABLES 


INIT EXPECTED DATA HOLDER. 
sSETUP POINTER TO TEST LOCATION 


PSW 
; TEST INSTRUCTION 
CHECK PSW 


;CPU 

NO GO TO ERROR 

;CHECK TEST LOCATION 
OK GO ON 


;CPU 

;NO GO TO ERROR 
;ARE WE DONE 
sNO GO TO 4$ 


SEQ 0103 
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¢ee¢eeeee06¢ DOUBLE OPERAND TESTS #440066044464444% 


SEQ 0104 


5514 022430 TE116: 
5515 ; TEST MOVE TO PROCESSOR STATUS INST (MTPS) 
5517 022430 012737 230000 177776 MOV #30000, a#177776 ;SET PSW TO KERNEL MODE 
5518 022436 012701 022732 MOV $TE1160,R1 ;SETUP POINTERS TO TABLES 
5519 022442 012702 022710 MOV #TE1168,R2 ; 
5520 022446 010103 MOV R1,R3 : 
5521 022450 004767 000136 JSR PC: T116 ; TEST INSTRUCTION AND CHECK PSW 
;AND SOURCE OPERAND 
5 
2355 022454 012737 140000 177776 MOV #140000 , #177776 ;SET PSW TO USER MODE 
012706 000600 MOV ; ;SETUP USER STACK 
5527 022466 012701 022732 MOV #TE1160,R1 ;SETUP POINTERS TO TABLES 
5528 022472 012702 022722 MOV #TE116C,Re 
5529 022476 010103 MOV R1,R3 ; 
5530 000106 JSR PC. T116 ; TEST INSTRUCTION AND CHECK PSW 
eats :AND SOURCE OPERAND 
553 
5534 022504 012737 140000 177776 MOV #140000 , 84177776 ;SET PSW TO USER MODE AND CLEAR CC BITS 
5535 022512 012701 022704 MOV #TELI6A,R1 ;SETUP POINTERS TO TABLES 
36 022516 012702 022722 MOV #TE116C,Re ; 
5537 022522 012703 022732 MOV $TE116D,R3 
5538 022526 010104 MOV R1,R4 ‘SAVE A COPY OF R1 INTO R4 
5539 022530 004767 000110 JSR PC: TALIC : TEST INSTRUCTION AND CHECK PSW 
5540 ‘AND SOURCE OPERAND 
$54 : 022534 012737 030000 177776 MOV #30000 , 84177776 :SET PSW TO KERNEL MODE 
5544 022542 012701 022704 MOV #TE116A,R1 ;SETUP POINTERS TO TABLES 
5545 022546 012702 022710 MOV $TE116B Re ; 
5546 022552 012703 022732 MOV #TE116D,R3 ; 
5547 022556 010104 MOV R1,R4 -SAVE A COPY OF R1 INTO R 
5548 022560 004767 000060 JSR PC, TALI6 ; TEST INSTRUCTION AND CHECK Psi 
3549 ;AND SOURCE OPERAND 
a3e4 022564 005037 177776 CLR a#177776 ;SET PSW TO KERNEL MODE 
3992 022570 106427 177412 MTPS #177412 -TEST INSTRUCTION 
5553 022574 022737 000012 177776 CMP $12 ,8¢177776 -IS PSW CORRECT 
5554 022602 001401 BEQ 100$ YES GO ON 
5555 022604 104001 ERROR +1 CPU 
-NO GO TO ERROR 
5557 022606 100$: 
3358 022606 000167 000130 JUMP FIN116 
5560 022612 012105 7116: MOV (R1)+,R5 ;MOVE TEST DATA TO R5 
5561 022614 106405 MTPS) =—s «RS ; TEST INSTRUCTION 
5562 022616 023722 177776 CMP 99177776, (R2)+ -IS PSW CORRECT 
5563 022622 001401 BEQ i$ YES GO ON 
5564 022624 104001 ERROR +1 CPU 
022305 i$ CMP (R3)+,R5 iNO GO mS RS CORRECT 
s +, ; 
2ee9 033680 001401 BEQ 2$ sYES GO ON 
022632 104001 ERROR +1 


NO 
022634 021227 177777 2$: CMP (R2),0177777 ;ARE WE DONE 








BY 
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SEQ 0105 
eseecesesese DOUBLE OPERAND TESTS seeseseessesesess 
5571 022640 001364 BNE T1i6 ;NO GO TO T116 
5572 022642 000207 RTS PC ; RETURN 
5574 022644 106421 $aii6: MTPS  (R1)> ; TEST INSTRUCTION 
9975 022646 023722 177776 CMP 90177776, (R2)+ ;IS PSW CORRECT 
6 022652 001401 BEQ 1$ YES GO ON 
77 022654 104001 ERROR +1 CPU 
a ;NO GO TO ERROR 
5579 022656 122423 1$: CMPB  —s- (R4)+, (R3)+ ;CHECK TEST LOCATION 
5580 022660 001401 BEQ 2$ OK GO ON 
5581 022662 104001 ERROR +1 CPU 
:NO GO TO ERROR 
5583 022664 020104 2$: CMP R1,R4 3IS SOURCE OPERAND CORRECT 
5584 022666 001401 BEQ 3$ YES GO ON 
5585 022670 104001 ERROR +1 CPU 
5 ;NO GO TO ERROR 
7 022672 005203 3$: INC R3 ;POINT TO NEXT WORD 
022674 021227 177777 CMP (R2), #177777 - 
022700 001361 BNE TALIC ;NO GO TO TA116 
022702 000207 RTS = PC ; RETURN 
022704 «377 fE116A: .BYTE 377 
022705 000 ‘BYTE 0 
706 252 "BYTE 
5595 022707 125 ‘BYTE 125 
022710 030357 TE116B: .WORD 30357 
022712 030000 "WORD 30000 
5598 022714 0 “WORD 30252 
5599 022716 030105 “WORD 30105 
5600 022720 17 "WORD =-:177777 
140017 TE116C: .WORD 140017 
022724 1 “WORD 140000 
560 022726 140012 "WORD 140012 
1 “WORD 140005 
022732 177777 TE1160: .WORD 177777 
022 177400 "WORD 177400 
5607 022736 177652 "WORD 177652 
5608 022740 “WORD 177525 
5609 i 
5610 022742 IN116: 
5611 i 
1 022742 E117: 
; TEST MFPT (MOVE FROM PROCESSOR TYPE) 
362 022742 013746 000010 MOV aio, -(SP ;SAVE VECTOR 
022746 012737 023054 000010 MOV @TE117A,a010 SSETUP VECTOR TO HANDLE POSSIBLE ILLEGAL INST TRAP 
5625 022754 012700 177777 MOV t ; ;INIT RO 
012737 030000 177776 MOV #30000 , 86177776 ;SETUP PSW 
000007 .WORD 7 ; TEST INSTRUCTION 
2 022737 030000 177776 CMP #30000 , 80177776 :IS PSW CORRECT 
022776 001401 BEQ i$ YES GO 
$5 3000 i ERROR +1 ;CPU 
1 ;NO GO TO ERROR 
02 020027 000005 1¢: CMP RO, #5 ;IS RO CORRECT 
001401 BEQ 2$ YES GO ON 
023010 10400 ERROR +1 ;CPU 
;NO GO TO ERROR 
5636 023012 012700 177777 2$ MOV $177777,RO ;INIT RO 





5637 023016 
3020 





000277 
00000 


030017 


000010 


030000 


023126 


177776 


154656 


177776 


177766 


3$: 
4$: 


TE117A: 


FIN117: 
TE120: 


i$: 
2s: 


3$: 


FIN120: 


SC 

. WORD 
CMP 
BEQ 
ERROR 
CMP 
BEQ 


ERROR 
MOV 
JMP 


eg 


CLR 


ss 25% 25% 25% 253 3 gRSSEEZE E 
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eeeeeeeesese DOUBLE OPERAND TESTS sesesessscesesess 


SEQ 0106 


;SET ALL CC BITS 
;_ TEST INSTRUCTION 
CORRECT 


7 
#30017, 84177776 ;IS PSWC 
33 YES GO ON 
+1 ;CPU 
:NO GO TO ERROR 
RO, #5 ;IS RO CORRECT 
4$ YES GO ON 
+1 ;CPU 
:NO GO TO ERROR 
(SP)+,a#10 ;RESTORE VECTOR 
FINi17 
+1 ;CPU ERROR 
GO TO ERROR IF TRAP TAKES PLACE 
TEST HALT (NOT KERNEL MODE) 
R 90177766 ;INIT CPU ERROR kEG 
@#177776 SINIT PSW-SET KERNEL MODE 
a4, -(SP) ;SAVE VECTOR 
-(SP) ;SAVE VECTOR 
STEL20A, 204 SET UP VECTOR TO HANDLE ILLEGAL HALT 
SET UP VECTOR TO COME BACK IN KERNEL MODE 
#140000, PS ;SET IN USER MODE 
#600 ,R6 SINITIALIZE THE USER STACK POINTER 
: si TEST INSTRUCTION 
ad > 
SIF NOTHING HAPPENED GO TO ERROR 
FINI20 ; 
#30000 , 96177776 IS PSW CORRECT/PREVIOUS MODE = USER? 
i$ YES GO ON 
+1 3; CPU 
:NO GO TO ERROR 
#200 , 80177766 ; TEST CPU ERROR REGISTER 
2$ YES GO ON 
+} 3; CPU 
:NO GO TO ERROR 
(SP )+, @PROCNT ;DOES STACK CONTAIN CORRECT PC 
33 YES GO ON 
> | 3; CPU 
:NO GO TO ERROR 
(SP)+, #140000 :DOES STACK CONTAIN CORRECT PSW 
FINi20 YES GO ON 
+1 ;CPU 
;NO GO TO ERROR 
(SP)+, 06 ;RESTORE VECTOR 
(SP)+, 004 ;RESTORE VECTOR 
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SEQ 0107 
eeeeeeeseses DOUBLE OPERAND TESTS #4000040204808084% 
5707 : CMPB s«@AAP TEN, SENV ;ARE WE IN APT MODE? 
; BNE i$ ;IF NOT: DO THIS TEST 
709 023210 005767 155772 TST $PASS ; sFIRST PASS?? 
5710 023214 001 BEQ i$ ;IF YES, DO IT 
5711 023216 000167 000622 JMP FIN122 sELSE SKIP THIS TEST BECAUSE RESETS 
UP THE APT MONITOR. 
5713 023222 012737 030340 177776 1%: MOV #30340 ,80177776 ;SETUP PSW TO KERNEL 
5714 023230 012737 1 177572 MOV #160000, @#177572 ;SETUP MMRO 
5715 023236 012737 000077 172516 MOV $77, 80172516 ;SETUP MMR3 
023244 005037 177772 CLR aei77772 ;CLEAR PIRQ 
5717 023250 023727 177772 000000 CMP @#177772, 90 ;1S PIRQ CORRECT 
5718 023256 001401 BEQ C121A GO ON 
5719 023260 1 +1 ;CPu E 
:NO GO TO ERROR 
5721 023262 012737 025000 177772 Ci21A: MOV #25000 , 80177772 ;MOVE AN ALTERNATING PATTERN TO PIRQ 
5722 023270 022737 025252 177772 CMP $25252 00177772 ;1S PIRQ COPRECT 
5723 023276 001401 BEQ C1218 YES GO ON 
5724 023300 104001 +1 CPU 
5725 :NO GO TO ERROR 
5726 023 012737 077 177772 C1218: MOV #77000 , 80177772 ; PIRQ 
9727 023310 022737 077314 177772 CMP #77314, ae177772 ;1S PIRQ CORRECT 
28 001401 BEQ c1i2ic YES GO ON 
5729 023320 104001 + ;CPU 
5 ;NO GO TO ERROR 
5731 023322 000277 ci2ic: scc ;SET ALL CC BITS 
023 000005 RESET ; TEST INSTRUCTION 
5733 023326 022737 030357 177776 CMP #30357 , 80177776 ;IS PSW CORRECT 
5734 023334 001401 BEQ 1$ YES 
5735 023336 104001 +l ;CPU 
:NO GO TO ERROR 
5737 023340 013701 177572 1$: MOV @eSRO,R1 ;SAVE SRO IN R1. 
02 042701 000176 BIC #176,R1 STRIP OFF UNDEFINED BITS 1-6 FROM MMRO 
02 022701 CMP #0,R1 ;1S MMPO CORRECT 
5740 001401 BEQ 2$ YES GO ON 
5741 023356 1 ol 
57 :NO GO TO ERROR 
5743 023360 022737 000000 172516 2%: CMP #0, 80172516 :IS MMR3 CORRECT 
02 001401 BEQ 3$ YES GO ON 
5745 023370 104001 el :CPU 
:NO GO TO ERROR 
5747 023372 022737 000000 177772 33: CMP 80, a0177772 31S PIRQ CORRECT 
02 001401 BEQ 4$ YES GO ON 
5749 023402 10400 ol ;CPU 
:NO GO TO ERROR 
02 13702 000004 4$: MOV a4 ,R2 sSAVE LOC 4 IN R2 
023410 013703 000006 MOV a6 ,R3 :SAVE LOC 6 IN R3 
5754 023414 012737 023552 000004 MOV $8$, 004 ; CTORS IN CASE AN ERROR CAUSES 
023422 012737 000340 000006 MOV —s-: #340, 86 SO eee OO ENE. NODE. AND PREVENTS PRIG 
' ; 
3738 : TS FROM TRASHING THE STACK IF A 
2735 ;USER MODE HALT OCCURS. 
9 023430 012737 140340 177776 MOV #140340 ,80177776 ;SETUP PSW TO USER MODE 
5760 023436 012737 177572 MOV #160000, 94177572 
5761 023444 012737 77 172516 MOV 877 ,@0172516 :SETUP MMR3 
012737 077000 177772 MOV #77000 ,@0177772 ;SETUP P 
000277 SCC ;SET ALL CC BITS 





EY 
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eeseeesecess DOUBLE OPERAND TESTS seseeeseeeseseses 


SEQ 0108 


764 023462 000005 RESET ; TEST INSTRUCTION 
5765 023464 022737 140357 177776 CMP #140357 , #177776 51S PSW CORRECT 
5766 023472 001402 BEQ S$ ;YES GO ON 
5767 023474 000000 HALT USER MODE HALT; WILL TRAP TO LOC 4 
5768 023476 104001 +1 CPU 
57 9 ‘NO GO TO ERROR 
770 02 013701 177572 S$: MOV 96177572, Ri ;SAVE MMRO IN R1 
5771 02 042701 000176 BIC $176,R1 ‘CLEAR BITS 1-6 FROM MMRO 
5772 023510 022701 160000 CMP #160000,R1 ;IS MMRO CORRECT 
023514 001402 BEQ ;YES GO ON 
5774 023516 000000 HALT USER MODE HALT; WILL TRAP TO LOC 4 
5775 023520 104001 +1 
5776 NO GO TO ERROR 
5777 023522 022737 000077 172516 6%: CMP $77 ,@#172516 IS MMR3 CORRECT 
5778 023530 001402 BEQ 7$ :Y ON 
79 000000 HALT USER MODE HALT; WILL TRAP TO LOC 4 
5780 023534 104001 ERROR +1 CPU 
5781 ‘NO GO TO ERROR 
5782 023536 022737 077314 177772 7%: CMP #77314, @0177772 ;IS PIRQ CORRECT 
02 001403 BEQ 9$ ;YES GO 
5784 023546 000000 HALT USER MODE HALT; WILL TRAP TO LOC 4 
5785 023550 104001 +1 CPU 
57 ‘NO GO TO ERROR 
5787 023552 000002 8s: RTI USER MODE HALT OCCURRED; GO TO ERROR. 
5789 023554 005037 177772 9$: CLR 90177772 ;CLEAR PIRQ 
5790 02 005037 177776 CLR 96177776 SCLEAR PSW 
5791 023564 010237 000004 MOV R2, 004 “RESTORE VECTORS TO PREVIOUS STATE 
798 023570 010337 000006 MOV R3, 906 ; 
5 FINI21: 
5794 i. 
5797 023574 122: 
; TEST SPL (SET PRIORITY LEVEL) 
5800 023574 012705 000010 MOV #8. ,R5 ;INIT COUNTER 
1 023600 012701 024024 MOV #71228 ,,R1 ;SETUP POINTER TO DATA 
012 030000 177776 1%: MOV #30000 , 8177776 ; INI 
5803 023612 004767 000054 JSR PC, T122A ; TEST INSTRUCTION 
5804 023616 022137 177776 CMP (Ri)+,@0177776 ;IS PSW CORRECT 
5805 023622 001401 BEQ 2$ YES 
5806 104001 ERROR +1 CPU 
5807 ‘NO GO TO ERROR 
5808 023626 077512 2s: S08 RS,1$ REPEAT UNTIL ALL CASES ARE TESTED 
5810 
5811 023630 012705 000010 MOV #8. ,RS ;INIT C 
S812 023634 012737 1 177776 33: MOV #140000 , 86177776 ;SETUP PSW TO USER MODE 
5813 023642 012706 MOV ; SETUP ST 
5814 6 004767 JSR —- PC, Ti22A ; TEST INSTRUCTION 
5815 140017 177776 CMP #140017 ,@#177776 :IS PSW CORRECT 
5816 023660 001401 BEQ 4$ YES 
5817 023662 104001 ERROR +1 CPU 
5818 ‘NO GO TO ERROR 
5819 023664 077515 4s: SOB RS,3$ REPEAT UNTIL ALL CASES ARE TESTED 
5821 
5822 023666 000167 000152 JUMP FIN122 
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SEQ 0109 


3 e 
5824 023672 020527 000010 T122A: CMP RS, #8. ;FIND OUT WHAT COUNTER IS 
5825 023676 001003 BNE 13 SIF NOT PRIORITY 0 GO TO 1$ 
5826 023700 000277 SCC ;SET ALL CC BITS 
5827 023702 000230 SPL 0 ‘SET PRIORITY TO 0 
5828 023704 000446 BR 8$ ; RETURN 
5829 023706 020527 000007 1$: CMP R5, #7 ;FIND OUT WHAT COUNTER IS 
5830 023712 001003 BNE 23 IF NOT PRIORITY 1 GO TO 2$ 
5831 023714 000277 SCC ;SET ALL CC BITS 
5832 023716 000231 SPL 1 ;SET PRIORITY TO 1 
5833 023720 BR 8$ URN 
023722 020527 000006 2$: CMP RS, #6 ;FIND OUT WHAT COUNTER IS 
5835 023726 001003 BNE 33 SIF NOT PRIORITY 2 GO TO 3$ 
02 000277 SCC ;SET ALL CC BITS 
000232 SPL 2 ;SET PRIORITY TO 2 
5838 023734 000432 BR 8¢ sRET 
02 020527 000005 3$; CMP RS,85 ;FIND OUT WHAT COUNTER IS 
5840 023742 001003 BNE 43 -IF NOT PRIORITY 3 GO 10 4$ 
5841 023744 000277 SCC ;SET ALL CC BITS 
023746 000233 SPL 3 :SET PRIORITY TO 3 
5843 023750 000424 BR B$ 
023752 020527 000004 43: CMP R5,04 ‘FIND OUT WHAT COUNTER IS 
5845 023756 001003 BNE 5$ ‘IF NOT PRIORITY 4 GO TO S$ 
023760 000277 SCC ;SET ALL CC BITS 
5847 023762 SPL 4 “SET PRIORITY TO 4 
023764 000416 BR 8$ ; 
5849 023766 020527 000003 S$: CMP R5,83 ‘FIND OUT WHAT COUNTER IS 
023772 001003 BNE 6$ IF NOT PRIORITY 5 GO TO 6$ 
5851 023774 000277 Scc ;SET ALL CC BITS 
023776 000235 SPL 5 -SET PRIORITY TO 5 
5853 024000 000410 BR Bs 
024002 020527 000002 6$: CMP RS, #2 FIND OUT WHAT COUNTER IS 
024006 001003 BNE 73 ‘IF NOT PRIORITY 6 GO TO 7$ 
5856 024010 000277 SCC >SET ALL CC BITS 
5857 024012 000236 SPL 6 :SET PRIORITY TO 6 
5858 024014 BR B$ 
5859 024016 000277 7$: SCC ‘SET ALL CC BITS 
5860 024020 000237 SPL 7 ‘SET PRIORITY TO 7 
5861 024022 000207 8$: RTS PC ; RETURN 
Spee 024024 030017 #1228: .WORD 30017 
5864 024026 030057 “ WORD 7 
5865 024030 030117 "WORD 30117 
5866 024032 030157 "WORD 30157 
5867 024034 030217 "WORD 30217 
5868 024036 030257 “ WORD 
5869 024040 030317 "WORD 30317 
5870 024042 030357 "WORD 30357 
$61 024044 FIN122: NOP 
7S 024046 f€123: 
5876 , TEST TSTSET INSTRUCTION (MULTI PROCESSING INST) 
5877 024046 005037 177776 CLR B1777 76 sINIT PSW 
5878 024052 012703 000012 MOV #10. .R3 ‘INIT COUNTER 
5879 024056 012701 000400 MOV $400;Ri ;SETUP DESTINATION 
5880 024062 012700 024230 MOV 8T123A,RO ; SETUP 
5881 024066 0 100$: MOV (RO)+,(R1)+ ‘RELOCATE TABLES 
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SEQ 0110 





5882 024070 077302 S08 R3,100$ ;ARE WE DONE 
5883 024072 913746 ©00010 MOV a#i0, -(SP) ;SAVE VECTOR 
5884 024076 012737 024254 000010 MOV $T123D, a¢10 : :SETUP NEW VECTOR 
5885 024104 005000 CLR RO 
5886 024106 012701 000400 MOV #400,R1 ‘SETUP POINTERS TO TABLES 
5887 024112 012702 000410 MOV $410.R2 ' 
5888 024116 012703 000416 MOV 416,23 ; 
5889 024122 010104 MOV WR 
5890 024 012737 030000 177776 15: MOV $0000, 90177776 SETUP PSW 
5891 0241 900262 SEV V BIT 
024134 90722 "WORD 7221 ; TEST INSTRUCTION 
259 598 0241 177776 CMP (R2)+,@#177776 ;IS PSW CORRECT 
5894 024142 001401 BEQ 2$ anit GO ON 
024144 104001 ERROR +1 ;CPU E 
‘NO GO TO ERROR 
024146 020013 2$: CMP RO, (R3) ;IS RO CORRECT 
024150 001401 BEQ 3$ YES GO ON 
024152 1 ERROR +1 ;CPU 
‘NO GO TO ERROR 
024154 005204 3$: INC R4 :SETUP EXPECTED DATA 
O72°5@ 005204 INC R4 
024.18 1 R4,R1 ‘IS Ri CORRECT 
Gets62 001401 BEQ 4$ YES GO ON 
024164 104001 ERROR +1 ;CPU 
‘NO GO TO ERROR 
5907 024166 052713 000001 4$: BIS #1,(R3) :SETUP EXPECTED DATA 
024172 022341 CMP (R3)+, -C(R1) :IS TEST LOCATION CORRECT 
024174 001401 BEQ S$ YES GO ON 
10 024176 ERROR +1 ;CPU 
il ‘NO GO 10 ERROR 
5912 024200 005201 S$: INC Ri :POINT TO NEXT TEST LOCATION 
5913 024202 1 INC Ri ; 
024204 021127 177777 CMP (Ri), #177777 ;ARE WE DONE 
5915 024210 001345 BNE ‘NO GO TO i$ 
5916 024212 012737 024256 000010 MOV $T123E ,9610 ;SETUP NEW VECTOR 
5917 024220 007201 \WORD 7201 TEST INSTRUCTION ILLEGAL MODE 
5918 024222 104001 ERROR +1 ;CPU 
;GO TO ERROR IF DIDN'T TRAP 
920 024224 000167 000032 JMP T123F 3 
5923 024230 167604 T123A: .WORD 167604 
5924 024232 000000 “WORD 0 
5925 024234 i “WORD 1 
5926 024236 177777 -WORD 177777 
024240 030010 T1238: :WORD 30010 
024242 030004 "WORD 30004 
024244 030001 "WORD 30001 
024246 167604 T123C: .WORD 167604 
024250 000000 "WORD 0 
024252 000001 "WORD 1 
024254 104001 T1230: ERROR -1 ;CPU ERROR 
‘GO TO ERROR IF TRAPPED 
024256 T123E: TST (SP)+ :CLEAN UP STACK 
024260 005726 TST (SP )- 
024262 000010 T1i23F: MOV (SP)+,@@10 ‘RESTORE VECTOR 





HY 
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SEQ O111 



























te124: 
; TEST WRTLCK (WRITE LOCK MULTI PROCESSING INST) 
177776 CL 177776 ; 
000012 MOV 10. ,R3 ;INIT COUNTER 
600400 MOV Ri ;SETUP DESTINATION 
024462 MOV $T124A,RO ; SETUP 
100$: MOV (RO)+,(R1)+ ;RELOCATE TABLES 
SOB R3,100$ ;ARE WE DONE 
000010 MOV aio, -(SP) ;SAVE VECTOR 
024 000010 MOV #71240, a#10 ;SETUP NEW VECTOX 
MOV #400,Ri ;SETUP POINTERS TO TABLES 
000410 MOV #410,R2 ; 
000416 MOV $416,R3 
MOV R2,R4 ; 
030000 177776 13: MOV #30000, 94177776 ;SETUP PSW 
MOV (R1),RO ;SETUP RO 
000416 CMP R3, 9416 :IS THIS THE FIRST TEST CASE 
BEQ 2$ ; TO 2$ 
BR 3$ ; TO 3$ 
2$: SEC ;SET C BIT 
BR 4$ 
3$: CLC ;CLEAR C BIT 
4$: SEV :SET V BIT 
\WORD 7322 ; TEST INSTRUCTION 
177776 CMP (R3)+,9¢177776 ;IS PSW CORRECT 
BEQ 5$ ; 
ERROR +1 ;CPU 
:NO GO TO ERROR 
S$: CMP (R1),RO ;IS RO CORRECT 
BEQ 6$ YES GO ON 
ERROR +1 ;CPU 
:NO GO TO ERROR 
6$: INC R4 ;SETUP EXPECTED DATA 
INC R4 ; 
CMP R2,R4 ;IS R2 CORRECT 
BEQ 7$ YES GO ON 
ERROR +1 ;CPU 
;NO GO T0 ERROR 
7$: CMP (R1)+,-C(R2) ;IS TEST LOCATION CORRECT 
BEQ &$ YES GO ON 
ERROR +1 ;CPU 
:NO GO TO ERROR 
8$: INC R2 ;POINT TO NEXT TEST LOCATION 
; 
177777 CMP (R1),@177777 ; ARE 
BNE ;NO GO TO 1$ 
024510 000010 MOV $T124E ,a010 :SETUP NEW VECTOR 
.WORD 7302 TEST INSTRUCTION ILLEGAL MODE 
ERROR +1 ;CPU 
:GO TO ERROR IF DIDN'T TRAP 
000032 JUMP T124F 
. WORD 
“WORD 
"WORD 
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SEQ 0112 
eeeeeeeeeeee DOUBLE OPERAND TESTS se006008446404448 
5998 024470 177777 WORD 177777 
5999 024472 177777 11248: ‘WORD 177777 
6000 024474 WORD 177777 
6001 024476 177777 "WORD 177777 
924500 030011 T124C: [WORD 30011 
6003 024502 030004 "WORD 30004 
024504 030000 WORD 30000 
6005 024506 104001 T124D: ERROR +1 :CPU ERROR 
6006 a :GO TO ERROR IF TRAPPED 
6007 024510 © 5726 T124E: TST (SP)-+ ;CLEAN UP STACK 
6008 024512 005 26 TST (SP)+ : 
6009 024514 1.237 000010 T124F : (SP)+,ae10 ;RESTORE VECTOR 
6011 i 
6014 024520 E125: 
6015 ; TEST MUL (MULTIPLY INST) 
6016 024520 005037 177776 CLR ao177776 sINIT PS 
6017 024524 012701 024760 MOV 8TE125A,R1 ;SETUP POINTERS TO TABLES 
6019 024530 010137 114146 1$: MOV R1, @¢EXPDAT 
6020 024534 062737 000002 114146 #2. AHEXPDAT :POINT TO SOURCE 
6021 024542 012703 122222 MOV #122222 ,R3 INIT R3 TO A KNOWN STATE 
024546 011102 MOV (R1),R2 sINIT DESTINATION REG 
6023 024550 scc ;SET ALL CC BITS 
6024 024552 070261 000002 MUL 2(R1),R2 ; TEST INSTRUCTION 
024556 026137 000004 177776 CMP 4(R1). 90177776 sIS PS CORRECT 
6026 024 001401 BEQ 2$ YES GO 
6027 024566 104001 ERROR +1 CPU 
6028 :NO GO TO ERROR 
6029 024570 026103 000006 2$: 6(R1),R3 ;IS R3 CORRECT 
6030 024574 001401 BEQ 3$ YES GO ON 
6031 024576 104001 ERROR +1 ;CPU 
60 :NO GO TO ERROR 
6033 024600 026102 000010 3$: CMP 10(R1),R2 :IS R2 CORRECT 
6034 024604 001401 BEQ 4$ sYES GO ON 
6035 024606 104001 ERROR +1 ; 
6036 ;NO GO TO ERROR 
6037 024610 026177 000002 067330 4$: CMP 2(R1),@EXPDAT IS SOURCE LOCATION OK 
6038 024616 001401 BER S$ YES GO ON 
6039 024620 104001 ERROR +1 ;CPU 
6040 :NO GO TO ERROR 
6041 024622 062701 000012 S$: ADD $12,R1 ;GO TO NEXT TEST 
6042 020127 025206 CMP R1, oF INL25 SARE WE FINISHED 
6043 024632 001336 BNE i$ :NO GO TO 1$ 
6044 
6045 , 
6046 ;SECOND PART 
6047 ;USING ODD REGISTER 
i 
6049 024634 012701 024760 6$: MOV $TE125A,R1 :SETUP POINTERS TO TABLES 
6050 024640 7$: 
6051 024640 010102 MOV R1,R2 
6052 024642 012 001000 MOV esTBOoT, INIT R6 TO A KNOWN STATE 
6053 024646 012704 000004 MOV 04 ,R4 ;SETUP R4 VALUE 
6054 024652 011105 MOV (Ri),R5S sINIT DESTINATION REG 
6055 024654 000277 scc “SET ALL CC BITS 
6056 024656 070561 000002 MUL 2(R1),R5 : TEST INSTRUCTION 
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SEQ 0113 
eeseceeseses DOUBLE OPERAND TESTS seseesseseseseses 
026137 000004 177776 CMP 4(R1), 80177776 ;I1S PS CORRECT 
001401 BEQ 8$ YES GO ON 
104001 ERROR +1 ;CPU 
;NO GO TO ERROR 
105 000006 B*: CMP 6(R1),R5 ;IS RS CORRECT 
001401 BEQ 46 YES GO ON 
1 ERROR +1 ;CPU 
;NO GO TO ERROR 
7 001000 9$: CMP R6,#STBOT ;IS R& CORRECT 
001403 BEQ 10$ 
012706 001000 MOV #STBOT ,R6 RESTORE SP 
1 ERROR +1 ;CPU 
;NO GO TO ERROR 
005722 10$: TST (R2)+ ;POINT TO SOURCE OPERAND 
021261 000002 CMP (R2),2CR1) ;IS SOURCE LOCATION OK 
001401 BEQ 11$ ;YES GO ON 
1 ERROR +1 ;CPU ERROR 
;NO GO TO ERROR 
7 000004 i1$: CMP R4,44 ;1S R4 CORRECT 
001401 BEQ 12$ YES GO ON 
1 1 ERROR +1 ;CPU 
;NO GO TO ERROR 
062701 000012 12$: ADD #12,R1 r 
020127 025206 CMP Ri, 4FIN125 ;ARE WE FINISHED 
001332 BNE 7$ sNO GO TO 7$ 
000167 000226 JMP FIN125 
; 
177777 fE125A: .WORD 177777 ;MULTIPLICAND 
177777 .WORD 177777 ;MULTIPLIER 
000000 -WORD 0O 
000001 -WORD 1 
000000 .WORD 0 
006772 -WORD 6772 ;MULTIPLICAND 
1 -WORD 1 ;MULTIPLIER 
000011 -WORD 11 
.WORD 90 
174403 .WORD 174403 
177777 -WORD 177777 ;MULTIPLICAND 
077777 .WORD 77777 ;MULTIPLIER 
000010 -WORD 10 
100001 . WORD 
177777 .WORD 177777 
077777 .WORD 77777 ;MUL TIPLICAND 
000456 -WORD 456 ;MULTIPLIER 
000001 .WORD 1 
177322 .WORD 177322 
000226 . WORD 26 
173210 .WORD 173210 ;MUL TIPLICAND 
000000 -WORD O ;MULTIPLIER 
000004 .WORD 4 





KY 
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eeeeeeeeseses DOUBLE OPERAND TESTS seeeseeeeeee88804 


oie 025036 


6138 06 
6139 025110 
6140 

ors erie 
e148 O8ii6 
6144 025120 
6145 025122 
ses 

6147 025124 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WOR) 
. OFC 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


oofo°o _—ae oo 
rary 


mee ee 
i : 


; MULTIPLICAND 
;MULTIPLIER 


;MULTIPLICAND 
;MULTIPLIER 


; MUL TIPLICAND 
;MULTIPLIER 


; MUL TIPLICAND 
;MULTIPLIER 


;MULTIPLICAND 
;MULTIPLIER 


;MUL TIPLICAND 
;MULTIPLIER 


;MUL TIPLICAND 
;MULTIPLIER 


; MUL TIPLICAND 
; MULTIPLIER 


; MUL TIPLICAND 
;MULTIPLIER 






SEQ 0114 





6171 025174 
otis 025176 


000002 
001000 


000004 


000000 
000007 177776 


177776 


177776 


A126: 


TE126A: 


1$: 


2$: 


3$: 


4$: 


5$: 


483935 #85885 


3 g53% 


1 
177777 
10 


177777 
177777 


$137,080 
#TE126A, 002 


#2 ,R6 
#STBOT ,R6 
+1 

#0, 80177776 


” incendie 


#A126,R4 
R4 


#0 ,R4 
acti 
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; MULTIPLICAND 
;MULTIPLIER 


; INIT PSW 

;INIT SP 

SAVE VECTORS 

‘SETUP NEW VECTORS 

;SET ALL CC BITS 

; TEST INSTRUCTION 
i “RESTORE SP BEFORE GOING TO ERROR 
SIF R7 ISN'T CORRECT GO TO ERROR 

“IS PS CORRECT 


;YES GO ON 
sRESTORE SP BEFORE GOING TO ERROR 


;CPU ERROR 
‘NO GO TO ERROR 
SSETUP EXPECTED DATA 
‘IS Re CORRECT 
FRESTORE SP BEFORE GOING TO ERROR 


;CPU 
;NO GO TO ERROR 
sRESTORE VECTORS 


SEQ 0115 












if 
sane 


z 


tts os PEER EE 


at 


000000 


000004 


000010 


177776 


177776 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


12$: 


13%: 


ERROR 


38s & 


+1 
#0,R4 
7$ 
+i 
#4,R5 
8$ 
+1 


#4 ,RO 
#10,R5 
R4 


RO,R4 
_—- 


R 
4(R1),R3 
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;INIT R4 
;SET ALL CC BITS 
; TEST INSTRUCTION 
71S PS C T 
YES GO 

;CPU 

;NO GO TO ERROR 
;IS R4 CORRECT 
YES GO ON 

;CPU 

;NO GO TO ERROR 
;I1S RS CORRECT 
YES GO ON 


;CPU 
s;NO GO TO ERROR 


;SETUP POINTERS TO TABLES 


;SAVE A COPY OF Ri 
;INIT R4 
;SAVE SOURCE 


SEQ 0116 





3 
104001 


000167 


177777 


000000 
177777 
177777 


000012 
177777 
000000 
177777 
000000 
177777 
000002 


000000 
177777 


000000 
007642 


000002 
000004 
000006 
000010 
000012 
114146 
114146 
000004 
000004 
000014 
000333 


000316 


177776 


17$: 


18$: 


19$: 


20$: 


21s: 


ce ee 
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o006000¢e4e¢ DOUBLE OPERAND TESTS #44444¢4446446444% 


2(R1),R5 ;INIT R5 
;SET ALL CC BITS 

4(R1),R4 ; TEST INSTRUCTION 
6(R1), 80177776 ;1S PS CORRE 
17$ ;YES ON 
+1 ;CPU OR 

;NO GO TO ERROR 
10(R1),R5 31S RS CORRECT 
18$ 0 ON 
+1 ;CPU 

;NO TO ERROR 
12(R1),R4 ;IS R4& CORRECT 
19$ ;YES GO ON 
+1 ;CPU 

;NO O ERROR 
O#HEXPDAT ,R1 31S Ri CORRECT 
20$ YES GO ON 
+1 ;CPU 

;NO GO TO ERROR 
BeEXPDAT ,R1 sRESTORE CORRECT VALUE 
4(R1),R3 :IS SOURCE CORRECT 
2i$ ;YES 
+1 ;CPU 

;NO GO TO ERROR 
R3,4(R1) sTRY TO RESTORE CODE 

sPOINT TO NEXT LOCATION 
(R1),#333 DONE 
16$ ;NO GO TO 16$ 
FIN126 
177777 ;DIVIDEND 
17 ;INIT RS 
177777 ;DIVISOR 
0 ;PSW 
0 ;R5 RESULT 
i ;R4 RESULT 
0 ;DIVIDEND 
177777 =;INIT R5 
177777 ;DIVISOR 
12 ;PSW 
177777. —=;R5 RESULT 
0 3;R4 RESULT 
177777 ;ODIVIDEND 
sINIT R5 

177777 ;OIVISOR 
2 ;PSW 
0 3R5 RESULT 
177777 ;R4 RESULT 
0 ;DIVIDEND 
7642 ;INIT RS 


SEQ 0117 











B1O 


007643 
000004 
007642 
000000 


555 SS5558 S599 SSG558 SESS S55888 555955 SEENE8 S885 


00000 
4376 
10021 
l2 
4376 
100000 
177700 
170033 
10021 
10 
171307 
176024 
177700 
171307 
1754 


0 
177777 
i 
2 
177777 
0 


177777 
nines 


12 
45716 
177777 
0 

2 
177770 
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;DIVISOR 
;PSW 

;R5 RESULT 
;R4 RESULT 
; DIVIDEND 
; R5 
;DIVISOR 


‘RS RESULT 
;R4 RESULT 


3R5 RESULT 
3;R4 RESULT 


; DIVIDEND 
; INI 
;DIVISOR 
;PSW 

;R5 RESULT 
;R4 RESULT 


; DIVIDEND 
s;INIT R5 
;DIVISOR 


SEQ 0118 





6401 026142 
026144 

6403 026146 
6405 oesies 
6407 026154 
56 


177776 
000001 


000000 


100000 


177776 


FINI26: 
f€127: 
; 


i$: 


2$: 


§ S55595 9959955 S55588 555885 555555 885 


4 
2 
0 


177777 
177776 
10 


4 
177776 
0 


1 
177777 


177777 


az rFONMMOrF FrhrF 


333 
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;PSW 
;RS RESULT 
;R4 RESULT 


;R5 RESULT 
;R4 RESULT 


;D. VIDEND 
;INIT RS 
;DIVISOR 


SW 
;RS5 RESULT 
;R4 RESULT 


;R5 RESULT 
3;R4 RESULT 


TEST ASH (ARITHMETIC SHIFT) 
R 80177776 





CL ;INIT PSW 
MOV ; ;SETUP OPERAND 
scc ;SET ALL CC BITS 
ASH R2,R2 ; TEST INSTRUCTION 
CMP $0 ,8#177776 31S PS CORRECT 
BEQ i$ YES GO 
ERROR +1 ;CPU 

;NO GO TO ERROR 
CMP R2,%2 31S R2 CORRECT 
BEQ 2$ YES GO ON 
ERROR +1 ;CPU 

;NO GO TO ERROR 
MOV #100000 ,R2 ;SETUP R2 





D1O 
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SEQ 0120 


026310 012703 000001 MOV #1,R3 ;SETUP R3 
6461 026314 000257 ccc SCLEAR ALL CC BITS 
026316 072203 ASH R3,R2 ; TEST INSTRUCTION 
% 026320 022737 000007 177776 CMP $7.90177776 ;IS PS CORRECT 
326 001401 BEQ 3$ YES GO 
6465 026330 104001 ERROR +1 ;CPU 
:NO GO TO ERROR 
6467 026332 020327 000001 3$: CMP R3, #1 SIS R3 CORRECT 
026336 001401 BEQ 43 YES GO ON 
6469 026340 104001 ERROR +1 ;CPU E 
6470 :NO GO TO ERROR 
6471 026 7 000000 4s: CMP R2, #0 51S R2 CORRECT 
6472 026346 001401 BEQ S$ ;YES GO ON 
6473 026350 104001 ERROR +1 ;CPU ERROR 
74 :NO GO TO ERROR 
6475 026352 012701 026446 S$: MOV $TE127A,R1 ;SETUP POINTERS TO TABLES 
6477 026356 010103 6$: MOV R1,R3 ; 
6478 026360 016102 000002 MOV 2(R1),R2 ; SETUP 
6479 026364 000277 SCC ; SET CC BITS 
026366 072211 ASH (R1),R2 ; TEST INSTRUCTION 
6481 026370 137 000004 177776 CMP 4(Ri), 90177776 ;1S 
026376 001401 BEQ 7$ YES 
6483 026400 104001 ERROR +1 CPU ERRO 
; 
6485 026402 026102 000006 7$: CMP 6(R1),R2 :IS R2 CORRECT 
026406 001401 BEQ 8$ ON 
6487 026410 104001 ERROR +1 ; 
sNO GO TO 
026412 020301 8S: CMP R3,R1 :IS Rl CORRECT 
6490 026414 001402 BEQ 9$ ON 
6491 026416 104001 ERROR +1 
;NO GO TO 
6493 026420 010301 MOV R3,R1 sRESTORE Ri 
026422 021311 9$: CMP (R3), (RL) ;IS SOURCE CORRECT 
6495 026424 001401 BEQ 10$ YES GO 
64% 026426 104001 ERROR +1 ; 
6497 :NO GO TO ERROR 
64 SOURCE LOOKS INCORRECT 
6499 026430 062701 000010 10$: ADD $10,R1 ; PO 
6500 026434 020127 026706 CMP R1, #F IN127 ;ARE WE DONE 
6501 026440 001 BNE 6$ :NO GO TO 6$ 
6504 026442 000167 000240 JMP FINI27 
6507 026446 177761 fE127A: .WORD 177761 : 
6508 026450 077777 "WORD 77777 ;DEST 
026452 000005 "WORD 5 
6510 026454 000000 "WORD 0 
6512 026456 177700 .WORD 177700 ; SOURCE 
6513 026460 017777 "WORD 17777 ;DEST 
6514 026462 000000 "WORD 0 
6515 026464 017777 "WORD 17777 
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SEQ 0121 


177700 .WORD 177700 ; SOURCE 
6518 026470 100000 .WORD 100000 ;DEST 
6519 026472 000010 -WORD 10 | 
case 026474 100000 .WORD 100000 
6 026476 177777 .WORD 177777 ; SOURCE 
6 026500 100000 .WORD 100000 ;DEST 
6524 026502 000010 .WORD 10 
6525 026504 140000 .WORD 140000 
6527 | REAR EAREAEEEEEREREEEEEAEREEEEE EERE SEES SE EEEEE EEE EEEE SEES IDO 
6528 ;The following parameter source was modified to test both the 
6529 ;DCJ11-AA and 0CJ11-AB processor chips. 
177761 WORD 177761 ; SOURCE 
O55 026510 177777 WORD 177777 ;DEST 
5i2 000011 11 
6534 026514 177777 WORD 177777 
5 EER ERAERAARA EERE EEERERERES EE AEE REARS EE EEEEEEEEEEEREE EEE ED 
6537 026516 177706 .WORD 177706 ; SOURCE 
026520 102000 .WORD 102000 ;DEST 
6539 026522 000007 .WORD 7 
erty 026524 000000 -WORD O 
6 026526 177710 .WORD 177710 ; SOURCE 
6543 026530 017777 -WORD 17777 ;DEST 
532 000013 .WORD 13 
6545 026534 177400 .WORD 177400 
6547 026536 177713 .WORD 177713 ; SOURCE 
6 026540 -WORD 12 ;DEST 
6549 026542 -WORD 0 
6550 026544 050000 .WORD 50000 
6 026546 177707 .WORD 177707 ; SOURCE 
6553 026 170001 .WORD 170001 ;DEST 
6 026 -WORD 2 
6 026554 000200 .WORD 200 
7 026556 177717 .WORD 177717 ; SOURCE 
6 026560 .WORD 1 ;DEST 
6 026562 000012 -WORD 12 
6560 026564 100000 -WORD 100000 
ease 026566 177740 -WORD 177740 ; SOURCE 
026570 017777 -WORD 17777 ;DEST 
6564 026572 -WORD 4 
ease 026574 000000 .WORD O 
$ac$ 026576 177771 .WORD 177771 ; SOURCE 
6568 026600 150000 -WORD 150000 ;DEST 
6368 026602 000010 -WORD 10 
rely 026604 177640 .WORD 177640 
G37¢ 026606 177742 .WORD 177742 ; SOURCE 
026610 100000 .WORD 100000 ;DEST 





F 10 


6574 026612 
——_ 


657 
6577 026616 
6578 


177776 
000023 


177776 


000012 
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.WORD ii 
.WORD 177777 
.WORD 177764 ; SOURCE 
. WORD 100000 ;DEST 
.WORD 10 
-WORD 177770 
.WORD 177750 ; SOURCE 
-WORD 52525 ;DEST 
.WORD 4 
.WORD O 
.WORD 177760 ; SOURCE 
.WORD 100000 ;DEST 
.WORD ii 
.WORD 177777 
.WORD 177770 ; SOURCE 
.WORD 100000 ;DEST 
-WORD 10 
.WORD 177600 
-WORD 177712 ; SOURCE 
.WORD 4367 ;DEST 
-WORD 13 
-WORD 156000 
.WORD 177764 ; SOURCE 
.WORD 17777 ;DEST 
.WORD 1 
-WORD i 
.WORD 177701 ; SOURCE 
.WORD 110000 ;DEST 
.WORD 3 
.WORD 20000 
FIN127: NOP 
$£130: 
; TEST ASHC (ARITHMETIC SHIFT COMBINED) 
yO SOSLRL sTUP Ra 
’ 
MOV $52525,R5 ; SETUP 
CLR R4 ; SETUP 
scc ; cc 
ASHC R1,R4 ; TEST INSTRUCTION 
CMP 90177776, #12 ; 
BEQ i$ : 
+1 ;CPU 
;NO GO TO ERROR 
i$: CMP R1,#23 3IS R1 CORRECT 
BEQ 2$ YES GO ON 
+1 ;CPU 
;NO GO TO ERROR 
2$: CMP R4, #125250 ;IS R4 CORRECT 


SEQ 0122 
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001401 
104001 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 
9$: 


10$: 


11$: 


12$: 


13%: 


2582 25% 253 g5% gE8RRSEE 2 353 253 253 gS8RRS58 25% 


3$ 
+1 


RS, #0 

as 

+1 

#52525 ,RS 
R2 
#164731,R4 
#23,,R3 
90177776, #12 
5$ 

+1 

R2, #0 

6$ 

+1 

R3, #0 

7$ 

+1 

R4, #164731 
8$ 

+1 


@TE130A,R1 
R1,R4 
2(R1),R2 
4(R1),R3 
(R1),R2 
90177776, 6(R1) 
108 


10(R1),R2 
11$ 


a 
a 


12(R1),R3 
12$ 

+1 

R4,R1 

13$ 

+1 

R4,R1 
(Ri), (R4) 
14§ 


;SETUP Re 
;SETUP R4 

;SET ALL CC BITS 

; TEST INSTRUCTION 


;IS PS 
YES GO ON 


;CPU 
;NO GO TO ERROR 
;1S R2 CORRECT 
YES GO ON 
;CPU 
;NO GO TO ERROR 
;1S R3 CORRECT 
YES GO ON 
;CPU 
;NO GO TO ERROR 


;IS R4 CORRECT 
YES GO ON 


;CPU 
;NO GO TO ERROR 
: 
SETUP POINTERS TO TABLES 
;SAVE A COPY OF Ri 
SSETUP RS 
;SET ALL CC BITS 


; TEST INSTRUCTION 
;1S PS CORRECT 
YES GO ON 


;CPU 

;NO GO TO ERROR 
31S Ri CORRECT 
YES GO ON 


;CPU 
;NO GO TO ERROR 


;CPU ERROR 


SEQ 0123 
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SEQ 0124 


6690 ;NO GO TO ERROR 
€691 s;POSSIBLE SOURCE CODE CORRUPTION 
6692 027150 062701 000014 14$: ADD #14,R1 | ;GO TO NEXT TEST 
6693 027154 020127 027576 CMP Ri, # INi30 ; WE DONE 
6694 027160 001340 BNE ;NO GO TO 9$ 
6696 
pr 9d 027162 000167 000410 JMP FIN130 
; 
66 
6700 027166 177700 TE130A: .WORD 177700 
6701 027170 100125 .WORD 100 sDESTINATION WORD 1 
6702 027172 177777 .WORD 177777 ;DESTINATION WORD 2 
6703 027174 000010 -WORD 1 ;TEST PSW 
6704 027176 100125 . WORD ;RESULT 1 
oh 027200 177777 .WORD 177777 sRESULT WORD 2 
6707 027202 177777 -WORD 177777 
6708 027204 000001 -WORD 1 sDESTINATION WORD 1 
027206 000000 -WORDB O ;DESTINATION WORD 2 
6710 pA tg 000000 -WORD 0O ; TEST 
1 027212 900000 -WORDB O ;RESULT WORD 1 
6712 027214 100000 -WORD 100000 ;RESULT WORD 2 
6714 027216 177701 -WORD 177701 
715 osTees 047777 .WORD 47777 ;DESTINATION WORD 1 
027 100000 .WORD 100000 ;DEST WORD 2 
6717 027 tee . WORD ; TEST 
718 027 11 -WORD 117777 ;RESULT 1 
o7k? 0272 . WORD ;RESULT WORD 2 
6721 027232 177706 -WORD 177706 ; SOURCE 
6 7234 004256 .WORD 4256 ;DESTINATION WORD 1 
6 177700 -WORD 177700 sDESTINATION WORD 2 
6 027240 Oo00s -WORD 2 ;TEST PSW 
6 027242 0256 -WORD 25677 ;RESULT 
6 027244 170000 -WORD 170000 ;RESULT WORD 2 
6 027 177711 -WORD 177711 ; SOURCE 
6729 027 065700 .WORD 65700 sDESTINATION WORD 1 
6 027 000012 -WORD i2 ;DESTINATION WORD 2 
6731 027 000013 .WORD 13 ; TEST PSW 
ors 027256 100000 -WORD 100000 ;RESULT WORD 1 
6 027260 012000 -WORD 12000 sRESULT WORD 2 
6 PeeReReeeS EERE EEE EREEEEEEEEEEEEEEE EERE EEE EEEEEEEEEEE SES IPD 
6 ; The following peremeter source was modified to test both the 
. ;0CJ11-AA and 11-AB processor chips. 
6 02 177761 .WORD 177761 : 
6740 027264 000000 -WORD 0 ;DESTINATION WORD 1 
6741 027266 000001 . WORD i ; INATION e 
. WORD ; 
rt 027272 000000 -WORD 0O sRESULT WORD 1 
6744 027274 000000 WORD 0 T 


;REREREEEEEESEEEESESESERESESESEEESERS + EEEEEERESEESESES ESSE SS 
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6802 
6803 027436 


177736 


seeeceeeeses DOUBLE OPERAND TESTS #4404464486446444% 
6747 027276 
6748 7300 


5588 


§ S55855 EESSGS Q95G88 SERRE 555555 SE8058 S95858 82 


177736 


10 
177777 
177777 


177742 


; SOURCE 
;DESTINATI 
;DESTINATI 
; PSW 


T 
‘RESULT 1 
TRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 
sDESTINATION WORD 2 


;TEST PSW 
;RESULT i 
;RESULT WORD 2 


; SOURCE 

s;DESTINATION WORD 1 

;DESTINATION WORD 2 
EST PSW 


; SOURCE 
;DESTINATION WORD 1 
sDESTINATION WORD 2 
;TEST PSW 

;RESULT WORD 
s;RESULT WORD 2 


~ 


; SOURCE 


SEQ 0125 
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SEQ 0126 


6804 027440 037777 .WORD 37777 ;DESTINATION WORD 1 
6805 027442 177777 WORD 177777 ;DESTINATION WORD 2 
6806 027444 000005 .WORD 5 ; TEST PSW 
6807 027446 000000 .WORD 0O ;RESULT 1 
6808 027450 00009 .WORD 0 ;sRESULT WORD 2 
6810 027452 i*° 42 .WORD 177742 
6811 027454 077,77 . WORD 77 sDESTINATION WORD 1 
0274 177°77 -WORD 177777 DESTINATION WORD 2 
6813 027460 000001 -WORD 1 ;TEST PSW 
6814 027462 000000 .WORD 0O sRESULT WORD 1 
6815 027464 000001 -WORD 1 sRESULT WORD 2 
7 027 177711 .WORD 177711 ; SOURCE 
6818 027470 065600 .WORD 6 DESTINATION WORD 1 
6819 027472 000012 .WORD 12 PEST TATION WORD 2 
0274 000003 -WORD 3 iT ST PSW 
6821 027476 000000 -WORD 0O WORD 1 
02 012000 .WORD 12000 RESULT WORD 2 
6824 027502 177740 .WORD 177740 ; SOURCE 
6825 027504 077777 . WORD 77 : DESTINATION WORD 1 
6826 02 177777 -WORD 177777 sDESTINATION WORD 2 
6827 027510 000004 .WORD 4 ; TEST PSW 
6828 0275 000000 .WORD 0 :RESULT WORD 1 
ones 027514 000000 -WORD 0O ;RESULT WORD 2 
6831 5 eRAAAAE RAE REE EERE EESEEEEREEEEEEREEE EE EEEEEE REESE ESS EEEEE IPD 
6832 iThe following na poremater source was modified to test both the 
oeay DCJ11-AA and 11-AB processor chips. 
6835 027516 177761 .WORD 177761 ; SOURCE 
6836 02 77777 .WORD 177777 DESTINATION WORD 1 
6837 027522 177774 .WORD 177774 sDESTINATION WORD 2 
6838 027524 11 -WORD 11 ‘TEST PSW 
6839 027526 177777 .WORD 177777 sRESULT WORD 1 
6840 027530 177777 .WORD 177777 RESULT WORD 
i 5 EEARERAARERESSERESEREESESEAESEEESSSAE SESE RES ES ERSE EERE SEES 
6843 027532 177747 .WORD 177747 ; SOURCE 
027534 100000 .WORD 100000 ‘DESTINATION WORD i 
6845 027536 174000 .WORD 174000 ;DESTINATION WORD 2 
027540 000010 -WORD 10 ; TEST PSW 
6847 027542 177777 .WORD 177777 sRESULT WORD 1 
027544 177700 -WORD 177700 sRESULT WORD 2 
027546 177753 .WORD 177753 ; SOURCE 
6851 027550 .WORD 6324 : DESTINATION WORD 1 
027552 071002 .WORD 71002 fa WORD 2 
027554 1 -WORD 1 
027556 .WORD 0O ‘RESULT WORD 1 
6855 027560 000146 -WORD 146 sRESULT WORD 2 
027562 177765 .WORD 177765 ; SOURCE 
6858 027564 102351 .WORD 102351 DESTINATION WORD 1 
6859 027566 177231 .WORD 177231 sDESTINATION WORD 2 
6860 027570 ii .WORD ii ;TEST PSW 
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SEQ 0127 
e0e000060000e DOUBLE OPERAND TESTS se400000006040488 

6861 027572 177760 .WORD 177760 ;RESULT WORD 1 
6862 027574 116477 "WORD 116477 SRESULT WORD 2 
6863 027576 FIN130: | 

02757 MSPAU: 

; TEST THAT AUTO DEC/INC OPERATIONS USING SP ARE ON WORD BOUNDRYS 

6869 027576 CLR , 
6870 027600 112667 153314 (R6)+, COUNT ;TRY AUTOINC ON R6 
6871 027604 706 000002 CMP $2, R6 ;VERIFY AUTO INC BY 2 
6872 027610 001401 BEQ SPAUL ;BRANCH IF GOOD 
6873 “BAD AUTO-INC 
6874 027612 104001 +1 ;CPU ERROR 
6875 027614 005006 SPAU1: CLR R6 ;CLEAR R6 
6876 027616 112667 153276 MOVB _ (R6)+, COUNT 
6877 027622 112667 153272 MOVB  (R6)+,C ,DOUBLE BYTE AUTO-INC 
6878 027626 022706 CMP $4, R6 sVERIFY RESULT 
6879 027632 001401 BEQ SPAU2 ;BRANCH IF GOOD 

027634 104001 ERROR +1 rouge! ERROR 

;BAD E AUTO-INC 

6882 027636 012706 001000 SPAU2: MOV #STBOT,R6 ; R6 
6883 027642 114667 153252 MOVB = -( R6),, COUNT ites AUTO-DEC 

027 706 000776 CMP #776, R6 ; VERIFY RESULT 
6885 027652 001401 BEQ SPAUS ;BRANCH IF GOOD 

027654 +1 ;CPU ERROR 
6888 027656 012706 001000 SPAU3: MOV @STBOT ,R6 ;LOAD R6 
6889 027662 114667 153232 -(R6), COUNT ; TEST AUTO-DEC 
6890 027 114667 153226 MOVB = -CR6), COUNT . TEST AUTO-DEC 
6891 027672 022706 000774 CMP #774,R6 ;VERIFY RESULT 
6892 027676 001401 BEQ SPAU4 ;BRANCH IF GOOD 
6893 027700 104001 +1 ; 
6895 027702 SPAU4: CLR R6 ; TEST AUTO-INC ON SOP 
68% 027704 105726 TSTB ss CRB + ; TEST AUTO-INC 
6897 027706 7 000002 CMP R6, #2 

027712 001401 BEQ SPAUS ;BRANCH IF GOOD 
6899 027714 104001 +1 ;CPU ERROR 
6901 027716 012706 001000 SPAUS: 8STBOT ,R6 ;LOAD R6 

027722 105746 TSTB ss CR86) ; TEST AUTO-DEC 
6903 027724 022706 000776 CMP $776, R6 SVERIFY RESULT 

02 001401 BEQ SPAU6 ;BRANCH IF GOOD 
6905 027732 ERROR +1 
6907 027734 012706 001000 SPAU6: MOV #STBOT ,R6 
6910 ; 
oate 027740 MTRY: 
6914 : VERIFY YELLOW ZONE TRAP ON AUTO DEC OF R6 
6915 027740 005067 150022 CLR CPEREG SINIT CPU ERROR REGISTER 
6916 027744 012706 000150 MOV #150,R6 ;LOAD R6 WITH A VALUE THAT WILL 
6917 ‘CAUSE A YELLOW STACK TRAPCIE. <400) 
6918 02 016767 150030 153034 MOV 4,SLOC00 ;SAVE VECTOR 
6919 02 012767 030014 150020 MOV OMTRYA, 4 SETUP THE STACK OVERFLOW TRAP POINTER 
6920 027764 016701 150156 MOV 146,R1 ;SAVE VECTOR 
6921 027770 016702 150150 MOV 144,R2 sSAVE VECTOR 





L1Q 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:30 Page 14-109 


S 
ae006e000000 DOUBLE OPERAND TESTS #466404644444440% EQ 0126 
6922 027774 016703 150142 MOV 142,R3 ;SAVE VECTOR 
6923 030000 005067 150142 CLR 146 ; JUST AS A PRECAUTION 
6924 030004 005046 CLR -(R6) ‘CAUSE A STACK OVERFLOW TRAP 
6925 030006 012706 001000 MOV #STBOT ,R6 ‘RESTORE R6 FOR ERROR CALL 
6926 030012 104001 ERROR +1 ;CPU ERROR 
6927 ;OVERFLOW TRAP FAILED 
6928 030014 MTRYA: 
6929 030014 022767 000010 147744 CMP #BITO3,CPEREG ;WAS CPU ERROR REG SET PROPERLY? 
6930 030022 001003 BNE 1$ :GO TO ERROR IF NOT 
6931 030024 020627 000142 CMP R6, #142 ;VERIFY CORRECT DECRIMENT OF R6 
6932 030030 001401 BEQ MTRYB ;BRANCH IF GOOD 
6933 030032 104001 i$: ERROR +1 ;CPU ERROR 
6934 :R6 IMPROPERLY DECRIMENTED 
6935 :OR CPU ERROR REGISTER NOT CORRECT 
6936 030034 MTRYB: 
6937 030034 005067 147726 CLR CPEREG ;CLEAR THE CPU ERROR REGISTER 
6938 030040 016767 152746 147736 MOV SLOCOO,4 -RESTORE VECTOR 
6939 030046 010167 150074 MOV R1,146 ;RESTORE VECTORS 
6940 030052 010267 150966 MOV R2,144 ; 
6941 030056 010367 150060 MOV R3,142 ; " 
6942 030062 012706 001000 MOV #STBOT ,R6 
6944 
6946 ; 
pio 030066 MTRYM: 
6950 ; TEST STACK OVERFLOW TRAPS IN VARIOUS MODES 
6951 030066 005067 147674 CLR CPEREG -CLEAR CPU ERROR REGISTER 
6952 030072 012706 000400 MOV $400 ,R6 :SETUP OVERFLOW R6 DATA 
6953 030076 016767 147702 152706 MOV 4,SL0C00 ;SAVE VECTOR 
6954 0301 030126 147672 MOV #TRYMA,4 
CLR 376 ; JUST AS A PRECAUTION 
CLR -(R6) “CAUSE OVERFLOW TRAP 
MOV #STBOT RE “RESTORE R6 FOR ERROR CALL 
ERROR +1 CPU 
;NO OVERFLOW TRAP 
TRYMA: 
CLR CPEREG ;CLEAR CPU ERROR REGISTER 
MOV #1000,R5 ‘SETUP RS DATA 
MOV 6400.8 R6 SSETUP OVERFLOW R6 DATA 
147634 MOV 
ADD TROD” "¢R5) ;CAUSE OVERFLOW TRAP 
MOV SSTBOT RE RESTORE R6 FOR ERROR CALL 
ERROR +1 CPU 
:NO OVERFLOW TRAP 
TRYMB: 
CLR CPEREG :CLEAR CPU ERROR REGISTER 
MOV #150,R6 ;SETUP OVERFLOW R6 DATA 
147606 MOV éTRYMC, 4 
BIC -(R5),-C(R6) ;CAUSE OVERFLOW TRAP 
MOV SSTBOT ,R6 “RESTORE R6 FOR ERROR CALL 
ERROR + ;CPU E 
‘NO OVERFLOW TRAP 
TRYMC: CLR CPEREG ;CLEAR CPU ERROR REGISTER 
147564 MOV SLOC00. 4 -RESTORE VECTOR 
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SEQ 0129 
seeeseseeees DOUBLE OPERAND TESTS #e0¢80464640446444% 
6981 
6983 ; 
6965 030224 MILLO: 
6987 TEST STACK OVERFLOW ON ILLEGAL INST TRAP 
6988 030 005067 147536 CLR CPEREG ;CLEAR CPU ERROR REGISTER 
6989 030230 012706 000400 MOV $400, R6 ‘SETUP FOR OVERFLOW TRAP 
6990 030234 016767 147550 MOV 10, SLOCOO ;SAVE VECTOR 
6991 030242 012767 030270 147540 MOV @MILLOA, 10 ;SETUP ILLEGAL TRAP VECTOR 
030250 016767 147530 MOV 4,SLOCO1 ;SAVE VECTOR 
6993 030256 012767 030276 147520 MOV eMILLOB ,4 ;SETUP OVERFLOW TRAP VECTOR 
6994 030264 77 77 :UNUSED INSTRUCTION TRAP 
030266 000240 NOP 
030270 012706 001000 MILLOA: MOV &STBOT ,R6 -RESTORE R6 FOR ERROR CALL 
6997 030274 104001 ERROR +1 ;CPU 
6998 ;UNUSED INSTRUCTION TRAP 
6999 030276 MILLOB: 
7000 030276 016767 152512 147500 MOV SLOCO1,4 ;RESTORE VECTOR 
7001 030304 016767 152502 147476 MOV SLOCOO, 10 sRESTORE VECTOR 
7008 030312 005067 147450 CLR CPEREG ;CLEAR CPU ERROR REGISTER 
7008 030316 012706 001000 MOV #STBOT ,R6 SRESTORE R6 
7005 
7006 
7008 ; 
7010 030322 MIOTO: 
7012 ; TEST STACK OVERFLOW ON IOT TRAP 
7013 030322 005067 147440 CLR CPEREG ;CLEAR CPU ERROR REGIST 
030326 012706 000400 MOV ,R6 :SETUP STACK FOR OVERFL 
7015 030332 016767 147462 152452 MOV 20, SLOCOO ‘SAVE OLD IOT VECTOR 
7016 030340 012767 030366 147452 MOV gTOTOA 20 ;SETUP ERROR ACTION ON IOT 
7017 030346 016767 147432 152440 MOV 0C01 ‘SAVE VECTOR 
7018 030354 012767 030374 147422 MOV otoros 4 ‘SETUP CORRECT TRAP VECTOR FOR 
030362 000004 IOT ; TEST INSTRUCTION 
1 000240 NOP 
012706 001000 IOTOA: MOV @STBOT .R6 ;RESTORE R6 FOR ERROR CALL 
7023 030372 104001 ERROR +1 ;CPU ERROR 
;FAILURE OF STACK OVERFLOW 
7025 030374 IOTOB: 
70286 030374 005067 147366 CLR CPEREG ;CLEAR CPU ERROR REGISTER 
7027 030400 012706 001000 MOV &STBOT ,R6 
030404 016767 152404 147372 SLOCO1,4 ;RESTORE VECTOR 
U 030412 016767 152374 147400 MOV SLOCOO, 20 SRESTORE TRAP VECTOR 
7033 : 
2 
030420 MEMTO: 
7036 
7037 : TEST STACK OVERFLOW ON EMT TRAP 
7038 030420 005067 147342 CLR CPEREG ;CLEAR CPU ERROR REGIST 
7039 O304e4 012706 000400 MOV $400, R6 ;SETUP STACK FOR ES OVERFLOW 
7040 030430 016767 147374 152354 MOV 30, SLOCOO SAVE OLD EMT VECTOR 
+083 Seoaae o1e767 ta O34 15382 HOV ee océi ‘SAVE VECTOR — 
; 
1088 030452 012767 030472 147324 MOV SEMTOB 4 SETUP CORRECT TRAP VECTOR FOR 





NiO 


7044 

7045 030460 
7046 030462 
7047 030464 
7048 030470 


7049 

7050 030472 

At 030472 
30500 


104000 
000240 
012706 
104001 


016767 
016767 
005067 


012706 


016767 
016767 
005067 


012706 


012767 
000003 


000240 
012706 
104001 


005067 
016767 
016767 
012706 


001000 


147074 
152114 
152110 
001000 


147330 
147276 


147236 
147200 


147114 
147076 


MTRPO: 


BPTOA: 


Sse 3883 


ss 


SLOCOO , 30 
SLOCO1,4 
CPEREG 
#STBOT ,R6 


#STBOT ,R6 
+1 


SLOCOO , 34 
SLOCO1,4 
CPEREG 


#STBOT ,R6 


TEST STACK OVERFLOW ON BPT 
R CPEREG 


14 3° OL00 
gOrTOA,14 
#BPTOB , 4 


#STBOT ,R6 
+1 


CPEREG 
SLOCOO, 16 
SLOCO1,4 
#STBOT , RE 
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SEQ 0150 


; OVERFLOW 
TEST INSTRUCTION 
VRESTORE R6 FOR ERROR CALL 
;CPU ERROR 

“FAILURE OF STACK OVERFLOW 
SRESTORE TRAP VECTOR 
REST 

SCLEAR CPU ERROR REGISTER 


;CLEAR CPU ERROR REGISTER 
;SETUP STACK FOR OVERFLOW 
;SAVE OLD TRP VECTOR 
;SETUP ERROR ACTION ON TRP 
;SAVE VECTOR 
pt eae TRAP VECTOR FOR 
TEST INSTRUCTION 
sRESTORE R6 FOR ERROR CALL 

;CPU ERROR 

;FAILURE OF STACK OVERFLOW 

sRESTORE TRAP VECTOR 


'RESTORE VECTOR 
.CLEAR CPU ERROR REGISTER 


;CLEAR CPU ERROR REGISTER 
;SETUP STACK FOR _ 


ERROR 
;SAVE VECTOR 
;SETUP CORRECT TRAP VECTOR FOR 
; OVERFLOW 
; TEST INSTRUCTION 
;RESTORE R6 FOR ERROR CALL 
;CPU ERROR 
;FAILURE OF STACK OVERFLOW 
;CLEAR CPU ERROR REGISTER 


;RESTORE TRAP VECTOR 
;RESTORE VECTOR 


ET LK TT 





Bil 
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SEQ 0131 
eeseeseseseos DOUBLE OPERAND TESTS seesesesesesesess 
7106 5 
7108 030712 MILAO: 
7110 ; TEST STACK OVERFLOW AND ILLEGAL UMP INSTRUCTION 
7111 030712 7 147050 CLR CPEREG SCLEAR CPU ERROR REGISTER 
7112 030716 012706 MOV $400, R6 ;SETUP STACK FOR OVERFLOW 
7113 030722 016767 147062 152062 MOV 10, SLOCOO ‘SAVE OLD ILLEGAL INST. VECTOR 
7114 030 012767 030760 147052 MOV @ILAOA, 10 ;SETUP ERROR ACTION ILLEGAL OPCODE 
7115 030 016767 147042 1£2050 MOV 4,SLOC01 SSAVE VECTOR 
7116 030744 012767 030766 147032 MOV #ILB08 ,4 ;SETUP CORRECT TRAP VECTOR FOR 
7117 OVERFLOW 
7118 030752 CLR R1 
7119 030754 000101 Jip R1 ; TEST INSTRUCTION 
7121 030760 012706 001000 ILAOA: MOV #STBOT .R6 sRESTORE R6 FOR ERROR CALL 
7122 030764 1 ERROR +1 ;CPU ERROR 
;FAILURE OF STACK OVERFLOW 
7124 030766 ILBOB: 
7125 030766 016767 152022 147010 MOV SLOCO1,4 ;RESTORE VECTOR 
7126 030774 016767 152012 147006 MOV SLOCOO, 10 RESTORE TRAP VECTOR 
7127 031002 005067 146760 CLR CPEREG CLEAR CPU ERROR REGISTER 
7128 031006 012706 001 MOV SSTBOT .R6 
7131 ; 
7132 ; 
7134 031012 MILLBO: 
7136 ; TEST STACK OVERFLOW ON ILLEGAL JSR INST 
7137 031012 0127 MOV $400, R6 ;SETUP STACK FOR OVERFLOW 
7138 031016 016767 146766 151766 MOV 10, SLOCOO ;SAVE OLD VECT 
031024 012767 031054 146756 MOV #ILLBOA ;SETUP ERROR ACTION ON ILL. OPCODE 
7140 031032 016767 146746 151754 MOV 4,SL0COi SAVE VECTOR 
7141 031040 012767 031062 146736 MOV #ILLB08, :SETUP CORRECT TRAP VECTOR FOR 
7142 ; OVERFLOW 
7143 031046 CLR Ri 
7144 031030 004501 JSR R5,R1 ; TEST INSTRUCTION 
7146 031 012706 001000 ILLBOA: MOV @STBOT ,R6 ;RESTORE R6 FOR ERROR CALL 
7147 031060 1 ERROR +1 ;CPU ERROR 
7148 ;FAILURE OF STACK OVERFLOW 
7149 031062 ILLBOB: 
7150 031062 016767 151726 146714 MOV SLOCO1,4 ;RESTORE VECTOR 
7151 031070 016767 154716 146712 MOV SLOCOO, 10 ;RESTORE TRAP VECTOR 
7152 031076 012706 000 MOV #STBOT ,R6 
7155 , 
71 ; 
1133 031102 MSTO 
TEST FOR FALSE STACK OVERFLOW 
Tiel 031102 016767 146676 151702 MOV , SLOCOO ;SAVE VECTOR 
rigs 1110 012767 031156 146666 MOV @MSTOE 4 ;ANTICIPATE OVERFLOW ERROR 
031116 012706. 001002 MOV #1002 ,R6 ; SETUP 
031122 46 TST -(R6) sTRY TO CAUSE STACK OVERFLOW 
1185 O81 124 012706 MOV 82002 , R6 ; L 
166 031130 005746 TST -(R6) STRY TO CAUSE STACK OVERFLOW 
7167 031132 012706 004002 MOV $4002 , R6 :SETUP LEGAL R6 
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SEQ 01352 


7168 031136 005746 TST -(R6) ;TRY TO CAUSE STACK OVERFLOW 
7169 031140 012706 010002 MOV #10002 ,R6 ; L 
7170 031144 746 TST -(R6) | sTRY TO CAUSE STACK OVERFLOW 
7171 031146 012706 100402 MOV #100402 , R6 ; L 
7172 031152 005746 TST -(R6) sTRY TO CAUSE STACK OVERFLOW 
7173 031154 000403 BR MSTOEE E 
7174 031156 012706 001000 MSTOE: MOV eSTBOT,R6 RESTORE R6 FOR ERROR CALL 
7175 031162 104001 ERROR +1 CPU 
7176 ;STACK OVERFLOW ERROR 
7177 031164 016767 151622 146612 MSTOEE: MOV SLOCOO, 4 ;RESTORE VECTOR 
7178 031172 012706 001000 MOV SSTBOT .RE 
71861 ; 
7182 ; 
7184 031176 MTT: 
7185 
7186 ; TEST T-BIT TRAPS 
7187 031176 012706 001000 MOV #STBOT ;SETUP STACK 
7188 031202 016767 146606 151602 MOV 14, SLOCOO ; SAVE T-BIT VECTOR 
7189 031210 012746 000020 MOV #20, -(R6) :PUSH T-BIT 
7190 031214 012746 031232 MOV OMTTA, -(R6) ;SETUP ERROR TRAP VECTOR 
7191 031220 012767 031234 146566 MOV eMTTB,14 ;SETUP NEW T-BIT VECTOR 
1286 000002 RTI CAUSE A T BIT SET IN PSW 
7193 031230 104001 “1 ;CPU ERROR 
7194 ; SHOULD NEVER BE EXECUTED 
7195 031232 104001 MITA: ERROR +1 CPU 
7 ;DIDNT TAKE CORRECT TRAP 
7197 031234 022706 000774 MTTB: CMP @STBOT-4,R6 ;VERIFY SP DECIRMENT 
7198 031240 001401 BEQ MTTD BRANCH IF GOOD 
7199 081242 104001 ERROR +1 :CPU ERROR 
1301 031244 021627 031232 MTTD: CMP (R6), @MTTA ;VERIFY PC SAVED ON STACK 
031250 001401 BEQ MTTE BRANCH IF GOOD 
7203 031252 104001 ERROR «1 ;CPU 
S INCORRECT PC ON STACK 
7205 031254 MTTE: 
7206 031 016767 151532 146532 MOV SLOCOO, 14 ;RESTORE VECTOR 14 
7208 031262 012706 001000 MOV @STBOT ,R6 
é 
1533 031266 MTTS 
; TEST T-BIT TRAPS WITH RTT 
7216 031266 012706 001000 MOV TBOT .R6 ;SETUP STACK 
7217 031272 016767 146516 151512 MOV SL0C00 ;SAVE OLD T-BIT VECTOR 
7218 031 012746 000020 MOV #20, -(R6) ;PUSH T-BIT 
7219 031304 012746 031322 MOV OMTTSA, -(R6) :SETUP ERROR TRAP VECTOR 
7220 031310 012767 031326 146476 MOV TSB, 1 ;SETUP NEW T-BIT VECTOR 
1 03°316 000006 RTT CAUSE A T BIT SET IN PSW 
104001 ERROR +1 ;CPU 
;SHOULD NEVER BE EXECUTED 
7224 031322 000240 MTTSS: NOP RTT WILL EXECUTE THIS INSTRUCTION 
WITH A T-BIT TRAP 
031324 104001 MTTSQ@: ERROR +1 


CPU 
SDIDNT TAKE CORRECT TRAP 
SVERIFY SP DECIRMENT 


7228 031326 022706 000774 MTTSB: CMP @STBOT -4,R6 





Dil 


7229 031332 
7230 031334 
7231 


71244 
7245 031360 
7246 364 


420 
7233 031422 


7270 031476 
727 

7272 031500 
7273 031506 
7274 031510 
7275 

7276 031512 
7277 031512 
7278 031520 
7279 


7383 031524 
7284 


7286 031524 
7287 031530 
7288 031536 
7289 031544 


001401 
104001 


021627 
001401 


016767 
012706 


016767 
012706 


012706 
016767 
012767 
000077 


031324 


151440 
001000 


147344 


000377 
031476 
031500 


147272 


151274 
001000 


001000 
146254 
031550 


146440 


151420 


146332 
146306 


000377 


146274 


151254 
146244 


MTTSD: 


MTTRA: 
MTTRB: 


MTTRC: 


MTTRD: 
MTTRE: 


TEST OLD STATUS ON T-BIT TRAP 
#STBOT , R6 
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MTTSD BRANCH IF GOOD 
| SCPU ERROR 
;BAD SP 
(R6), @MTTSQ ;VERIFY PC SAVED ON STACK 
MTTSE BRANCH IF GOOD 
+1 ;CPU E 
s INCORRECT PC ON STACK 
SLOCOO, 14 ;RESTORE VECTOR 14 
#STBOT .R6 


MOV ;SETUP STACK 
MOV 14 SLOCOO ;SAVE OLD VECTOR 
MOV #20, -(R6) ;PUSH T-BIT 
MOV ser taA. -(R6) ‘SETUP ERROR TRAP VECTOR 
MOV @MTTRB 14 :SETUP NEW T-BIT VECTOR 
HOV #357,PS :SET PRIORITY AND COND C 
RTI 
+1 ;CPU ERROR 
" s SHOULD NEVER EXECUTE 
‘DIDNT TAKE CORRECT 
STBOT-2, #20 ;VERIFY PSW ONS STACK 
MT IF CORRECT STATUS 
+1 ;CPU 
:BAD STATUS ON STACK 
#STBOT .R6 ;SETUP STACK 
#377, -(R6) ;PUSH T-BI 
SMTTAD, -(R6) ; SETUP RAP OR 
@MTTRE , 14 :SETUP NEW T-BIT VECTOR 
#0 ,PS ;CLEAR ORI 


Ss 25% Z gABSESES 253 : 


TEST RESERVED INST TRAP 
MOV #STBOT ,R6 


MOV 
MOV 


IORITY 
;CLEAR CONDITION CODES 


+1 ;CPU ERROR 
;SHOULD NEVER EXECUTE 


+1 ;CPU 

‘DIDNT TAKE CORRECT TRAP 
STBOT-2,4377 ;VERIFY OLD PSW ON STACK 
MTTRF ‘ BRANCH IF GOOD 
+] ;CPU 

;0LD PSW INCORRECT 
SLOCOO,14 ;RESTORE VECTOR 
@STBOT ,R6 


;SETUP STACK 


10, SLOCOO -SAVE OLD VECTOR 


;SETUP NEW RESERVED VECTOR 








SEQ 01355 





Lt 031546 


7302 031576 
7303 
7306 
7308 031602 
7309 


7310 
7311 031602 
7312 
7313 031614 
7314 


666 
7327 031670 
7328 
7329 031672 
7330 
7331 031674 
7332 031702 
7333 031704 
7334 
7335 031706 
7336 031706 
7337 031714 
7341 031720 


016767 
012706 


000774 


031546 


151216 
001000 


147136 


001000 
031674 
000357 


147076 


151100 
001000 


146212 


151176 
146166 


000357 


146074 


151060 
146074 


MRTA: 
MRTB: 


MRTE: 


MRTF : 


MRTOB: 


MRTOC: 


MTPR: 


ERROR +1 
CMP #STBOT -4,R6 
BEQ MRTE 

+1 
CMP CR6),@MRTA 
BEQ =" 


MOV SLOCOO, 10 
MOV #STBOT ,R6 


COKDAFO KDJ11-B8 CLUSTER DIAG. MACRO VO5.03 Fridey 28-Mar-86 13:30 Page 14-115 
eeeeeeeeeese DOUBLE OPERAND TESTS seee0eeeeee88404 


;CPU ERROR 
;DIDNT TAKE CORRECT TRAP 


;VERIFY SP DECRIMENT 
BRANCH IF GOOD 


;CPU 
;BAD PC ON STAC’ 


;VERFY PROPER PC ON STACK 
BRANCH IF GOOD 


;CPU 
; INCORRECT PC ON STACK 


;RESTORE TRAP VECTOR 


TEST OLD STATUS ON RESERVED INST TRAP 
MOV R6 


CLR 
CCC 
77 

+1 
CMP STBOT-2, #0 
BEQ oc 

el 
MOV 8STBOT .R6 
MOV #MRTOE . 10 
MOV $357,PS 
SCC 
77 
ERROR +1 
CMP STBOT-2, 8357 
BEQ HRTOF 

oo 


MOV SLOCOO, 10 
MOV #STBOT ,R6 


TEST TRAP INST 
MOV 


MOY Sa SLOCOO 
MOV OMTPB , 34 
CLR PS 

ccc 

TRAP 

ERROR +1 


;SETUP STACK 
;SAVE OLD VECTOR 


SETUP NEW VECTOR 

; CLEAR PRIORITY AND COND C 
;CPU ERROR 
DIDNT TAKE CORRECT TRAP 

; VERIFY PSW ON STACK 
coy ‘ BRANCH IF CORRECT STATUS 
;BAD STATUS ON STACK 

;SETUP STACK 

;SET UP TRAP VECTOR 

;SET TY 

;SET CONDITION CODES 

;RESERVED INSTRUCTION 
;CPU ERROR 
DIDNT TAKE CORRECT TR 

;VERIFY OLD pow ON STACK 
IF GOOD 


;CPU 
;0LD PSW INCORRECT 


;RESOTRE TRAP VECTOR 


;SETUP STACK 
SAVE OLD VECTOR 
TRAP 


VECTOR 
;CLEAR PRIORITY ABND COND C 


;CPU ERROR 


SEQ 0134 
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7355 

7356 031762 
7357 031766 
7358 031770 


7360 031772 
7361 031772 
032000 


7411 032160 


016767 
012706 


016767 
012706 


000774 


031750 


151014 
001000 


146734 


146674 


150676 
001000 


146034 


150774 
146010 


145752 
145706 


000357 


145716 


MTPB: 


MTPQ: 


MTPF : 





CMP 


CCC 


8 35% agneee 253 23 





SEQ 0135 


;DIDNT TAKE CORRECT TRAP 
; VER 


#STBOT-4,R6 IFY SP DECRIMENT 
MTPQ BRANCH IF GOOD 
+1 ;CPU 
:BAD PC * STACK 
C(R6), #MTPR Y PROPER PC ON STACK 
MTPF BRANCH IF GOOD 
+1 ;CPU 
; INCORRECT PC ON STACK 
SLOCOO , 34 sRESTORE VECTOR 
#STBOT ,R6 


@STBOT ,R6 ;SETUP STACK 
34, SLOCOO ;SAVE OLD T 
@MTPOB , 34 :SETUP NEW TRAP VECTOR 
PS ;CLEAR PRIORITY AND COND C 
ol ;CPU ERROR 
;DIONT TAKE CORRECT TRAP 
STBOT-2, 40 ;VERIFY PSW ON STACK 
MTPOC :BRANCH IF CORRECT STATUS 
+1 ;CPU ERROR 
‘BAD STATUS ON STACK 
@STBOT RE ;SETUP STACK 
OMTPOE . 34 ‘SET UP TRAP VECTOR 
357,PS ‘SET PRIORITY 
;SET CONDITION CODES 
ISSUE TRAP 
+1 CPU 
;DIDNT TAKE CORRECT 
STBOT-2, 4357 :VERIFY OLD pew ON STACK 
MTPOF BRANCH IF GOOD 
+1 ;CPU 
;OLD PSW INCORRECT 
SLOCOO, 34 ;RESTORE TRAP VECTOR 
#STBOT ,R6 


TEST ALL TRAP OPCODES - SELF MODIFYING 

CLR .SETUP REGISTER TO INDICATE OPCODE 
MOV ¢STB07 R6 SSETUP STACK 

MOV SLOCOO ;SAVE OLD VECTOR 

MOV 4, 4. SL 0C01 ;SAVE IN CASE OF HALT 

MOV OMTPAH ;SETUP HALT TRAP 

MOV oMTPAA, 34 SETUP NEW TRAP VECTOR 

JMP MTPAA ‘GO INTO LOOPING CODE 
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SEQ 0136 


7412 ; 
7413 032164 000000 MTPAL: HALT SET TO A ZERO 
7414 032166 104001 ERROR +1 CPU 
STRAP INSTRUCTION FAILED TO T 
7416 EXAMINE GP CCODE AT UOCATION MTPAL : 
7417 032170 000167 000002 JMP MTPAA ATTEMPT 70 GO ON 
7419 032174 104001 MTPAH: ERROR +1 ;CPU ERROR 
7420 ‘ERROR, EITHER CANT MODIFY LOCATION MTPAL 
7421 [OR TRAP INSTRUCTION FAILED 
71438 032176 MTPAA: 
7483 032176 005203 INC R3 :GET NEXT OPCODE 
7425 032200 012706 001000 MOV @STBOT ,R6 ;RESTORE STACK 
032204 020327 000400 CMP 3,400 ;SEE IF LAST OPCODE 
7427 032210 001406 BEQ PAE :BR IF DONE 
032212 012767 104400 177744 MOV #104400 , MTPAL ; TRAP OPCODE INTO LOCATION 
7429 032220 060367 177740 ADD R3,MTPAL FORM TEST OPCODE 
032224 000757 BR MTPAL sEXECUTE TEST 
7433 032226 MTPAE: 
33 032226 016767 150560 145600 MOV SLOCOO, 34 
7434 032234 016767 150554 145542 MOV SLOCO1,4 sRESTORE VECTORS 
743 032242 012706 001000 MOV #STBOT ,R6 
a 3 ; 
; 
7442 032246 MIOT 
7443 
; TEST IOT TRAP 
7445 032246 012706 001000 MOV @STBOT RE ;SETUP STACK 
7446 032252 016767 145542 150532 MOV 20, SLOCOO SSAVE OLD VECTOR 
7447 032260 012767 032272 145532 MOV aMiOTB , 20 ‘SETUP NEW IOT VECTOR 
448 0 000004 IOT 
7449 032270 104001 MIOTA: ERROR +1 ;CPU ERROR 
rae ‘ DIDNT TAKE CORRECT TR 
7451 032272 022706 000774 MIOTB: CMP @STBOT-4,R6 ;VERIFY SP DECRIMENT 
71452 032276 001401 BEQ MIOTD ANCH IF GOOD 
7453 0 104001 ERROR +1 ;CPU 
14 ‘BAD PC ON STACK 
7455 032302 021627 032270 MIOTD: CMP (R6), @MIOTA ;VERFY PROPER PC ON STACK 
7456 032306 001401 BEQ MIOTF IF GOOD 
7457 032310 i ERROR +1 CPU 
74 INCORRECT PC ON STACK 
7459 032312 016767 150474 145500 MIOTF: MOV SLOCOO, 20 SRESTORE VECTOR 
7460 032320 012706 001000 MOV @STBOT .R6 
7464 032324 MITO 
7465 
7466 : TEST OLD STATUS ON IOT TRAP 
7467 032524 012706 001000 MOV @STBOT ,R6 ;SETUP STACK 
7468 032 016767 145464 199456 20, SLOCOO ;SAVE OLD VECT 
7469 032336 012767 032356 145454 MOV @MIT0B , 20 ;SETUP NEW IOT VECTOR 
7470 032344 005067 145426 CLR PS ‘CLEAR PRIORITY AND COND C 
7471 032 000257 ccc 
7472 000004 I0T 








Hil 


7473 032354 





016767 
012706 


016757 
016767 
012706 


146354 


145416 
145366 


000357 


145362 


145276 
145264 


MITOC: 


: 
METO: 
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MITOA: 
MITOB: 


+1 
STBOT-2, $0 
MITOC 


+1 
STSOT -2,%357 
7 


SLOCOO , 20 
#STBOT ,R6 
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SEQ 0137 


;CPU ERROR 
; DIDNT TAKE CORRECT TRAP 
;VERIFY PSW ON STACK 
; BRANCH IF CORRECT STATUS 


;CPU 
;BAD STATUS ON STACK 


;SETUP ST 
‘SET po TRAP VECTOR 
;SET PRIORITY 


;SET CONDITION CODES 


;CPU ERROR 
;DIDNT TAKE CORRECT 
; VERIFY OLD Pay ON STACK 
ANCH IF GOOD 


;CPU 
;0LD PSW INCORRECT 
;RESTORE VECTOR 


TEST EMULATOR TRAP INSTRUCTION (EMT) 
MOV 8STBOT ,R6 ;SETUP STACK 
MOV SAVE OLD VECTOR 
MOV NEW EMT VECTOR 
MOV ‘SAVE TRAP VECTOR 
MoV :SET UP TO HANDLE EMT ERROR 
TRAP ; TRAP ON ERROR 
.WORD 559. 
"WORD 1 s CPUERR 
"WORD 1 

‘DIDNT TAKE CORRECT TRAP 
CMP @STBOT-4,R6 ;VERIFY SP DECRIMENT 
BEQ METD IF GOOD 
ERROR +1 CPU 

‘BAD PC ON STACK 
CMP (R6), OMETA :VERFY PROPER PC ON STACK 
BEQ METF ;BRANCH IF GOOD 
ERROR +1 CPU 

s INCORRECT PC ON STACK 
MOV SLOCO1, 34 ;RESTORE VECTOR 
MOV SL0COO, 30 ;RESTORE VECTOR 
MOV SSTBOT RE 
TEST OLD STATUS ON EMT TRAP 
MOV TRE ;SETUP STACK 
MOV SLOCOO ‘SAVE OLD VECTOR 
MOV 08 . 30 ;SETUP NEW EMT VECTOR 
MOV 34, SLOCO1 ‘SAVE TRAP VECTOR 
MOV S$ERROR , 34 ;SET UP TRAP VECTOR 








Til 
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032604 
032610 
032612 
7537 032614 


32616 
032620 


a 
: 


e 


: 
¢ 


Shine 


8 


RERE ERE 
Bee RSn 


° 
© 
s 


BER PEREEL St sates Veauay uae sa ay as ts 





016767 
016767 
012706 


016767 
012706 


145166 


146146 


146100 


150016 
001000 


000357 


145122 
145110 


150054 
145050 


145016 


MBTF : 


eeseeesesese DOUBLE OPERAND TESTS sessseseseseseses 


39388 989 557322 


Fs) 
2 


ss 25% 555 


PS 


me 


STBOT -2 oy #0 
METOC 

+1 

#STBOT ,R6 
#METOE, 
#357,PS 


STBOT-2, #357 
_ 


TEST BPT TRAP 
#STBOT 


MOV R6 
MOV 14, SLOCOO 
MOV oMBTB, 14 
BPT 

ERROR +1 

CMP #STBOT - 4 e R6 
BEQ MBTD 

CMP (R6), @MBTA 
BEQ MBTF 
ERROR +1 

MOV SLOCOO, 14 
MOV SSTBOT .R6 
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;CLEAR PRIORITY AND COND C 


—_ 
;DIDNT cae CORRECT TRAP 


VERIFY PSW ON STACK 
ANCH IF CORRECT STATUS 


;CPU 
;BAD STATUS ON STACK 
; 


;SET 
SSET PRIORITY 
;SET CONDITION CODES 


oa 

SDIONT TAKE CORRECT TRAP 
“VERIFY OLD PSW ON STACK 
BRANCH IF GOOD 

;CPU 

‘OLD PSW INCORRECT 


;sRESTORE VECTOR 
;RESTORE VECTOR 


;SETUP STACK 
; SAVE OLD VECTOR 
;SETUP NEW BPT VECTOR 


SEQ 0138 


7 033102 
L$ 033104 
7619 033106 

033106 
At 033114 


7646 033174 
7647 


012706 
016767 
012767 
005067 


016767 
012706 


016767 
012706 


012706 
016767 
012767 


145736 
001000 
033074 
000357 
145676 
147700 
001000 
001000 
144660 
033146 


000774 
033144 


147620 
001000 


001000 
144600 
033234 


147776 
144772 


000357 


144700 


147660 
144650 


144614 


147600 
144570 
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TEST OLD STATUS ON BPT TRAP 
MOV 


@STBOT ,R6 ;SETUP STACK 
MOV 14, SLOCOO . ;SAVE OLD VECTOR 
MOV @MBTOB, 14 ; NEW BPT VECTOR 
CLR PS ;CLEAR PRIORITY AND COND C 
BPT 
+1 


;CPU ERROR 

;DIDNT TAKE CORRECT TRAP 

CMP STBOT-2, #0 ; VERIFY PSW ON STACK 
BEQ MBTOC ;BRANCH IF CORRECT STATUS 
ERROR ERROR 


‘BAD STATUS ON STACK 


MOV @STBOT.R6 ; TACK 

@MBTOE , 14 ;SET UP TRAP VECTOR 
MOV $357 ,PS ;SET 
sce :SET CONDITION CODES 
ERROR +1 ;CPU ERROR 

;DIDNT TAKE CORRECT TRAP 

CMP STBOT-2, #357 ;VERIFY OLD PSW ON STACK 
BEQ MB TOF BRANCH IF GOOD 


;CPU 
;0LD PSW INCORRECT 
;RESTORE VECTOR 


;SETUP STACK 

10, SLOCOO ;SAVE OLD VECTOR 
oti 6,10 SETUP NEW ILLEGAL VECTOR 
Rl ais #sTEST INSTRUCTIO 

;DIDNT TAKE CORRECT TRAP 
@STBOT-4,R6 ;VERIFY SP DECRIMENT 
MILO si BRANCH IF GOOD 

‘BAD PC ON STACK 


CR6),@MILA ; 
A a 


SLOCOO , 10 
#STBOT ,R6 


VERFY PROPER PC ON STACK 
BRANCH IF GOOD 


MOV 
CLR 
JMP 
ERROR 
CMP 
BEQ 
ERROR +1 
CMP 
BEQ 
ERROR ;CPU 
s INCORRECT PC ON STACK 
ad sRESTORE VECTOR 


TEST OLD STATUS ON ILLEGAL JUMP TRAP 
ithe BY Ser 
MOV « @MELOB, 10 PSETUP NEW ILLEGAL VECTOR 


SEQ 0139 





K11 
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7656 033220 
iss Shee 
7659 0332 

7660 033232 


94] 3234 
7663 033242 
664 033244 


033306 
7678 033306 
La a 033314 





016767 
012706 


016767 
012706 


012706 
016767 
0 bd 


144552 


145536 
001000 
033274 
000357 


145476 


147500 
001000 


001000 
144460 
033346 


000774 
033344 


147420 
001000 


000357 


144474 


147460 
144450 


144414 


147400 
144370 


MILOA: 
MILOB: 


CLR 
ccc 
CLR 
JMP 
ERROR 


CMP 
BEQ 


TEST OLD STATUS ON ILLEGAL JSR TRAP 
#STBOT 


MOV 
MOV 
CLR 


+1 


#357,PS 


Ri 
+1 


STBOT-2, 4357 
a 





R6 
10, SLOCOO 
@MJSIB, 10 


Page 14-121 


;CLEAR PRIORITY AND COND C 


;CPU ERROR 

;DIDNT TAKE CORRECT TRAP 
; VERIFY PSW ON STACK 
BRANCH IF CORRECT STATUS 


;CPU E 
:BAD STATUS ON STACK 
;SETUP STACK 
;SET UP TRAP VECTOR 
;SET PRI Y 
;SET CONDITION CODES 


;CPU ERROR 
;DIDNT TAKE CORRECT TRAP 
;VERIFY OLD PSW ON STACK 
- BRANCH IF GOOD 
“OLD PSW INCORRECT 


;RESTORE VECTOR 


;SETUP ST 

;SAVE OLD VECTOR 

; NEW ILLEGAL VECTOR 
;CPU ERROR 
sDIDNT TAKE 


;CPU 
;BAD PC ON STACK 
; Y PROPER PC ON STACK 
IF GOOD 
CPU 


PC ON STACK 
STORE VECTOR 


an 


;SETUP STACK 
;SAVE OLD VECTOR 


;SETUP NEW VECTOR 
;CLEAR PRIORITY AND COND C 


SEQ 0140 





Lil 


ae gi 033424 


7726 033446 
7727 033452 
7728 033460 
033466 
033470 
7731 033472 
7732 
7733 033474 
7734 033502 
7735 033504 
7736 
7737 033506 
7738 033506 
Lk 033514 


774 
7745 033520 
77 


016767 
012706 


005067 
016767 


005067 
016767 


145336 


001000 
033474 
000357 


145276 


147300 
001000 


144242 
144254 
033554 
030000 
177700 
000020 
033552 
030000 


144154 
147174 


144142 
144154 


000357 


144274 


147260 
144244 
144230 


144204 


144164 


147160 


CCC 
R 


CLR G 
MOV 4,SLOC0O 
MOV $23.4 
MOV #30000 ,PS 
TST 98177700 
ERROR +1 
CMP #81704 , CPEREG 
BEQ 3$ 
ERROR +1 
CMP (SP)+,01$ 
BEQ as 

* 
CMP (SP + , 830000 
BEQ 5§ 

+ 
CLR CPEREG 
MOV SLOCOO, 4 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:50 
¢ee000000000 DOUBLE OPERAND TESTS #4e4¢004440444048 


R3 
R3,R3 
+1 


STBOT -2, #4 
MJSIC 


#357,PS 
R3,R3 

+1 

STBOT-2, #357 


SLOCOO, 10 
#STBOT ,R6 


I/O TIME OUT TEST 
CPERE 


Page 14-122 


;CPU ERROR 
;DIDNT TAKE CORRECT TRAP 
;VERIFY PSW ON STACK 


BRANCH 


IF CORRECT STATUS 


;CPU E 
;BAD STATUS ON STACK 


; SET ACK 
;SET UP TRAP VECTOR 
;SET PRIORITY 

;SET CONDITION CODES 


;CPU ERROR 

sDIDNT TAKE CORRECT TRAP 
;VERIFY OLD PSW ON STACK 
BRANCH IF GOOD 


;CPU 
;0LD PSW INCORRECT 
s;RESTORE VECTOR 


;IS CPU ERROR REGISTER CORRECT? 


;CHECK THAT STACK CONTAINS CORRECT ADOR. 


;I1S THE PSW OK? 


I 
; CPU 
;CPU ERROR 
; CPU 
;CPU 


;CLEAR THE CPU ERROR REGISTER 
;RESTORE VECTOR 


ODD ADDRESS/ILLEGAL INST FETCH TRAP TEST 


MOV 


: 
ana ee OOD ADDRESS IN THE PC. THE KDJ11 SHOUL 
AM SHOUL 


S AN ODD ADDRESS IN THE PC. THE KDJ11 


CPEREG 
4,SLOCOO 


;INIT THE CPU ERROR REG 
;SAVE VECTOR 


SEQ 0141 
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SEQ 014 
e00eeee00e0e DOUBLE OPERAND TESTS #4040064464644444 @ O14e 
7784 033632 012767 033666 144144 MOV #2$,4 :SET UP VECTOR TO HANDLE ODD ADOR TRAP 
7785 033640 016767 144142 147146 MOV 6,SL0CO1 ;SAVE VECTOR 
7786 033646 005067 144134 CLR 6 | s INIT VECTOR 
7787 033652 012746 030000 MOV #30000, -(SP) ;PUSH A KNOWN PSW ON THE E STACK 
7788 033656 012746 033665 MOV $1$+1,-(SP) ;PUSH AN ODD NUMBER ON THE S 
7789 033662 000002 QTI ;POP ODD ADDRESS OFF STACK INTO PC 
7790 ‘SHOULD TRAP HERE 
7791 033664 104001 1$: ERROR +1 ;CPU ERROR 
03 022767 000100 144072 2%: CMP #81706, CPEREG ;IS CPU ERROR REGISTER CORRECT? 
7793 033674 001401 BEQ 3$ 
7794 033676 104001 ERROR +1 ;CPU ERROR 
7795 033700 022726 033665 3$: CMP #1$+1,(SP)+ -IS STACK CONTENTS CORRECT? 
77% 033704 001401 BEQ 4$ 
7797 033706 104001 ERROR +1 ;CPU ERROR 
7798 033710 022726 030000 4$: CMP #30000, (SP)+ ;1S PSW CORRECT ON STACK? 
7799 033714 001401 BEQ S$ 
7800 033716 104001 ERROR +1 SCPU ERROR 
7801 033720 005067 144042 S$: CLR CPEREG ;CLEAR CPU ERROR REG 
7803 ‘NOW WE'LL TRY TO FETCH A AN INSTRUCTION FROM AN INTERNAL REGISTER. 
7804 “THIS SHOULD CAUSE A TRAP TO ADDR 4 AND SET BIT 6 IN THE CPU 
7605 ;ERROR REGISTER. 
i 
7807 033724 012767 033752 144052 MOV #7$,4 ;LOAD VECTOR WITH TRAP HANDLER ADOR 
7808 033732 012767 030340 144046 MOV #30340 ,6 ‘LOAD VEC WITH PSW VALUE ON TRAP 
7809 033740 005067 144032 CLR ;CLEAR THE PSW 
7810 032744 000167 144026 JMP PS :eeekeee TEST INSTRUCTIONSS#e404% 
7 : TRY INSTRUCTION FETCH FROM INT 
78 "REGISTER-- SHOULD TRAP VIA ADOR 4 
7813 033750 104001 6$: ERROR +1 ;CPU 
7814 033752 016701 144020 7$: MOV PS,R1 ;SAVE CONTENTS OF PSW IN Ri 
7815 033756 022767 000100 144002 CMP @B1T06 , CPEREG :IS CPU ERROR REGISTER CORRECT? 
7816 033764 001401 BEQ 8$ asin 
7817 033766 104001 ERROR +1 ;CPU 
7818 033770 022726 177776 8$: CMP @PS,(SP)+ -IS STACK CONTENTS CORRECT? 
7 033774 001401 BEQ o$ ERROR 
033776 104001 ERROR +1 CPU 
000000 9$ CMP #0,(SP)+ ;IS STACK CONTENTS CORRECT? 
i 0 001491 BEQ 10$ 
104% 1 ERROR +1 :CPU ERROR 
10 022701 000340 10$ CMP 0340,R1 ;WAS PSW LOADED PROPERLY ON TRAP? 
14 0014V1 BEQ 1ié 
034016 104. 01 ERROR +1 ; 
0 143742 11$ CLR CPEREG ;CLEAR CPU ERROR REGISTER 
034024 016767 146762 143752 MOV SLOCOO, 4 ;RESTORE VECTOR 
034032 016767 146756 143746 MOV SLOCO1, 6 : 
034040 RXXX: 
; RED ZONE TRAP TEST 
034040 013767 000004 146744 MOV a4, SLOCOO ;SAVE VECTOR 
034046 012737 034076 000004 MOV $2$, 004 -SET UP VECTOR 
034054 000777 MOV #777 ,R6 ;SET UP THE STACK WITH ODD ADDRESS. 
034060 7 143702 CLR CPEREG ‘CLEAR THE CPU ERROR REGISTER 
7 143706 CLR ;CLEAR THE PSW 
034070 005737 177700 TST @#177700 ACCESS NON-EXISTANT I/u ADDRESS 
034074 104001 1$: ERROR + ;CPU ERROR 





Nil 


7843 034076 
7844 


7872 034220 
7873 

7874 034222 
7875 034224 


7896 
7897 034312 
7898 


7900 034314 
7901 034316 





016767 
012767 
005067 
005737 
016767 
000401 


104001 


013767 


034074 


034324 


177772 
177772 


177772 
177772 


143632 


146616 
143602 


143564 


146560 
146554 
000240 
000242 


2s: 


3$: 


4$: 


5$: 


6$: 


PIRXXX: 


i$: 


2$: 


3$: 


. 


TEST PIRQ REGISTER DATA 
MOV 


MOV 
MOV 
MOV 
MOV 


MOV 


ERROR 
ASL 


#0, SP 
3$ 


+1 
#1$,(SP)+ 
4$ 


+1 
#0, (SP) 
S$ 


+1 

#124, CPEREG 
: 

CPEREG 
#STBOT , SP 
SLOCOO , a#4 


ate 


TEST PIRQ REGISTER RESPONSE 
4,SLOCOO 


RQNX , 4 
aePIRQ 
SLOCOO , 4 
PIRTEX 
+1 


#1000,R3 


#PIRTBL ,R4 
> 


PP IRQ 
lal 


+1 
R3, BePIRG 
aePIRQ, (R4)+ 


3$ 


+1 
R3 


aePl 
7, aOPIRQVEC+2 
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SEQ 0143 


;1S R6 CORRECT? 
BRANCH IF YES 


;I1S DATA AT ADDR O CORRECT? 
BRANCH IF YES 


;CPU ERROR 
“IS PSW DATA IN ADOR 2 CORRECT? 
‘BRANCH IF YES 


;CPU ERROR 
;IS CPU ERROR REGISTER CORRECT? 
;BRANCH IF YES 


RROR 
;CLEAR CPU ERROR REGISTER 
; RESTORE STACK 
;RESTORE VECTOR 
TES TORE ADDR 0 
STORE ADDR 2 


;SAVE CONTENTS OF VECTORS 
;SET T 


;LOOK 

RESTORE VECTORS 

sIF IT RESPONDS, CONTINUE TESTING. 
sERROR! NO RESPONSE FROM PIRQ REG 
;CPU ERROR 


— PIRQ VECTORS 
SSET UP PTR VECTOR FOR UNEXPECTED INTERRUPT 


;PUT 1000 IN R3: START TESTING 
‘BITS IN PIRQ REG 46 FLOATING 
;A BIT THROUGH BITS 9-15. 

;SET UP R4 AS A POINTER TO EXPECTED 


;ENCODED PRIORITY LEVELS IN PIRTBL 
;D0N'T ALLOW INTERRUPTS. 

;CLEAR OUT THE 

;IS tS 


;BRANCH IF OK 
eget PIRQ REG WAS NOT CLEAR 
;SET A BIT IN PIRQ REGISTER 
;COMPARE THE ENCODED PRIORITY BITS 
iMETH DATA IN THE TABLE (PIRTBL) 


IF ITS OK 
‘ERROR; ENCODED PRIORITY LEVELS ARE 
‘NOT CORRECT 


;CPU 


;CPU E 
sFLOAT A “1” THRU BITS 9-15 


Ble 


034344 

034346 
7931 034352 
7932 034360 
7933 034364 
7934 034370 
7935 
7936 034374 
7937 


10337C 
000410 


023724 


012703 
012737 


177772 
000001 
177000 
034430 
177772 
177772 
003030 


000777 
003030 


077314 
007146 
000000 


001000 
034522 000240 


146450 


037252 
003104 
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3 ;IF CARRY BIT ISN'T SET, DO AGAIN. 
;GO TO EXIT TEST. 


PIRTBL : 


EXPIR1: 


PIR: 

TEST PIRQ REGISTER LEVEL ENCODING 
oa Reet Steet ett THAT THE HIGHEST PRIORITY LEVEL SET IN THE 
‘HTS TEST IS TO CHECK THAT THE HIGHEST PRIORITY LEVEL SET IN THE 
‘PROGRAM INTERRUPT REQUEST BITS IS REFL@CTED IN THE ENCODED PROGRAM 
INTERRUPT ACTIVE BITS. 

SPL ;SHUT OFF INTERRUPTS 


CLR ;CLEAR PIRQ REGISTER 
MOV $1,FLAG ;SETUP END OF LOOP SIGNAL 
MOV #177000 ,R3 ;SET UP DESIRED PATTERN IN R3 
MOV $PITBL1.R4 SETUP R4 AS A TABLE POINTER 
1$: MOV R3, aPIRQ ;SET PATERN IN PIRQ REGISTER 
CMP aHPIRG, (R4)+ ;COMPARE PATTERN IN PIRQ WITH PATTERN IN 
;EXPECTED PATTERN TABLE. 
BNE 2$ ;GO TO ERROR IF NOT THE SAME 
TST @eFLAG 11S THIS THE LAST TIME THROUGH?? 
BEQ PIRZEX IF FLAG IS ZERO 
ROR R3 SHieT PATTERN TO RIGHT FOR NEXT TEST 
BIC €777,R3 ‘STRIP OFF BITS 8-0 
BNE i$ IF RS IS NOT = 0 © GO DO THE NEXT PATTERN 
CLR @OFLAG ;CLR THE FLAG TO. INDICATE LAST 
BR 1$ ‘GO THROUGH LOOP ONCE MORE 
ERROR; PATTERNS WERE NOT THE SAME 
2$: ERROR +1 ;CPU ERROR 
PITBL1: .WORD 177356,77314,37252,17210, 7146, 3104, 1042,0 
UNXPIR: UNEXPECTED PIRQ INTERRUPT 
ERROR +1 ;CPU ERROR 
PIR2EX: 
PIRS 


TEST PIRQ INTERRUPTS 
3 Tee eee PROGRAM INTERRUPT OCCURS PROPERLY 


THAT 
a ih ;SETUP R3 AS A WORKING 
INTERRUP 


COV #1000 ,R3 REGISTER 
MOV @PIRRTN, a¢PIRQVEC ‘SET UP T ROUTINE AT PIR VECTOR 








SEQ 0144 
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SEG 0145 


4 012737 000340 000242 MOV $340, @@PIRQVEC+2 
7970 034472 CLR R4 {INITIALIZE R4 AS EXPECTED DATA HOLDER. 
7971 034474 005724 PIi: TST (R4)> R4 BY 2 

72 034476 050337 177772 BIS R3, BOPIRO ‘SET PIRQ TO INTERRUPT 
7973 034 000230 SPL 0 ‘ENABLE INTERRUPT TO OCCUR 
74 errierrr INTERRUPT DID NOT OCCUR 
7975 034504 104001 ERROR +1 ;CPU 
7976 INTERRUPT OCCURRED IN WRONG SEQUENCE 
7977 034 104001 PI2: ERROR +1 ;CPU ERROR 
7978 034510 062706 000004 PI3: ADD #4, SP ;CLEAN UP THE STACK 
7979 034514 006303 ASIs R3 ‘SHIFT R3 TO LEFT FOR NEXT INTERRUPT 
7980 034516 103366 Bcc PT ‘END IF CARRY BIT IS SET 
7981 034520 12 BR PIR3EX “ON TO THE NEXT TEST 
1988 034522 013705 177772 PIRRTN: MOV aePIRQ,RS ;MOVE THE CONTENTS OF PIRQ REG TO RS 
7984 034526 005037 177772 ELR aePIRQ ;KILL PIRQ rt. 
7985 034532 042705 177761 BIC $177761,.R5 :MASK OFF ALL BITS EXCEPT 1 
7986 034536 CMP R4,R5 ;DID THE CORRECT LEVEL INTERRUPT OCCUR? 
7987 034540 001362 BNE PId :TF NOT; GO TO ERROR. 
7988 034 000167 177742 JMP PI3 ;RET ROM SUCCESSFUL INTERRUPT ,GET 
7989 READY FoR R IME NEXT ONE. 
7991 034546 PIR3EX: 
7992 
8001 
8002 034546 PI 
800 ; TEST PIRG@ VS PSW INTERRUPT LEVEL 
8004 8 REEREEEEEESEEESEEESEEESEESESEEEEEEESESEEESEEEEREESESESEEEESEESESEES 
THIS TEST IS TO ENSURE THAT PIRQ C 
;LEVEL IS SET TO BLOCK THEM OUT. 
8005 034546 005037 177772 CLR :CLEAR THE PIRQ 
8006 034 005037 177776 CLR PSW. 
8007 034556 000237 SPL ‘BLOCK INTERRUPTS FROM BEING SERVICED. 
8008 034 012703 001000 MOV #1000,R3 SUSE R3 AS A WORKING REGISTER. 
8009 034 012737 034616 MOV $2$ , BOPTRQVEC ;SETUP INTERRUPT VECTORS 
8010 034572 012737 000340 MOV $340, @OPIRQVEC+2 nie 
8011 0 010337 177772 1s: MOV R3, BOPTRO ;SET INT T LEVEL IN PIRQ. 
8012 0 006303 ASL R3 -SHIFT A "1" LEFT TO INCREASE INTERRUPT 
8013 SPRIORITY LEVEL. 
8014 0 103374 BCC i$ ‘IF C BIT NOT SET THEN DO IT AGAIN. 
8015 10 005037 177772 CLR aePIRQ SELSE CLEAR THE PIRQ 
8016 034614 000403 BR 3$ ‘EXIT TEST. 
8018 034616 005037 177772 2s: CLR aePIRQ ;STOP PIRQ FROM INTERRUPTING 
ERROR! NO INTERRUPTS SHOULD OCCUR. 

034622 104001 ERROR +1 ,CPU ERROR 
8021 034624 3$: 

034624 PIRS: 
80 TEST PIRQ INTERRUPTS OCCUR AT PROPER LEVEL 
8039 3 Fee eee eee eT INTERRUPTS OCCUR AT THE PROPER LEVEL 


T_ENSURES T INTERRUPTS 
; THE PRIORITY 'EVEL IS INITIALLY SET TO PRI6. 
PRI1. NO INTERRUPTS SHOULD OCCUR UNTIL T 
;sPRIORITY LEVEL IN THE PSW. 
;PSW PRIORITY LEVEL IS LOWERED ONE NOTCH, 


HE 
AFTER EACH LEVEL OF 





THE PIRQ THEN STARTS yok gee ee 


HAS BEEN TRIED; THE 


T 
AND THE CYCLE REPEATS UNTIL PSW 








COKDAFO KDJ11-8 CLUSTER DIAG. MACRO VO5S.03 Friday 28-Mar-86 13:30 Page 14-127 
eesesecesees DOUBLE OPERAND TESTS eesseeseseseteses 
;PRIORITY LEVEL 0 IS REACHED. INTERRUPTS AT PSW PRIORITY LEVEL O HAVE BEEN DONE 








SEQ 0146 


; PREVIOUSLY 

034624 005037 177772 CLR @ePIRQ ;CLR THE PIR 
8041 034630 012737 034742 000240 MOV $10$,@0PIRQVEC ;SET UP INTERRUPT VECTORS 

034636 012737 000340 MOV OPR7. BOPIRQVEC+2 ; 

8043 034644 012705 035020 MOV éPITBL2,RS ;SETUP RS AS A TABLE POINTER. 

034650 012737 114144 MOV 86 , B@DCOUNT ; INIT LOCATION DCOUNT : 

8045 034656 CLR R4 S INITIALIZE R4 AS A COUNTER. 
0 012703 001 MOV #1000,R3 ;USE R3 AS A WORKING REGISTER. 
8047 034664 012567 143106 MOV (RS5)+,PS :MOVE PRIORITY LEVEL 10 PSw 
8048 034670 005724 3$; TST (R4)+ S INCREMENT R4 BY 
8049 034672 010337 177772 MOV R3, OPIRQ ;SET LEVEL IN PIRQ. 
8050 ;4#¢e¢e4¢e INTERRUPTS WILL HAPPEN HERE seesesees 
8051 034676 013701 177776 MOV aePs,R1 ;SAVE PS IN Ri ‘ONLY EXECUTED 
8052 034 013702 177772 MOV aOPIRA,R2 ;SAVE PIRQ IN R2 ' IF NO 
8053 034 042701 177437 BIC #177437 ,R1 SCLEAR EXTRANEOUS BITS ! INTERRUPT 

034712 042702 177437 BIC #177437 .R2 ; ' HAS 

034716 020102 CMP R1i,R2 ;R1 SHOULD BE >= R2 + OCCURRED 

034720 002001 BGE 4$ ;IF IT IS GO ON iacopowe 

ERROR! SHOULD HAVE INTERRUPTED. 

034722 104001 ERROR +1 ;CPU ERROR 

8059 034724 006303 43: ASL R3 : SHIF T A “1” LEFT UNTIL INTERRUPT LEVEL 
; in 

8061 034726 10 BCC 3$ :BRANCH BACK IF CARRY IS NOT SET. 

8062 034730 005337 114144 DEC 3¢DCOUNT ;LOWER INTERRUPT PRIORITY LEVEL 

034734 001 BNE 1$ SIF DCOUNT= 0 , WE'RE DONE. 

8064 034736 000167 000072 JMP PIRSEX ; JUMP TO END OF THIS TEST. 
8066 

8067 

8068 

8069 034742 013746 177772 ;SAVE PIRQ DATA ON STACK 
8070 0347 37. 177772 :SHUT OFF PIRQ 

8071 034732 016601 000004 ;GET OLD PSW. SAVE IN Ri 
8072 034 011602 ;GET PIRQ FROM ST 

8073 034760 042702 177437 ;CLEAR UNWANTED 

8074 034764 042701 177437 ; 

8075 034770 020102 ;R2 SHOULD BE > 

8076 034772 100401 ;GO CHECK 

8077 sERROR! PRIORITY 

8078 HIGH ENOUGH 

8079 034774 104001 “1 ;CPU ERROR 

8080 034776 012602 20$: MOV (SP)+,R2 ;POP OLD PIRQ OFF THE STACK. 
8081 035000 042702 177761 BIC $177761,R2 -CLEAR OFF EXTRANEOUS BITS. 
8082 035004 CMP R4,R2 ;SHOULD BE EQUAL. 

0 001401 BEQ 213 SIF THEY ARE EQUAL, CLEAN UP STACK AND 
8084 :GET READY FOR THE NEXT INTERRUPT 
8085 ; 

8086 * INTERRUPT OCCURRED OUT OF SEQUENCE. 
8087 035010 104001 ERROR +1 ;CPU ERROR 

8088 035012 012716 034724 21$: MOV $4$,(SP) ;PUT RETURN ADDRESS ON THE STACK. 

8089 035016 000002 RTI ;RETURN FROM INTERRUPT. RESTORE PSW. 

$09 + 035020 000300 PITBL2: .WORD 90 :PRIORITY LEVEL 6 

8092 000240 “WORD 240 ;PRIORITY LEVEL 5 

035024 000200 “WORD 200 SPRIORITY LEVEL 4 
8094 035026 000140 "WORD 140 SPRIORITY LEVEL 3 





8095 035030 
8096 035032 
8097 
8098 035034 
8099 
8114 
8115 035034 
8116 
6117 


Et 035034 


8137 
8138 035116 
8139 0 


0351 
8143 035134 


8145 035136 
146 035144 


8161 035152 


000100 
000040 


016737 
016737 


005067 


177772 
035102 
000340 
177000 


177772 
000016 


177772 
177761 


000777 
177772 


145650 
145644 


142610 


000240 
000242 


000240 
000242 
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SEQ 0147 


. ;PRIORITY LEVEL 2 
. WORD ;PRIORITY LEVEL 1 


PIRSEX: 


R6: 
; TEST THAT PIRQ@S ARE SERVICED IN CORRECT ORDER 
5 Ree AS ERE ARE ES ERE EREEEEEEEEEES ES EREESE SEES EEEESEEEEDEE SEED DE 
THIS TEST CHECKS THAT ALL PIRQ INTERRUPTS ARE 
;IN THE CORRECT DECENDING ORDER. I.E. IRQ6 IS NOT SERVICED 
;BEFORE IRQ7 ETC. THE PIRQ IS LOADED WITH ALL INTERRUPTS SIMULTANEOUSLY 
; TURNED ON. THE PSW PRIORITY LEVEL IS THEN LOWERED TO 0. EACH T 

CED IN DECENDING ORDER. EACH TIME AN THE PSW 


;SHOULD BE SERVI ° INTERRUPT OCCURRS 
;IS LOADED WITH PRIORITY LEVEL 7 WHICH STOPS THE PIRQ FROM FURTHER INTERRUPTS . 
;AFTER A CORRECT INTERRUPT, AN RTI IS EXECUT THE PSW PRIORITY LEVEL 


ED, AND 
: RETRUNS TO ZERO aA LOWING THE NEXT LOWER INTERRUPT TO OCCUR 
+ 


cL CLEAR OUT THE PIRQ 

SPL 7 ;NO INTERRUPTS WILL BE SERVICED. 

MOV $10$ , @@PIRQVEC :SET UP VECTORS 

MOV $PR7. AOPTROVEC+2 ; 

MOV $177000,R3 ;SETUP DESIRED PATTERN IN R3 

MOV R3, aOPIRQ :MOVE PATTERN IN R3 TO PIRQ. 

MOV #16,R4 ;PRELOAD R4 AS A DECREMENTING COUNTER. 
SPL LET THE PIRQ INTERRUPT 


;**ee44444INTERRUPTS OCCUR HERE! ! eesesessecensenanes 
TST R4 S 


; INSTRUC EXECUTED 
;UNTIL ALL INTERRUPTS HAVE OCCURRED. 


BEQ PIR6EX ;GO0 TO NEXT TEST. 
ERROR ‘ ERROR! ALL INTERRUPTS DID NOT OCCUR. 
10$: MOV aoPIRQ,R2 ;SAVE THE PIRQ IN R2 
BIC #177761 ,R2 ;STRIP OFF EXTRANEOUS BITS. 
CMP R4,R2 ; E “ 
BEQ 15$ ;SETUP FOR NEXT INTERRUPT. 
we INTERRUPT WAS SERVICED OUT OF ORDER 
ERROR 7 ;CPU 
15$: TST -(R4) ;DECREMENT R4 BY 2 
ROR RA ;CHANGE PATTERN IN R3; LOWER INTERRUPT PRIORITY 
BIC #777 ,R3 ;STRIP OFF UNNEEDED 
aN R3, dP IRG ;LOWER INTERRUPT PRIORITY LEVEL. 
; 
PIR6EX: MOV SLOCOO , OP IRQVEC ;RESTORE VECTORS 
MOV SLOCO1 , B@PIRQVEC+2 ; - 
; 


.SBTTL MEMORY MANAGEMENT TESTS 

| EREAESEERERARESRERSSERSRE ESSERE EEE EEEE SSS EERE SEESESESES ESSERE EDRES + + OOO SES 
5s RREEeEREREREEAREREEERERSRESEESESS ESSERE ESESREEEESS ESSE ESESERESEES 4 +4 + SEOES 
; BE MMU TESTING 

| ERRRESRREREEEEEEEEERERESERERESEEEEESES SESS SSESESESSSSSSESSSESS SESS ESET ESSE 
ERERERREREREEREERERESEEEESEEESESEREREREEES ESSE ESEEESEESESESESESS SSE SESESSS 


SMMUL : 
STATUS REGISTER TEST 
CLR CPEREG SCLEAR CPU ERROR REGISTER 
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SEQ 0146 


8162 035156 005037 177572 CLR 9177572 ;TURN MMU OF 
8163 035162 005037 003030 CLR aor LAG ;CLEAR MMU TRAP FLAG 
8164 035166 013746 000004 MOV a4, -(SP) ;SAVE OLD VE 
8165 035172 737 137720 000004 MOV SADDTRP , 264 ; NEW OR 
8166 035200 CLR R5 ;CLEAR FLAG 
8167 035202 013701 177572 MOV 9#177572,.R1 ; TEST 

035206 013701 177574 MOV a0177574.R1 ; TEST MARI 

169 035212 013701 177576 MOV 9¢177576.R1 ; TEST 

8170 035216 013701 172516 MOV @#172516,R1 ; TEST 

0 012637 000004 MOV (SP )+, 004 ;RESTORE VECTOR 
8172 03 7 000000 CMP R5, 90 ;DID WE T 
8173 035232 001401 BEQ 13 NO, THEN BRANCH 
8174 035234 1 ERROR +2 ; MMU 

175 YES, GO TO ERROR 
8176 035236 1$: 

179 035236 TSMMU2 : 

1 ADDRESS TEST OF PARS.PDRS, AND FP REGS 
8181 035236 005067 142524 CLR ;CLEAR CPU ERROR REGISTER 

182 035242 005037 177572 CLR 9177572 ;MMU OFF 
8183 035246 005037 003030 CLR aeFLAG ;CLEAR MMU TRAP FLAG 

184 035252 013746 000244 MOV 90244, -(SP) :SAVE FP VECTOR 
8185 035256 013746 000246 MOV @#246, -(SP) 

186 035262 013746 000004 MOV aed, -( SP :SAVE TIME OUT VECTOR 
8187 0 012 000246 000244 MOV $246, 08244 ;SETUP NEW FP VECTOR 
8188 035274 012737 000002 000246 MOV $2, 08246 ; 

8189 0 012 137720 000004 MOV SADDTRP, 04 ;SETUP NEW TIME OUT VECTOR 
8190 035310 CLR R5 ;CLEAR TIMEOUT FLAG 
8191 035312 012700 172200 MOV #172200,RO ;LOAD ALL PARS AND PORS WITH ZERO 
035316 005020 1$: CLR (RO)+ ; 
020027 172400 CMP RO, #172400 ; 
8194 035324 001374 BNE i$ ; 
8195 035326 012700 177600 MOV $177600,RO ; 
8196 0 005020 2s: CLR (RO)+ ; 
8197 035334 020027 177700 CMP RO, #177700 ; 
8198 035340 001374 BNE 2$ ; 
8199 035342 170127 LDFPS #200 ; 
8200 035346 012700 003052 MOV @FLOAT RO ;LOAD ACO-ACS WITH 0 
8201 0 005020 CLR CRO)» ; 
0 CLR one 5 ; 
8203 035356 005020 CLR RO)- ; 
8204 035360 005020 CLR (RO)+ ; 
soos o8s866 i7o410 (DDC RRODLACO 
. ; 
8507 933390 172510 LOD (RO), ACL ; 
8208 035372 172610 LOD (RO) AC2 ; 
8209 4 172710 LOD RO). AC3 ' 
8511 088400 174005 sro Aco a : 
? ; 
12 gseace 174500 3$; DIVD  ACO,ACI ‘LOAD FEC WITH 4 AND FEA WITH @3$ 
821 035404 170337 003062 STST  @6FLO “CHECK FEC FOR 4 AND FEA FOR 03% 
14 10 012704 003062 MOV #FLO,R4 
S516 035420 001401 -_— 
8217 0 ERROR +2 ;MMU ERROR 
; 
iS 021427 035402 21$: CMP (R4), 034 ; 
: 





G12 
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SEQ 0149 


8221 035432 104002 ERROR +2 ;MMU ERROR 
; 
8223 035434 012704 172200 22$: #172200,R4 | ;CHECK EACH PAR, PDR FOR 0 THEN 
8224 035440 012701 000001 MOV #1,R1 ‘WRITE A UNIQUE NUMBER TO IT 
8225 035444 010102 4s: MOV R1.R2 
0 072227 000010 ASH $10,R2 , 
8227 035452 021427 000000 (R45, 80 ; 
8228 035456 001401 BEQ 
8229 035460 ERROR +2 ;MMU ERROR 
; 
8231 035462 010224 S$: MOV R2,(R4)+ 
035464 005201 INC : 
8233 035466 020427 172400 CMP R4, #172400 
8234 001364 BNE : 
8235 035474 012704 177600 MOV #177600 ,R4 
010102 6$: MOV 
072227 000010 ASH $10 ; 
8238 035506 021427 CR4), 80 
8239 035512 001401 BEQ i 
8240 035514 104002 ERROR +2 ;MMU ERR 
8242 035516 010224 7$: MOV R2,(R4)+ ; 
8243 035520 005201 INC ; 
035522 7 177700 CMP R4, #177700 ; 
8245 035526 001364 BNE 
0 012704 003062 MOV LO, “CHECK ACS FOR ALL ZEROES THEN LOAD A 6 
8247 035534 012703 003052 MOV aFLOAT.R3 : 
035540 174014 STD 0, (R4 ; 
8249 035542 17 LOD LAC ; 
8250 035544 174013 STD ACO, (R3) ; 
8251 035546 012702 000004 MOV R2 : 
252 035952 022327 000000 8S: CMP (R3)+, 90 ; 
001401 BEQ 3 
8254 035560 104002 ERROR +2 ;MMU ERROR 
; 
Seep 035562 005 9$: DEC R2 
8257 035564 001372 BNE 8$ ; 
8258 035566 012703 003052 MOV SFLOAT ,R3 
8259 035572 012713 000006 MOV $6, (R3) ; 
8260 039576 172413 LOD (R3), ACO 
8261 17 STD 0,AC5 ; 
8262 035602 17 LOD , ACO ;CHECK AC4 FOR ALL ZEROES THEN LOAD A 5S 
035604 174013 STD ACO, (R3) : 
8264 035606 012702 000004 MOV Ro ; 
8265 033612 022327 000000 10$: CMP (R3)+, 80 ; 
8266 16 001401 BEQ i1$ 
8267 035620 1 ERROR +2 ;MMU ERROR 
: 
este 035622 11$: DEC R2 i 
035624 001372 BNE 10$ ; 
8271 035626 012703 003052 MOV @FLOAT ,R3 ; 
e272 012713 MOV #5, (R3) ; 
oeta oseea0 | 17408 LD CRS), AC P . 
a 
8275 035642 012702 000004 MOV $4,R2 “CHECK ACO FOR ALL ZEROES THEN LOAD A 1 
8276 035646 7 000000 12$: CMP (R4)+, 90 ; 
8277 035652 001401 BEQ 13$ 





H1le 
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SEQ 0150 


8278 035654 104002 ERROR +2 ;MMU ERROR 
; 
8280 035656 005 13$: DEC , ; 
8281 035660 001372 BNE $ 
B282 035662 012713 000001 MOV #1,(R3) : 
8283 035666 172413 LOD (R3),ACO ; 
8284 035670 012704 003062 MOV oFLO.R4 ;CHECK AC1 FOR ALL ZEROES THEN LOAD A 2 
8285 035674 012702 000004 MOV #4,R2 
8286 035700 174114 STD ACI, (R4) 
8287 035702 022427 000000 14%: CMP (R4)., 
8288 035706 001401 BEQ i5$ 
8289 035710 1 +2 ;MMU ERROR 
8291 035712 005 15$: DEC R2 
035714 001372 BNE 14$ : 
8293 035716 012713 000002 MOV $2,(R3) 
035722 172513 LOD (R3),ACL ; 
8295 035724 012704 003062 MOV aFLo, ;CHECK AC2 FOR ALL ZEROES THEN LOAD A 3 
035730 012702 000004 MOV $4, R2 
8297 035734 174214 STD AC2,(R4) ; 
0 022427 000000 16$: CMP (R4)+, 
8299 0 001401 BEQ 17$ ' 
8300 035744 1 +2 ;MMU ERROR 
3 
8302 035746 005 17$: DEC R2 ; 
8303 035750 001372 BNE $ 
8304 035 012713 000003 MOV #3,(R3) ; 
8305 035756 172613 LOD (R3),AC2 ; 
035760 012704 003062 MOV aFLO.R ;CHECK AC3 FOR ALL ZEROES THEN LOAD A 4 
8307 035764 012702 000004 MOV $4, R2 ; 
8308 035770 174314 STD ACS, (R4) ; 
8309 035772 000000 18$: CMP (R4)+, 90 ; 
035776 001401 BEQ 19$ 
8311 036000 1 +2 ;MMU ERROR 
3 
8313 036002 005 19$: DEC R2 
14 036004 001372 BNE 18$ : 
8315 036006 012713 000004 MOV $4,(R3) ; 
8316 036012 172713 LOD (R3),AC3 ; 
8317 036014 012704 003062 MOV $FLO,R4 CHECK FPS FOR 100204 THEN LOAD IT WITH 200 
18 036020 170214 STFPS  (R4) ; 
8319 0 022714 100204 CMP $100204, (R4) ; 
8320 001401 BEQ 20$ 
8321 036030 1 2 ;MMU ERROR 
; 
oas8 036032 170127 20$:  LDFPS #200 ; 
8324 036036 012704 172200 MOV #172200,R4 SCHECK PDR, PAR FOR UNIQUE NUMBERS 
8325 036042 012701 i MOV 1,R1 ; 
8326 036046 010102 23$: MOV R1i,R2 ' 
327 036050 072227 000010 ASH #10,R2 ; 
036056 001401 SO cia). and 
5380 036060 104002 ERROR +2 ;MMU ERROR 
2 
Bese 036062 005201 24%: INC 1 
8333 036064 020427 172400 CMP R4, #172400 
8334 036070 001366 BNE 23% ; 





8335 ye A 
8337 036100 
8338 036104 


012703 
022127 
001401 
104002 


005303 
001372 
022427 
001401 
104002 
012703 
022427 


001401 
104002 


005303 
001372 
012701 
17411 

02212 

001401 
104002 


177600 
000010 


000001 


000003 
000000 


003052 


25%: 


26$: 


27$: 
28$: 


29%: 


30$: 
31$: 


32$: 


33$: 
34$: 


35$: 


2542 g53R5 g5382 3 3 


gS8S5R5 


$177600,R4 
R1,R2 
#10,R2 
(R4)}+,R2 
268 


Ri 
R4, #177700 
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;MMU ERROR 


; CHECK ACS FOR #6 


;MMU ERROR 


; CHECK AC4 FOR #5 


; MMU = 
s MMU walle 


CHECK ACO FOR #1 


;MMU ERROR 

; 
t 

;MMU ERROR 


‘CHECK AC1 FOR #2 


SEQ 0151 
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SEQ 0152 
MEMORY MANAGEMENT TESTS 
8392 036276 012703 000003 36$: MOV $3,R3 ; 
8393 036302 022127 000000 37$: CMP (Ri)+, #0 
8394 036306 001401 BEQ 38$ | 
8395 036310 104002 ERROR +2 ;MMU ERROR 
; 
8397 036312 005303 38$: DEC R3 ;, 
8398 036314 001372 BNE 37$ 
8399 036316 012701 003052 MOV SFLOAT,R1 ;CHECK AC2 FOR #3 
8400 036322 174211 STD AC2, (Ri) 
8401 036324 022127 000003 CMP (R1)+, #3 ; 
8402 036330 001401 BEQ 
8403 036332 1 +2 ;MMU ERROR 
8405 036334 012703 000003 39$: MOV #3,R3 
022127 000009 40$: CMP (Ri)+,#0 : 
8407 036344 001401 BEQ 4i$ , 
346 104002 ERROR +2 ;MMU ERROR 
8410 036750 005303 41$: DEC R3 ; 
8411 036352 BNE 40$ : 

0 012701 003052 v @FLOAT,R1 ;CHECK AC3 FOR #4 
8413 036360 174311 STD AC3, (Ri) 

036362 7 000004 (Ri)+, 

036366 001401 BEQ 42% , 

8416 036370 ERROR +2 :MMU ERROR 
; 

036372 012703 000003 42$ MOV #3,R3 
8419 036376 7 000000 43$: (Ri)+, #0 : 

0 001401 BEQ 44$ 
8421 036404 104002 ERROR +2 |MMU ERROR 

; 
8423 036406 44s: DEC R3 ; 
8424 036410 001372 BNE 43% ; 
8425 036412 000000 CMP RS ;IS TIME OUT FLAG 0 
8426 036416 001401 BEQ 45$ YES GO ON 
8427 036420 1 +2 MMU 
8428 ;NO GO TO ERROR 
8429 036422 012637 000004 45$: MOV (SP)+,a04 sRESTORE TIME OUT VECTOR 
30 036426 012637 000246 MOV (SP )+, a#246 SRESTORE FP VECTOR 
a4 1 0364 000244 MOV (SP)+, 90244 ; 
rts 036436 TSMMU3 : ; 
Ba ; WRITE ALL PARS/PDRS WITH ONES THEN ZEROS 
8437 036436 005037 177572 CLR ae177572 ; 

036442 005037 003030 CLR a6F LAG ;CLEAR MMU ABORT FLAG 
8439 036446 012703 172200 MOV #172200,R3 LOAD ALL PARS AND PDRS WITH ONES 
8440 036452 012723 177777 1$: MOV #177777, (R3)+ ; 

8441 036456 7 172400 CMP R3, #172400 ; 

036462 0013 BNE $ 
844 036464 012703 177600 MOV $177600,R3 : 

036470 012723 177777 2$: MOV #177777 ,(R3)+ : 

8445 036474 020327 177700 CMP R3, 0177700 ; 

036500 0013 BNE : 

8447 036502 012703 172200 MOV #172200, R3 ;CHECK SPDRS FOR ONES 

036506 022327 177416 3$; CMP (R3)+, 0177416 : 

8449 036512 001401 BEQ 4$ 
8450 036514 104002 ERROR +2 ;MMU ERROR 





K1le 


8470 oer 


8471 03657 


> 
8472 036576 
8473 036602 


8474 036606 
8475 036610 
8476 

8477 036612 
8478 036616 
8479 036620 


8480 036624 
8481 036626 


020327 
001371 
022327 
001401 
104002 


020327 
001371 
022327 


001401 
104002 
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172240 
177777 


172300 
177416 


172340 
177777 


172400 
177600 
177416 


177640 
177777 


177700 


172200 
000000 


172400 
177600 
000000 
177700 
172200 
000000 


172400 
177600 
000000 


177700 
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4$: 
S$: 


6$: 
7$: 


8$: 
9$: 


10$: 


11$: 


12$: 
13$: 


14$: 


15$: 


16$: 


17$: 


18$: 


19$: 


20$: 


CMP 
BNE 
CMP 
BEQ 
ERROR 
CMP 
BNE 
CMP 
BEQ 
ERROR 
CMP 
BNE 
CMP 
BEQ 
ERROR 
CMP 
BNE 
MOV 
CMP 
BEQ 
ERROR 
CMP 
BNE 
CMP 
BEQ 
ERROR 
CMP 
BNE 
MOV 
MOV 
CMP 
BNE 
MOV 
MOV 
CMP 
BNE 
MOV 
CMP 
BEQ 
ERROR 
CMP 
BNE 
MOV 
CMP 
BEQ 
ERROR 
CMP 
BNE 


R3, #172240 
(R3)+, 9177777 
6$ 

°2 

R3, #172300 
(R3)+, #177416 
8$ 

+2 

R3, #172340 
(R3)+,¢177777 
10$ 

+2 

RS, #172400 
#177600 ,.R3 
(R3)+, #177416 
12$ 

°2 

RS 9177640 
(R3)+,@177777 
143 

+2 

R3, #177700 


+ 


R3, #172400 
9177600 ,R3 
(R390 80 
208 


R3, #177700 
193 


; 

: CHECK SPARS FOR ONES 
; MMU ERROR 
; 

| CHECK KPDRS FOR ONES 
; MMU ERROR 
; 

‘CHECK KPARS FOR ONES 
—_ ERROR 


; CHECK UPDRS FOR ONES 
; 


;MMU ERROR 
? 


; CHECK UPARS FOR ONES 
3; MMU ERROR 
; 
;LOAD ALL PARS AND PDRS WITH ZEROES 


‘CHECK ALL PARS AND PDRS FOR ZEROES 
; 
;MMU ERROR 
: ; 
; 
; 
; 
;MMU ERROR 
is 


SEQ 0153 





Lie 
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8510 036736 
8511 


172240 


172300 


1$: 


2$: 


3$: 


4$: 


5$: 


10$: 


11$: 


12$: 
13$: 


14$: 


CLR 


3 Z53n% 253 Z53n% 253 Z588 RoR SSS oR SSS MSS OR SS SMBS SS Om 


#172200, RO 
#125012 ,(R (RO)+ 


#172200, R3 
CRS)» ,@52404 


+2 
(R3)+,#125012 
9$ 

+2 

R3, #172240 
(R3)+, #125252 
11$ 

+2 

CR3)+, #52525 
12$ 

+2 

R3 , #172300 
CR3)+, #52404 
~<¥ 


(R3)+, #125012 


" TEST FOR ADJACENT SHORTS IN PAS /PORS 
FL 


;CLEAR MMU ABORT FLAG 

;LOAD SPDRS WITH ALTERNATING PATTERN 
; 

i 


;LOAD SPARS WITH ALTERNATING PATTERN 
; 
; 


LOAD KPDRS WITH ALTERNATING PATTERN 
; 
; 


‘LOAD KPARS WITH ALTERNATING PATTERN 
: LOAD UPDRS WITH ALTERNATING PATTERN 
‘LOAD UPARS WITH ALTERNATING PATTERN 
2 


;CHECK SPORS 
; 


— ERROR 


SEG 0154 








Mle 
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ore? 037176 
037200 
8570 037202 

037206 
037210 
037214 
8574 037216 





037304 
037306 
1 


SS 
ae 
es 
si 


ots 
pares 
SOUS 


172340 


177640 





BEQ 15$ 
ERROR +2 

15$: CMP R3, 8172340 
BNE 1 

16$: CMP (R3)+, 0125252 
BEQ i7$ 
ERROR +2 

17$: CMP (R3)+, #52525 
BEQ 183 
ERROR +2 

18$: CMP R3, #172400 
BNE 16$ 
MOV $177600,R3 

19$: CMP (R3)+, #52404 
BEQ 20$ 
ERROR +2 

20$: CMP (R3)+, #125012 
BEQ 21$ 
ERROR +2 

21: CHP R3, 9177640 

22$: CMP (R3)+, 125252 
BEQ 233 
ERROR +2 

234: CMP (R3)+, #52525 
BEQ 243 
ERROR +2 

24%: CMP R3, #177700 
BNE 22$ 

;REVERSE ALTERNATING PATTERN 

MOV —«-#172200,R0 

25$: MOV #125012, (RO)+ 
MOV CRO)+ 
CMP RO, #172240 
BNE 253 

26h: NY Cgaeead (ROD 
CMP 172300 

mB Sam a0 

4 oe 

MOV gaSaod (RO)+ 
CMP RO, #172340 

~~ 2 aa 

"MOV #125252, (RO)+ 

CMP RO, #172400 
BNE 28 
MOV #177600,RO 


' CHECK KPARS 
;MMU ERROR 


a | 


;CHECK UPDRS 


re eb 


; 

CHECK UPARS 
;MMU ERROR 
; 


ro ed 


;LOAD SPORS WITH REVERSE PATTERN 
; 
; 
; 


LOAD SPARS WITH REVERSE PATTERN 
; 
; 


;LOAD KPDRS WITH REVERSE PATTERN 
; 


} LOAD KPARS WITH REVERSE PATTERN 


OAD UPDRS WITH REVERSE PATTERN 


SE@ 0155 





Nie 


COKDAFO KDJ11-B8 CLUSTER DIAG. MACRO VOS.03 Friday 28-Mar-86 13:30 Page 14-157 
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8624 037416 
8625 037422 
8626 eats 
8627 0374 

8628 037434 


8630 037444 
8631 037450 


172240 


172340 





29%: 


33$: 


35$: 


36$: 
37$: 


38$: 


39$: 
40$: 


41$: 


42$: 


43$: 


44$: 


a3 ZE8ER3 253 Z53n% 253 Z5%n% 25% Z5%n% 253 2538 ReSomeee 


#125012, (RO)+ 

{RO)+ 
RO, #177 
#125252, (RO)+ 
RO, #177700 
30$ 


#172200 ,R3 
(R3)+, #125012 
32$ 


°2 
(R3)+, #52404 
333 

+2 

R3, 172240 
31$ 

(R3)+, #52525 
353 

+2 

(R3)+, #125252 
36$ 

+2 

R3, #172300 
(R3)+, #125012 
38$ 

+2 

(R3)+, 952404 
39$ 

+2 

R3, #172340 
37$ 

(R3)+, 052525 
413 

+2 

(R3)+, #125252 
42% 

+2 

R3, #172400 
$177600,R3 
(R3)+, #125012 
443 

+2 

(R3)+, 852404 
453 


;LOAD UPARS WITH REVERSE PATTERN 


SEQ 0156 





bis 
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8681 037630 


8692 

8693 037660 
8694 037664 
8698 037666 


8700 666 
8701 037674 
87 7700 
8707 

8708 037720 
8709 037724 


8714 

8715 037744 
8716 037752 
8 37756 


8718 037762 
8719 pe 
8720 037 


ares 037772 


104002 


012737 
005067 
013700 
042700 
020027 
001401 
104002 
005037 
013700 
042700 
020027 
001401 
104002 
012737 
013700 
042700 
020027 
001401 
104002 


012737 
013700 
042700 


020027 
001401 
104002 


177640 


177572 


177572 


177572 


172516 
000077 


47$: 


48$: 


TSMMUS : 


1$: 


2s: 


3$: 


as 


i$: 





ERROR +2 ;MMU ERROR 
CMP R3, #177640 ; ; 
BNE 43$ | ; 
CHP (R3)+,@52525 ;CHECK UPARS 
+2 |MMU ERROR 
CMP 6s (R3)+, 0125252 ' 
BEQ 483 
+2 ;MMU ERROR 
CMP R3, #177700 ; 
BNE 46$ ; 
TEST MMRO ABORT BITS 
MOV #160000, a#177572 ;LOAD MMRO<15:13>=111 
CLR FLAG ;CLEAR MMU ABORT FLAG 
MOV aéSRO,RO ‘SAVE SRO IN RO 
BIC #176,RO :CLEAR UNDEFINED BITS FROM SRO 
CMP RO, #160000 ;CHECK MMRO 
BEQ i$ 
+2 ;MMU ERROR 
CLR @e177572 ;LOAD MMRO=0 
MOV aeSRO,RO ;SAVE SRO IN RO 
BIC #176,RO “CLEAR UNDEFINED BITS FROM SRO 
cp RO, #0 ;CHECK MMRO 
*2 |MMU ERROR 
MOV -«-#120000,a8177572. JLOAD MMRO<15;13>=101 
MOV aeSRO, RO ;SAVE SRO IN RO 
BIC #176,RO ‘CLEAR UNDEFINED BITS FROM SRO. 
a RO, #120000 * CHECK MMRO 
ERROR +2 ;MMU ERROR 
MOV 640000,90177572 _ ;LOAD MMRO<15:13>=010 
MOV aeSRO, RO ;SAVE SRO IN 
BIC #176,RO ;CLEAR UNDEFINED BITS FROM SRO. 
CHP RO, #40000 :CHECK MMRO 
ERROR +2 ;MMU ERROR 
TEST MMR3 BITS 5-0 
CLR av177572 ;MMU_ OFF 
CLR L ‘CLEAR MMU ABORT FLAG 
MOV #77, 80172516 ;LOAD MMR3<5:0>=77 
CMP 96172516, 077 ;CHECK MMR3 
BEQ 1$ 
+2 3; MMU 
CLR ao172516 ;LOAD MMR3<5:0>=0 
CMP MME 2 


iat ; CHECK 


SEQ 0157 








Lie 
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SEQ 0158 
MEMORY MANAGEMENT TESTS 
8742 104002 ERROR +2 ;MMU ERROR 
8743 040066 012737 000052 172516 2%: MOV #52, 90172516 ;LOAD MMR3<5:0>=52 
8744 040074 023727 172516 000052 CMP @9172516, #52 : CHECK MMR3 
8745 040102 001401 BEQ 3$ , 
8746 040104 104002 ERROR +2 ;MMU ERROR 
8747 040106 012737 000025 172516 3%: MOV $25, #172516 ;LOAD MMR3<5:0>=25 
8748 040114 023727 172516 000025 CMP 9172516, #25 ;CHECK MMR3 
8749 040122 001401 BEQ 4$ ; 
8750 040124 104002 ERROR +2 ;MMU ERROR 
8751 040126 43: 
8754 040126 TSMM6A: 
8755 : TEST MFPI (MOVE FROM PREVIOUS INST SPACE) 
8756 040 005037 177572 aei77572 > MMU 
8757 040132 005037 CLR aeF LAG ;CLEAR MMU ABORT FLAG 
8758 040136 012737 140000 177776 MOV #140000, 94177776 sPOINT TO USER SPACE 
8759 040144 012706 001000 MOV #STBOT , SP SINIT THE USER STACK POINTER 
8760 040150 010637 003040 MOV R6, @SAVUSE ;SAVE USER SP 
8761 040154 012737 040000 177776 MOV #40000 , 24177776 :POINT TO SUPERVISOR SPACE 
040162 012706 001000 MOV @STBOT , SP SINIT THE SUPERVISOR STACK POINTER 
8763 040166 010637 003036 MOV R6, B@SAVSUP ;SAVE SUPERVISOR SP 
8764 040172 012737 030000 177776 MOV 830000 , 86177776 ;SETUP PSW 
8765 040200 004767 077346 JSR sINIT MMU 
012737 000027 172516 MOV $27 ,@#172516 ;SETUP MMR3 
8767 040212 013746 MOV -( ;SAVE DATA AT TEST LOCATION 
8768 040216 012746 177777 MOV 8177777, -(SP) ; DATA ON TOP OF STACK 
8769 040222 012737 135072 000244 MOV #135072, 08244 “SETUP DATA AT TEST LOCATION 
8770 040230 012767 077400 137362 MOV #77400 , UDPDRO ; UDPDRO TO ABOR 
8771 040236 012703 000244 MOV $244,R3 -SETUP POINTER TO TEST LOCATION 
8772 040242 005237 177572 INC 177572 37 ON 
8773 040246 006523 MFPI (R3)+ ; TEST INSTRUCTION 
8774 040250 022737 030010 177776 CMP #30010, 90177776 :IS PSW CORRECT 
8775 040256 001401 BEQ 13 YES GO 
8776 040260 1 ERROR +2 ;MMU 
4 ;NO GO TO ERROR 
8778 040262 005037 177572 1$: CLR @#177572 ; TURN MMU OFF 
8779 040266 012737 140000 177776 MOV #140000 , 9177776 ;POINT TO USER SPACE 
8780 74 020637 003040 CMP R6 , BOSAVUSE :IS USER SP CORRECT 
8781 040 001401 BEQ 100$ canines GO ON 
8782 040302 1 ERROR 2 MMU 
R :NO GO TO ERROR 
8784 040304 012737 040000 177776 100%: MOV #40000 , 80177776 :POINT TO SUPERVISOR SPACE 
8785 040312 020637 003036 CMP R6, a¢SAVSUP :IS SUPERVISOR SP CORRECT 
8786 040316 001401 BEQ 200$ caries GO ON 
8787 040320 ERROR +2 ;MMU 
8788 :NO GO TO ERROR 
8789 040322 023727 000244 135072 200%: CMP #244, #135072 ;IS TEST DATA OK 
8790 040330 001401 BEQ 23 YES GO ON 
8791 040332 1 ERROR +2 ;MMU 
5 ;NO GO TO ERROR 
8793 040334 020327 000246 2$: CMP R3, 8246 ;IS R3 CORRECT 
8794 040340 001401 BEQ 33 YES GO ON 
8795 040342 1 ERROR +2 MMU 
8796 ;NO GO TO ERROR 
8797 040344 005037 177776 3$: CLR 90177776 ;SET PSW TO KERNEL MODE 
8798 040350 022627 135072 CMP (SP )+, #135072 SIS KERNEL STACK CORRECT 
8799 040354 001401 BEQ 4$ S GO ON 


YE 
BB00 040356 104002 ERROR +2 ,MMU ERROR 





D135 
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SP bit. 


8832 
8833 
8834 
8835 
8836 
8837 
8839 
8840 
8841 
Baas 
8844 
8845 
8846 
8847 
8848 
8849 
8850 
8851 
8853 
8835 
8858 
8859 


021627 
001401 
104002 
012737 
012737 
012701 
005237 
006511 
022737 
001401 
104002 
005037 
023727 
001401 
104002 


177777 


030017 
173621 


000244 
177572 
030011 
177572 
000244 
000244 


177776 
173621 


177777 


177777 
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177776 
000244 


177776 


173621 


177776 


4$: 


5$: 


6$: 


7$: 


S g8e ge 9898 gBVIKC 2 


(SP),@177777 
3 


#30017 ,80177776 


$173621,00244 
$244,R1 
ae177572 


CR1) 
#30011 ,90177776 
300$ 


+2 


@¢17757e2 
00244 , #173621 
301% 


+2 

R1,#244 

302$ 

+2 

@¢177776 

(SP )+, #173621 
303$ 

+2 
(SP),@177777 
7 


R3 

@0177572 

#4 ,89177776 
és 


+2 

(SP)+, 40 

8$ 

+2 
(SP)+,#177777 
9$ 

+2 

(SP )+,a8244 


;NO GO TO ERROR 
;IS STACK CORRECT 
YES GO ON 
3;MMU 
;NO GO TO ERROR 
;SETUP PSW 
;SETUP TEST LOCATION 
;SETUP R1 
; TURN MMU ON 
;TEST INSTRUCTION 
31S PSW CORRECT 
;YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
> TURN MMU OFF 
:IS TEST LOCATION CORRECT 
;YES GO ON 
; MMU 
;NO GO TO ERROR 
;1S R1 CORRECT 
YES GO ON 
3; MMU 
;NO GO TO ERROR 
;SET PSW TO MODE 
31S STACK CORRECT 
YES GO ON 
3; MMU 
;NO GO 
31S STACK CORRECT 
YES GO ON 
;MMU 
;NO GO TO ERROR 
;SETUP SOURCE FOR NEXT TEST 
; TURN MMU ON 
; TEST INSTRUCTION 
:1S CT 
YES 
;NO GO TO ERROR 
; TURN MMU OFF 
yes GOON 
;MMU ERROR 
s;NO GO TO ERROR 
31S STACK CORRECT 
YES GO ON 
; MMU 
;NO GO TO ERROR 
;IS STACK CORRECT 
YES GO ON 
3; MMU 
;NO GO TO ERROR 


;RESTORE TEST LOCATION 


* TEST MFPD (MOVE FROM PREVIOUS DATA SPACE) 


SEQ 0159 





at 
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005037 


8860 177572 
8861 040570 003030 
8862 012737 140000 
8863 040602 010637 003040 
040000 
003036 


040000 
003036 
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177776 
177776 
177776 
172516 


000244 
136714 


177776 
177776 
177776 


157002 


177776 
000244 


177776 


i$: 


100$: 


2s: 


3$: 


4$: 


5$: 


g5338285 253 r 25% 253 g582 g5325 gBZaceseeesesseshs 


ae177572 MMU OFF 

aeFLAG ‘CLEAR MMU ABORT FLAG 
#140000, 80177776 ;POINT TO USER SPACE 
R6,a0SAVUSE _—=Cs ;SAVE USER SP 

#40000, 84177776 ‘POINT TO SUPERVISOR SPACE 
R6, @@SAVSUP ;SAVE SUPERVISOR SP 
#30000, 86177776 ;SETUP PSW 


; 
;SETUP_MMRS 
S SAVE DATA AT i LOCATION 
;PUT KNOWN DATA _ON TOP OF STACK 
; SETUP DATA AT TEST LOCATION 


PC 
$27 ,80172516 


#157002, 08244 
#77400, UIPDRO ;SETUP UIPDRO TO ABORT 
RZ ;SETUP POINTER TO TEST LOCATION 
ael77S72 ; TURN ON 
)+ ; TEST INSTRUCTION 
#30010, 90177776 31S PSW CORRECT 
i$ ;YES 
*2 ;MMU ERROR 
-NO GO TO ERROR 
ae177572 -TURN MMU OFF 
#140000 , 84177776 ‘POINT TO USER SPACE 
R6 , @eSAVUSE :1S USER SP CORRECT 
1008 YES GO ON 
* ; 
;NO GO TO ERROR 
$40000 ,8#177776 :POINT TO SUPERVISOR SPACE 
R6, a@SAVSUP :IS SUPERVISOR SP CORRECT 
200$ YES GO ON 
+2 MMU 
‘NO GO TO ERROR 
@#244, #157002 -IS TEST DATA OK 
2g YES GO ON 
;NO GO TO 
R3, 4246 ;IS R3 CORRECT 
33 GO ON 
+2 ;MMU 
:NO GO TO ERROR 
80177776 ;SET PSW T 
(SP)+, #157002 1S KERNEL STACK CORRECT 
*2 ;MMU 
‘NO GO TO ERROR 
(SP),€177777 ;IS STACK CORRECT 
S$ YES GO ON 
2 ;MMU 
:NO GO TO ERROR 
#30017 80177776 ;SETUP PSW 
#103456 , 00244 ;SETUP TEST LOCATION 
$244,R ;SETUP Ri 
agi77572 ; TURN MMU ON 
(Ri) ‘TEST INSTRUCTION 
#30011, 94177776 :IS PSW CORRECT 
300$ YES GO 
+2 ;MMU 


SEQ 0160 





ris 
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SEQ 0161 


8917 041056 005037 177572 300$: CLR 90177572 ;TURN MMU OFF 
8918 041062 023727 000244 103456 CMP 90244, 0103456 IS TEST LOCATION CORRECT 
8919 041070 001401 BEQ $ YES GO ON 
8920 041072 104002 *2 MM E RO 
° 
8922 041074 127 000244 301$: CMP R1, 4244 ;IS R1 CORRECT 
8923 041100 001401 BEQ 302$ ON 
8924 041102 1 °2 
8925 ;NO GO TO ERROR 
8926 041104 005037 177776 302$: CLR 90177776 ;SET PSW TO KERNEL MODE 
8927 041110 103456 CMP (SP )+, #103456 ;IS STACK CORRECT 
8928 041114 001401 BEQ 303$ YES GO ON 
8929 041116 1 +2 ;MMU 
4 ;NO GO TO ERROR 
8931 041120 021627 177777 303$: CMP (SP), 177777 ;IS STACK CORRECT 
8932 041124 001401 BEQ 304$ ;YES GO ON 
8933 041126 1 °2 ;MMU ERROR 
NO GO TO ERROR 
8935 041130 012737 030017 177776 304$: MOV #30017, 90177776 ; 
8936 041136 012737 113672 000244 MOV #113672, 00244 ;SETUP TEST LOCATION 
8937 041144 01270 MOV #246,R1 ;SETUP R1 
8938 041150 177572 INC ae177572 STURN MMU ON 
8939 041154 106541 MFPD 2—Ss« (R21) :TEST INSTRUCTION 
8940 041156 022737 030011 177776 CMP #30011, 90177776 ;IS PSW CORRECT 
8941 041164 001401 BEQ 400$ YES GO ON 
041166 i +2 ;MMU 
894 ;NO GO TO ERROR 
8944 041170 005037 177572 400$: CLR @#177572 -TURN MMU OFF 
8945 041174 023727 000244 113672 CMP 9244, #113672 :IS TEST LOCATION CORRECT 
8946 04 001401 BEQ 401$ YES GO ON 
8947 041204 1 +2 
8948 :NO GO TO 
8949 041206 020127 000244 401$: CMP R1, #244 ;IS Ri CORRECT 
8950 041212 001401 BEQ 402$ GO ON 
8951 041214 104002 *2 
core ;NO GO TO ERROR 
041216 005037 177776 402$: CLR @#177776 ;SET TO KERNEL MODE 
113672 CMP (SP )+, 0113672 SIS STACK CORRECT 
001401 BEQ 4033 
041230 1 +2 3; MMU 
;NO GO TO ERROR 
041232 021627 177777 403$: CMP (SP), 177777 ;IS STACK CORRECT 
041236 001401 BEQ 404$ YES GO ON 
1 ERROR +2 ;MMU 
;NO GO TO ERROR 
404$: CLR R3 ;SETUP SOURCE FOR NEXT TEST 
INC 9177572 STURN MMU ON 
MFPD ; TEST INSTRUCTION 
177776 CMP $4, 98177776 ;IS PSW CORRECT 
BEQ 6$ YES GO 
ERROR +2 ; MMU 
;NO GO TO ERROR 
6$: CLR 9177572 ; MMU OFF 
CMP R3, 00 :IS R3 CORRECT 
BEQ 7 YES GO ON 





;MMU 
;NO GO TO ERROR 
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SEQ 0162 


8974 041300 022627 000000 7$: CMP (SP)+,90 ;IS STACK CORRECT 
8975 041304 001401 BEQ 83 YES GO ON 
8976 041306 104002 °2 
8977 ;NO GO TO 
8976 041310 177777 8$: CMP (SP)+, 177777 ;IS STACK CORRECT 
8979 041314 001401 BEQ 93 GO ON 
8980 041316 1 °2 
8981 ;NO GO TO ERROR 
8982 041320 012637 000244 94: MOV (SP)+,90244 sRESTORE TEST LOCATION 
a 
8987 041324 TSMM6C : 
; TEST MTPI (MOVE TO PREVIOUS INSTRUCTION SPACE) 
8989 041324 005037 177572 CLR @0177572 ;MMU OFF 
041 005037 003030 CLR aeFLAG ;CLEAR MMU ABORT FLAG 
8991 041334 012737 140000 177776 MOV #140000 , 8177776 ‘POINT 10 USER SPACE 
8992 041342 010637 003040 MOV R6, A¢SAVUSE ;SAVE USER SP 
8993 041346 012737 040000 177776 MOV #40000, 84177776 ‘POINT TO SUPERVISOR SPACE 
8994 041354 010637 003036 MOV R6, a¢SAVSUP ;SAVE SUPERVISOR SP 
8995 041360 012737 030000 177776 MOV #30000 , 84177776 SSETUP PSW 
041 004767 076160 JSR MHL ; 
8997 041372 O12 7 172516 MOV $27 , 0172516 ;SETUP MMR3 
041 013746 44 MOV -(SP ;SAVE DATA AT TEST LOCATION 
041 012746 177777 MOV #177777, -(SP) ;PUT KNOWN DATA ON STACK 
9000 041410 012746 13 MOV #120413, -(SP) ;PUT TEST DATA ON STACK 
9001 041414 012737 177777 000244 MOV #177777 , 20244 sPUT KNOWN DATA AT TEST LOCATION 
041422 012767 077400 136170 MOV #77400 UDPDRO UDPDRO TO ABORT 
9003 041430 012703 MOV $244,R ‘SETUP POINTER TO TEST LOCATION 
041434 005237 177572 INC ae177572 : TURN MMU ON 
041440 3 MTPI (R3)- ; TEST INSTRUCTION 
041442 022737 030010 177776 CMP #30010, 80177776 ;IS PSW CORRECT 
9007 041450 001401 BEQ i$ YES 
041452 1 ERROR +2 
9009 ;NO GO TO ERROR 
9010 041454 005037 177572 1$: CLR @e177572 ; TURN MMU 
9011 041460 012737 140000 177776 MOV #140000 , 96177776 ;POINT TO SPACE 
9012 041466 020637 003040 CMP R6 VUSE ;IS USER SP CORRECT 
9013 041472 001401 BEQ 100$ YES GO 
9014 041474 1 ERROR +2 
9015 ;NO GO TO ERROR 
9016 041476 012737 177776 100$: MOV #40000 , 84177776 ;POINT TO SUPERVISOR 
9017 041504 020637 003036 CMP R6, @@SAVSUP :IS SUPERVISOR SP CORRECT 
9018 041510 001401 BEQ 200$ YES 
9019 041512 ERROR +2 ,MMU ERROR 
9020 ‘NO GO TO ERROR 
9021 041514 023727 000244 120413 200¢: CMP 90244, 0120413 ;IS TEST LOCATION CORRECT 
9022 041522 001401 BEQ 2$ YES GO ON 
9028 041524 1 ERROR +2 MMU 
‘NO GO TO ERROR 
9025 041 7 000246 2¢: CMP R3, 0246 sIS R3 CORRECT 
9026 041 001401 BEQ 33 YES GO ON 
9027 041534 1 ERROR +2 MMU 
;NO GO TO ERROR 
041536 177776 3$; CLR 90177776 ;SET PSW 
041542 021 177777 CMP (SP), #177777 IS KERNEL STACK CORRECT 
9031 041346 001401 BEQ 4$ canine 
041 +2 3;MMU 








H15 
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9041 041606 104002 





001401 


MACRO VO5.03 


177776 


177776 


145121 


177776 


177776 


122347 


177776 


4$: 


5$: 
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SEQ 0163 
;NO GO TO 
MOV #30017, 80177776 ;SETUP PSW 
MOV #145121, -(SP) ;SETUP TEST DATA 
MOV $244,R1 ;SETUP Ri 
INC @e177572 ; TURN MMU ON 
MTPI 1 STEST INSTRUCTION 
CMP $30011,00177776 ;IS PSW CORRECT 
BEQ 300$ ;YES GO ON 
ERROR +2 ;MMU ERROR 
;NO GO TO ERROR 
CLR @g177572 ;TURN MMU OFF 
CMP 98244, #145121 ;IS TEST LOCATION CORRECT 
BEQ 3018 YES GO ON 
;NO GO TO 
CMP R1, #244 31S Ri CORRECT 
BEQ 302$ ON 
ERROR +2 ; MMU 
;NO GO TO ERROR 
CLR @0177776 ;SET PSW TO MODE 
CMP (SP), 177777 31S STACK CORRECT 
BEQ 3043 :YES GO ON 
ERROR +2 ;MMU ERROR 
;NO GO TO ERROR 
MOV #30017 90177776 ;SETUP PSW 
MOV #122347, -(SP) ;SETUP TEST DATA 
MOV $246,R1 ;SETUP RI 
INC ae177572 ; TURN MMU ON 
MTPI -CR1) ;TEST INSTRUCTION 
CMP #30011, 90177776 31S PSW CORRECT 
BEQ 400$ YES GO ON 
ERROR +2 ; MMU 
:NO GO TO ERROR 
CLR 90177572 ; MMU OFF 
CMP @0244 , #122347 :IS TEST LOCATION CORRECT 
BEQ $ YES GO ON 
ERROR +2 
;NO GO TO 
CMP R1, #244 31S Ri CORRECT 
BEQ 402$ GO ON 
ERROR +2 ; MMU 
;NO GO TO ERROR 
CLR @0177776 >SET PSW TO KERNEL MODE 
CMP (SP), #177777 :IS STACK CORRECT 
BEQ 404$ YES GO ON 
2 ;MMU 
:NO GO TO ERROR 
CLR -(SP) ;SETUP STACK FOR NEXT TEST 
INC @0177572 ; Me 
MTPI ; TEST INSTRUCTION 
CMP $4, 90177776 ;IS PSW CORRECT 
BEQ S$ YES GO ON 
ERROR +2 ; MMU 
;NO GO TO ERROR 
CLR a#177572 ; TURN MMU OFF 
CMP R3, 80 ;IS R3 CORRECT 
BEQ 6$ ;YES GO ON 











177777 


000244 


040000 
003036 


177776 
177776 
177776 
172516 


000244 
135450 


177776 


177776 


177776 


100004 


177776 


6$: 


7$: 


i$: 


100$: 


: 


23: 


3$: 


4$: 
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ERROR +2 ;MMU_ ERROR 
;NO GO TO ERROR 
CMP (SP)+,@177777 ;I1S STACK CORRECT 
BEQ 7$ YES GO ON 
ERROR +2 ; MMU 
NO GO TO ERROR 
MOV (SP)+,a#244 ;sRESTORE TEST LOCATION 


’ TEST NTPO (MOVE TO PREVIOUS DATA SPACE) 
177572 ;MMU OFF 


CLR 
CLR Ser. AG ;CLEAR MMU ABORT FLAG 
MOV #140000 , 86177776 sPOINT TO USER SPACE 
MOV R6, BOSAVUSE ;SAVE USER SP 
MOV $40000 , 84177776 ‘POINT TO SUPERVISOR SPACE 
MOV R6, B@SAVSUP ;SAVE SUPERVISOR SP 
MOV #30000 , 86177776 ;SETUP PSW 
JSR PC, MMU ; INIT 
MOV $27 ,80172516 ;SETUP MMR3 
MOV ° ;SAVE DATA AT TEST LOCATION 
MOV #177777, -(SP) ;PUT KNOWN DATA ON STACK 
MOV #100004, -(SP) ‘PUT TEST DATA ON STACK 
MOV #177777 ,@#244 ;PUT KNOWN DATA AT TEST LOCATION 
MOV #77400, UI ;SETUP UIPDRO TO 
MOV $244 ,R3 ‘SETUP POINTER TO TEST LOCATION 
INC ae177572 TURN MMU ON 
MTPD (R3)- ; TEST INSTRUCTION 
CMP $30010, a! 77776 ;IS PSW CORRECT 
BEQ 13 YES GO ON 
ERROR +2 ; MMU 
:NO GO TO ERROR 
CLR 901775 ; TURN 
MOV 9140000, 961 7776 ;POINT TO SPACE 
CMP R6 VUSE ;IS USER SP CORRECT 
BEQ 100$ YES GO ON 
ERROR +2 ;MMU 
"NO ©A TO ERROR 
MOV #40000, 80177776 ;POINT TO SUPERVISOR SPACE 
CMP R6, a@SAVSUP :IS SUPERVISOR SP CORRECT 
BEQ 200$ ‘YES GO ON 
ERROR +2 MMU 
‘NO GO TO ERROR 
CMP 90244 , #100004 ;IS TEST LOCATION CORRECT 
BEQ 2$ YES GO ON 
ERROR +2 MMU 
‘NO GO TO ERROR 
CMP R3, #246 ;IS R3 CORRECT 
BEQ 3$ YES GO ON 
ERROR +2 
;NO GO TO 
CLR 90177776 ;SET PSW TO 
CMP (SP), #177777 IS KERNEL STACK CORRECT 
BEQ 43 YES GO 
ERROR +2 
;NO GO TO ERROR 
MOV #30017, 90177776 ;SETUP PSW 


SEQ 0164 
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SEQ 0165 


9149 042260 012746 100737 MOV #100737, -(SP) ;SETUP TEST DATA 
9150 042264 012701 000244 MOV $244 ;SETUP Ri 
9151 042270 37 177572 INC oeirray2 ; TURN MMU ON 
9152 042274 106611 MTPD =. (R21) ‘TEST INSTRUCTION 
9153 042276 022737 030011 177776 CMP $30011,98177776 :IS PSW CORRECT 
9154 042304 001 BEQ 300$ :YES GO ON 
9155 042306 1 °2 MMU 
9156 ‘NO GO TO ERROR 
9157 042310 37. 177572 300$: CLR av177572 sTURN MMU OFF 
9158 042314 023727 000244 100737 EMP a#244, ¢100737 ‘IS TEST LOCATION CORRECT 
9159 042322 001401 BEQ 301$ YES GO ON 
3160 042324 +2 ; re 
9162 042326 000244 301$: CMP R1,#244 31S Ri CORRECT 
9163 042332 001401 BEQ 302$ ON 
9164 042334 1 +2 ;MMU ERR 
‘NO GO TO ERROR 
9166 042336 005037 177776 302$: CLR a#177776 ;SET PSW TO KERNEL MODE 
9167 042342 021627 177777 CMP (SP), #177777 -TS STACK CORRECT 
042 001401 BEQ 304% :YES GO ON 
9169 042350 i °2 MMU 
:NO GO TO ERROR 
9171 042352 012737 030017 177776 304$: MOV #30017 ,@0177776 ;SETUP PSW 
042360 012746 156711 MOV #1567 ii, - (SP) ‘SETUP TEST DATA 
042364 012701 000246 MOV ;SETUP R1 
9174 042370 005237 177572 INC esi r ste ; TURN MMU ON 
175 042374 1 MTPD =: - (R11) :TEST INSTRUCTION 
9176 042376 022737 030011 177776 CMP #30011, 80177776 :IS PSW CORRECT 
177 042404 001401 BEQ 400$ YES GO ON 
9178 042406 1 ERROR +2 ; MMU 
179 ;NO GO TO ERROR 
9180 042410 37. 177572 400$: CLR ; TURN MMU OFF 
9181 042414 023727 000244 156711 CMP a#244, #156711 ;IS TEST LOCATION CORRECT 
9182 042422 001401 BEQ YES GO ON 
9183 042424 104002 ERROR + 
9184 ;NO GO TO ERROR 
9185 042426 020127 000244 401$: CMP Q1, 8244 31S Ri CORRECT 
9186 001401 BEQ 402$ ON 
9187 042434 104002 ERROR +2 
1 ;NO GO TO ERROR 
9189 042436 005037 177776 4023: CLR 96177776 ;SET PSW TO KERNEL MODE 
042442 021627 177777 CMP (SP), 177777 ;1S STACK CORRECT 
9191 042446 001401 BEQ 404$ YES GO ON 
9192 042450 104002 ERROR +2 ; MMU 
919 ‘NO GO TO ERROR 
9194 042452 005046 404$: CLR -(SP) ;SETUP STACK FOR NEXT TEST 
9195 042454 005237 177572 INC @6177572 TURN MMU ON 
9196 042460 106603 MTPD 6OsoiRR ; TEST INSTRUCTION 
9197 042462 022737 000004 177776 CMP $4, 90177776 :IS PSW CORRECT 
9198 042470 001401 BEQ S$ ‘YES GO ON 
9199 042472 1 ERROR +2 ;MMU ERROR 
‘NO GO TO ERROR 
9201 042474 005037 177572 S$: CLR @#177572 > TURN MMU OFF 
9202 042500 020327 000000 CMP R3, 90 ‘IS R3 CORRECT 
042504 001401 BEQ 6$ YES GO ON 
9204 042506 1 ERROR +2 ; MMU 
9205 :NO GO TO ERROR 
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9206 042510 
9207 042514 
9208 042516 


9209 
9210 042520 
9211 


9212 

9215 042524 
9216 

9217 042524 
9218 042530 
9219 042534 
9220 042540 





022627 
001401 
104002 


012637 


012737 
004767 


012701 
004767 


177777 


000244 


077404 
000152 


177776 
177600 


177600 


140166 
177572 
177776 


177776 


6$: 


CMP (SP)+, #177777 
BEQ 73 

ERROR +2 

MOV (SP)+,a0244 
TEST NON-RESIDENT ABORT 
CLR ae177572 

CLR FLAG 

my Bele 

CLR SAVMRO 

CLR SAVMR1L 
Bee 

MOV #30000 , 86177776 
MOV 

MOV #77400 , #177600 
JSR PC,1S7 

MOV #77404 , #177600 
JSR PC,1S7 

MOV $220,R1 

JSR PC, MMU 

CLR R3 

HOV $1 98197572 
MOV #100000 90177776 
MOV (R2)+, -(R1 

JSR PC, TSM7 

CLR VMRO 

CLR SAVMR1 

CLR SAVMR2 

MOV #22,R3 

MOV t i 
MOV #20000 , #177776 
MFPI (R2)+ 

JSR PC, TSM7 

MOV #30000, 80177776 


;MMU E 
;NO GO TO 


;IS STACK CORRECT 
YES GO ON 


ERROR 
;sRESTORE TEST LOCATION 


; OF 

;CLEAR MMU ABORT FLAG 

;SAVE DATA AT TEST LOCATIONS 
‘CLEAR STATUS REGS SAVE AREAS 


;CAUSE AN 
; THEN CHECK 
;THIS EVENT AND CHECK IF STATUS REGS 
;CONTAINED EXPECTED VALUES. 

ABORT THEN GO TO ERROR 


AN 
;CAUSE AN ABORT TO OCCUR AND 
IF ABORT FLAG REGISTERED 
CK IF STATUS REGS 
;CONTAINED EXPECTED VALUES. 
OCCURRED THEN GO TO ERROR 


MMR1 EXPECTED DATA 
SETUP FLAG FOR AN ABORT 
; TURN MMU ON 
PSW FOR AN ABORT CILLEGAL MODE) 


AN ABORT OCCURRED BY 
;CHECKING ABORT FLAG AND STATUS REGS 
OCCURRED THEN GO TO ERROR 
SE CONTINUE. 
CLEAR STATUS REGS SAVE AREAS 


SETUP MMR1 EXPECTED DATA 
SETUP FLAG FOR AN ABORT 






ON 
{SETUP PSH FOR AN ABORT CILLEGAL MODE) 
SCAUSE AN ABORT 


; IF AN ABORT OCCURRED BY 
;CHECKING ABORT FLAG AND STATUS REGS 
;1F ABORT OCCURRED THEN GO TO ERROR 
‘eS Bia CONTINUE 

; 


SEQ 0166 
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SEQ 0167 


9265 042742 012737 077400 177600 MOV —«-#77400,@#177600 :SETUP_FOR AN ABORT 
9266 042750 005037 177572 CLR @e177572 
9267 042754 HFPI (R2)- ‘TRY TO CAUSE AN ABORT 
042 12603 MOV —s- (SP+, R3 ‘POP T 
9269 042760 012637 000216 MOV —«- (SP)+ 8216 OOS TORE DATA AT TEST LOCATIONS 
9270 042764 012637 00214 MOV —s- CSP)s.ae214 ; 
9272 042770 000167 000154 gmp —s«éoTSS7FIN 
; 
9274 ‘ROUTINE TO CAUSE AND CHECK NONRESIDENT ABORTS 
9576 042774 012767 000001 140026 1S7: MOV  #1,FLAG ;SETUP FOR AN ABORT 
04 012737 000001 177572 MOV «#1177572 ‘TURN MMU ON 
9278 043010 010701 MOVs RT“ SSAVE PC 
9279 043012 006522 MEPI (R2)- ‘CAUSE AN ABORT 
043014 022767 000000 140006 CMP sé, FLAG ‘DID AN ABORT OCCUR 
9281 043022 001401 BEQ OK? IF YES GO ON 
04 104002 ERROR +2 MMU E 
‘IF NO GO TO ERROR 
9284 043026 105067 140010 0K7:  CLRB SAVMRO SSETUP EXPECTED DATA 
9285 043032 022767 100000 140002 CHP «8100000, SAVMRO ‘TEST MMRO FOR EXPECTED VALUE 
043040 001401 BEQ OKA ‘IF OK THEN CONTINUE 
9287 043042 1 ERROR +2 MMU 
‘NOT OK THEN GO TO ERROR 
9589 043044 026727 137774 000022 OKA7: CMP  SAVMR1,#22 ; TEST MMR1 FOR EXPECTED VALUE 
04 001401 BEQ «OKAY? IF OK THEN CONTINUE 
9291 043054 1 ERROR +2 MMU 
‘NOT OK THEN GO TO ERROR 
9293 043056 026701 137764 OKAY7: CMP  SAVMR2,R1 ; TEST MMR2 FOR EXPECTED VALUE 
043062 001401 BEQ © OKAY7A IF OK THEN CONTINUE 
9295 043064 104002 +2 MoU 
‘NOT OK THEN GO TO ERROR 
9297 043066 005067 137750 OKAY7A: CLR  SAVMRO SCLEAR STATUS REGS SAVE AREAS 
9298 043072 005067 137746 CLR —-SAVMR1 ; 
043076 005067 137744 CLR SAVMR2 : 
9800 043102 000207 RTS —s-~PL RETURN 
; 
9 ‘ROUTINE TO CHECK IF A NONRESIDENT ABORT OCCURRED 
9304 043104 022767 000000 137716 {SM7: CMP § #0,FLAG ;DID AN ABORT OCCUR 
305 043112 001401 BEQ =‘ TSHA IF YES GO ON 
9306 043114 1 +2 MMU 
‘IF NO THEN GO TO ERROR 
9308 043116 042737 040377 003042 TSHA: BIC #40377, BESAVHRO SSETUP EXPECTED DATA 
9309 043124 022767 100000 137710 CMP #100005, SA ‘TEST MMRO FOR EXPECTED VALUE 
9310 043132 001401 BEQ IF OK THEN CONTINUE 
9311 043134 1 bo MMU 
9312 TIF NO THEN GO TO ERROR 
9313 043136 020367 137702 TSMB: CMP — RB, SAV ; TEST MMR1 FOR EXPECTED VALUE 
9314 043142 001401 BEQ 42SsédT SMC IF OK THEN CONTINUE 
9315 043144 104002 +2 MMU 
9316 ‘IF NOT OK THEN GO TO ERROR 
9317 043146 000207 TSMC: RTS PC s RETURN 
000240 +S7FIN: NOP 


9319 043150 
043152 


* TEST READ ONLY ABORTS 








M13 


9324 043152 
9325 043156 


9368 043360 
9369 043364 
9370 043370 
9371 043374 
9372 043400 
9373 043406 
9374 043412 
9375 043416 

3422 


3426 
9378 043434 
9379 


9380 
9381 
9382 


005037 
005067 


012737 
012746 


012637 
012637 
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177572 
137 


137522 
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CLR ae177572 
CLR FLAG 
MOV aF244 eg ( Ce 
MOV a#246 . -( tol ) 
CLR SAVMRO 
CLR SAVMR1 
CR URCLPRND 
177776 MOV #30000 , 8177776 
MOV 244 
177600 MOV #77402 , 84177600 
MOV #246, -(SP) 
137564 MOV 1,FLAG 
177572 MOV #1.a177572 
MOV R7,R1 
MTPI (R2)+ 
137544 CMP #0 .FLAG 
BEQ $ 
ERROR +2 
i$: CLRB SAVMRO 
137540 CMP #20000 , SAVMRO 
BEQ 2$ 
o2 
137530 2%: CMP #11026, SAVMR1 
BEQ 3$ 
*2 
3$: CMP R1,SAVMR2 
BEQ 43 
ERROR +2 
177776 4%: MOV #30000 9177776 
MOV (SP) 
MTPI tab) )« 
MOV (SP )+, 0246 
MOV (SP)+ 90244 
TSMMU9: 
; TEST PAGE LENGTH ERROR ABORTS 
CLR @@177572 
CLR FL 
CLR SAVMRO 
CLR SAVMR1 
CLR SAVMR2 
177776 HOV 930000 86177776 
MOY SBNOSAL 
MOV SABORTO ,R2 
172516 MOV $26 , 80172516 
JSR PC, 1SM9 


;MMU ERROR 
S OTHERWISE GO 


OF 
;CLEAR MU ABORT FLAG 
;SAVE DATA AT TEST LOCATIONS 


‘CLEAR STATUS REGS SAVE AREAS 
INIT MMU 
;SETUP PSW 


;SETUP FOR AN ABORT 

;PUSH DATA ONTO THE STACK 

;SETUP FLAG FOR AN ABORT 
MMU ON 


CAUSE ABORT 
;DID ABORT OCCUR 
;1F YES THEN GO ON 


{MMU ERROR 
SIF NO THEN GO TO ERROR 


;SETUP EXPECTED DATA 
; TEST MMRO FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 


;MMU_ERROR 
S OTHERWISE GO 


TO ERROR 
; TEST MMR1 FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 


TO ERROR 
; TEST MMR2 FOR EXPECTED VALUE 
‘IF OK THEN CONTINUE 


; MMU 
: OTHERNISE GO TO ERROR 


/PUSH DATA ONTO STACK 
;TRY TO CAUSE 
;RESTORE DATA AT TEST LOCATIONS 


;MMU OFF 

;CLEAR MMU ABORT FLAG 

;CLEAR STATUS REGS SAVE AREAS 
: 

‘SETUP PSW 


;INIT MMU 
‘LET R3, Ri, AND R2 POINT TO THE 
;UPWARD EXPANSION TABLES 


OTSABLE USER DATA SPACE 


MMU 
00 RELOCATIONS FOR THE DIFFERENT 
;VALUES OF THE PAGE LENGTH FIELD AND 
IF _ AN T OCCURS 


;BL 
Oe Me EE re TT WAS SUPPOSED TO, 





SEQ 0168 
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137242 
040000 


000020 
137216 


137170 
137176 
137174 


137304 
177572 


137254 


137240 


137234 


137224 


SEQ 0169 


;AND IF YES CHECK ABORT FLAG AND 
STATUS REE SND 2 POINT TO THE 
; 

1 UNUARD EXPANSION TABLES 


; 
; TURN MMU ON 
00 we OA re FOR THE DIFFERENT 
;VALUES OF THE PAGE LENGTH FIELD AND 
AN ABORT OCCURS 


;BLOCK NUMBER. IF 
;CHECK TO SEE IF IT WAS SUPPOSED TO, 


;AND IF YES CHECK ABORT FLAG AND 
;STATUS REGISTERS. 

;MMU OFF 

;POINT TO A VALUE WHICH SHOULD CAUSE 
;AN ABORT IF MMU IS ON. 
;SETUP_UIPDRO 

;D0 A_RELOCATION 

;POP THE STACK 


‘ROUTINE TO CAUSE AND CHECK PAGE LENGTH ERROR ABORTS 


ism9: 


4$: 


5$: 


6$: 


HOV OPLF1 R3 
MOV #ABORT7 ,R2 
JSR PC, TSM9 

CLR ae177572 

MOV $PLF1+10,R3 
MOV $BN1+10,R1 
MOV (R3),@0177600 
MFPI (R1)+ 

MOV (SP)+,R5 

JUMP TSOFIN 

MOV (R3)+, 90177600 
MOV R1,RO 

MOV #1,FLAG 

MOV $1.a6177572 
MOV R7_.R4 

MFPI  a(RO)- 

CMP (R2), 00 

BNE 2$ 

MOV (SP)+,R5 

CMP $1,FLAG 

BEQ i$ 

ERROR +2 

BR 6$ 

CMP #0, FLAG 

BEQ 3$ 

ERROR +2 

CLRB §SAVMRO 

CMP #40000 , SAVMRO 
BEQ 4$ 

ERROR +2 

CMP #20, SAVMR1 
BEQ S$ 

ERROR +2 

CMP R4, SAVMR2 
BEQ 6$ 

ERROR +2 

CLR FLAG 

CLR SAVMRO 

CLR SAVMR1 


TUP 
;SAVE A COPY OF R1 
;SETUP FOR AN ABORT 
; TURN MMU ON 
; SAVE 


PC 
Oh A RELOCATION OPERATION 
ABORT SUPPOSED TO OCCUR 
SIF YES GO TO 2$ 
;POP THE ST 
;DID AN AFORT OCCUR 
3NO GO 0% 
;MMU ERR... 
;YES GO TO ERROR 
2 
;DID AN ABORT OCCUR 
YES GO ON 


; MMU 

;NO GO TO ERROR 
;SETUP EXPECTED DATA 
; TEST MMRO FOR EXPECTED VALUE 
IF OK THEN CONTINUE 


;MMU ERR 

sNOT OK THEN GO TO ERROR 
; TEST MMR1 FOR EXPECTED VALUE 
IF OK THEN CONTINUE 


;MMU 

;NOT OK THEN GO TO ERROR 
; TEST MMR2 FOR EXPECTED VALUE 
‘IF OK THEN CONTINUE 


MMU 
;NOT OK THEN GO TO ERROR 
;CLEAR MMU ABORT FLAG 
;CLEAR STATUS REGS SAVE AREAS 


EE ES 
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005067 137172 CLR SAVMR2 : 
005201 INC ORL ‘POINT TO NEXT ENTRY 
005201 INC Ri ; 
905202 INC —R2 
005202 INC R2 ; 
021327 000777 CMP «CRB, #777 ‘HAVE ALL ENTRIES BEEN TRIED 
001307 BNE «TSM ‘NO REPEAT 
5 RTS ‘YES RETURN 
; 
‘UPWARD EXPANSION TABLES 
70006 PLFO:  .WORD 70006 
070006 “WORD 70006 
070006 “WORD 70006 
013406 "WORD 13406 
020006 "WORD 20006 
004006 “WORD 04006 
040006 "WORD 40006 
070006 “WORD 70006 
024006 “WORD 24006 
004006 “WORD 04006 
014006 "WORD 14006 
012006 "WORD 12006 
002006 "WORD 02006 
001406 "WORD 01406 
004006 "WORD 04006 
002006 "WORD 02006 
000406 "WORD 00406 
007406 "WORD 07406 
001006 "WORD 01006 
003806 "WORD 03406 
777 ‘WORD 777 
013000 BNO: ‘WORD 013000 
016000 “WORD 016000 
5905 ‘WORD 002700 
014000 "WORD 014000 
"WORD 002000 
"WORD 004000 
04 007000 “WORD 007000 
348) O48770 000700 WORD 000700 
9482 043772 "WORD 004000 
043774 001000 "WORD 001000 
9484 043776 "WORD 000300 
9485 044000 "WORD 000400 
9486 044002 001400 “WORD 001400 
9487 044004 “WORD 000600 
3488 044006 "WORD 
044010 001 "WORD 001700 
9490 044012 "WORD 000300 
9491 044014 000700 "WORD 000700 
9492 044016 000000 ABORTO: :WORD 0 
94 000000 "WORD 0 
9494 000001 ‘WORD 1 
9495 000000 "WORD 0 
9496 044026 000001 "WORD 1 
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SEQ 0171 





2497 044020 000003 ‘WORD 1 
2498 044032 000000 “WORD 0 
2499 044034 900000 "WORD 0 
Sane Qaeeee = Shonoe "WORD 0 
1 044040 000000 "WORD 0 
044042 000001 "WORD 1 
044044 000000 “WORD 0 
044046 000000 -WORD 0 
044050 000001 ‘WD 9 
000001 “WORD 1 
000001 "WORD 1 
cane 900001 "WORD 1 
S20n Seaces Sooeol "WORD 0 
10 044062 000001 0 
11 044064 000000 ‘WORD 
13 ‘DOWNWARD EXPANSION TABLES 
9515 044066 ae ah 
Sate Oore WORD 20016 
17 044072 “WORD 20016 
9518 044074 WORD 24016 
oeeers “WORD 74016 
oeat “WORD 40016 
084106 "WORD 20016 
erty “WORD 00016 
106 "WORD 30016 
044110 time ioois 
oaaiia WORD 04016 
044116 WORD 4016 
is 00416 
00016 
eatin 03416 
BN1: 





PMussa sass ad strate apa eS 
EEESEEEESEEEESS 
RESES 


EESEDLESEESESSEDE 
HESHESEEAEEREenEens P= 
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9554 
9555 044206 
9556 044210 
9557 044212 
9558 044214 
9559 044216 
9560 044220 
$562 044224 
9563 044226 
9564 044230 
9565 044232 
9566 044234 
9567 044236 
9568 044240 
9569 044242 
9570 044244 
9571 044246 
ees 044250 
9574 044252 
9577 044254 

9576 
9579 044254 
9580 044260 
9581 044264 
9582 044270 
9584 044500 

044 

9585 044304 
9586 044310 
9587 ates 
9589 044330 
o330 044336 
1 044340 
oaae 044342 
93 044346 

9594 
9595 044352 
9596 044360 
9597 geatts 


sosesessentsts 
HIER EEEEESS 


x 
ee 
| eel 





cE: 


012 
010701 


172302 
136500 
177572 


177776 
177636 


136424 
177572 


177776 
172212 


136350 
177572 


ABORT?7: 


COr0COrrFrOOrOrrroOooOo 


TSOFIN: NOP 
TSMM1O: 


“1 ler * BITS <6:1> OF 


#100003 ,R4 
PC,1S10 


#30000 , 86177776 


#100177 ,R4 
PC,1S10 


#10000 , 80177776 


977400 @#172212 
#120000 ,R2 


#1,FLAG 
#1,90177572 
R7,R1 


3338553 4S3SSSSSGS HSTSsesse eects 


MMRO 
;MMU OFF 


;CLEAR MMU ABORT FLAG 

;CLEAR STATUS REGS SAVE AREAS 
; 

; 


;INIT MMU 
sINIT PSW: PREVIOUS MODE = KERNAL 


;SETUP KIPDR1 TO ABORT 

SSETUP FLAG FOR AN ABORT 

; TURN MMU ON 

;SAVE PC 

‘D0 A RELOCATION VIA KIPARI 
TED DATA 


;SETUP EXPEC 
;CHECK IF AN ABORT AND 





OCCURRED 
sIF YES CHECK BITS <6:1> OF MRO. 
PREVIOUS MODE - 


: PSW: USER 


sINIT MMU 

‘SETUP UDPDR7 TO ABORT 

‘SETUP FLAG FOR AN ABORT 

3 _ ON 

*50 A RELOCATION VIA UDPAR7 
EXPECTED 


ABORT OCCURRED AND 
;IF YES CHECK BITS <6:1> OF MARO. 
OUS MODE= SUPERVI 
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9613 044470 
72 


006522 
012704 
004767 


737 
012701 


100053 
000052 


136250 
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177776 


136302 
177572 


136246 


136240 


177776 


177776 


;TEST THAT ILLEGAL MODE CAUSES MMU ABORT 
#20000 , 80177776 
PC MMU 


z 
TS10: 


i$: 
2$: 
3$: 


4$: 


CMP 
ERROR 
CMP 


RTS 


(R2)+ 
#100053 ,R4 


PC,1TS10 


#1,FLAG 
#1,98177572 


(R2)+ 
#100105 ,,R4 


PC,1TS10 


TLOF IN 


#0,FLAG 
i$ 

+2 

R4, SAVMRO 
2$ 

+2 

#22, SAVMR1 
3$ 

+2 

R1, SAVMR2 
4$ 

+2 

SAVMRO 
SAVMR1 
SAVMR2 
PC 


TEST DATA SPACE BITS MMRS 
R @#177572 


L 
#30000 , 80177776 


#177610,R3 


pc, TSil 
#0,900177776 
#23,R1 


; CHE 
;IF YES 


3; MMU 
:NO GO TO 


;DO A RELOCATION VIA SIPARS 
:SETUP EXPECTED DATA:ABORT, PAGE 0S 
OCCURRED AND 


CK IF AN ABORT 
CHECK BITS <6:1> OF MMRO. 


;INIT PSW:SET ILLEGAL PREVIOUS MODE 
;INIT MMU 

;SET UP ACCESS TO PAGE 2 
;SETUP FLAG FOR AN ABORT 

STURN MMU ON 

;SAVE PC 

;DO0 A RELOCATION 

;SETUP EXPECTED DATA:ABORT, ILLEGAL 
; PROCE 

;CHECK IF AN ABORT OCCURRED AND 
IF YES CHECK BITS <6:1> OF MMRO. 


; ROUTINE TO CHECK IF A MMU ABORT OCCURRED AND IF STATUS REG MMRO 
CONTAINS EXPECTED DATA 


;DID AN ABORT OCCUR 
YES GO ON 


;MMU 
sNO GO TO ERROP 


; TEST “MRO FOR EXPECTED DATA 
OK GO UN 


ERROR 
; TEST MMR1 FOR EXPECTED DATA 
OK GO ON 


34M 
;NO GO TO ERROR 


; TEST MMR2 FOR EXPECTED DATA 
OK GO ON | 


; MMU 
;NO GO TO ERROR 


;CLEAR MMU STATUS REGS SAVE AREAS 
; 


* RETURN 


;MMU OFF 

; CLEAR fa ABORT FLAG 

SETUP FIRST MMR3 VALUE 
UIPDR4 


‘SETUP SECOND MMR3 VALUE 
‘TEST ENABLE USER DATA SPACE BIT 


;SETUP PSW 
;SETUP FIRST MMR3 VALUE 


SEQ 0173 
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177776 


136026 
177572 
136010 


135766 
177572 


135746 


177776 


172516 
172310 


135644 
177572 


MOV #172310,R3 
MOV 
JSR PC, TSi1 
MOV #10000, 80177776. 
MOV 3 
MOV $172210,R3 
MOV 
JSR PC, TSi1 
JMP TLIFIN 

;ROUTINE TO 

#si1: JSR PC, MMU 
my eaesTeRs 
MOV #100000, R2 
MOV #1,FLAG 
MOV $1,900177572 
MFPD  (R2)+ 
CMP 60, FLAG 
BEQ i$ 
ERROR +2 

i$: MOV R4,90172516 
MOV #100000 , R2 
MOV $1,FLAG 
MOV #1. 00177572 
MFPD (R2)+ 
TST (SP )+ 
CMP $1,FLAG 
BEQ 2$ 
ERROR +2 

2$: CLR FLAG 
RTS PC 

T11FIN 

TSMM12 


" MMR FUNCTIONAL TEST 
@017757. 


CLR 
CLR 
CLR 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOVB 
JSR 


FL 
SAVMR1 


PC, MMU 
#30000 , 94177776 
#100200, R4 


R4 
#100101,R5 


SEQ 0174 


;POINT TO KIPDR4 
;SETUP SECOND MMRS VALUE 
; TEST ENABLE KERNEL DATA SPACE BIT 


S SETUP FIRST MMR3 VALUE 
ye TO SIPDR4 
;SETUP SECOND MMR3 VALUE 
; TEST ENABLE SUPERVISOR DATA SPACE BIT 


TEST ENABLE DATA SPACE BITS OF MMRS 


;INIT MMU 
; DISABLE DATA SPACE OF MODE UNDER TEST 
sSETUP IPDR TO ABORT 


; SETUP FLAG FOR AN ABORT 


;MMU_ON 
$00 A RELOCATION 
;DID AN ABORT OCCUR 
;YES GO ON 


MMU ERROR 
NO NO’ GO TO ERROR 
sENABLE DATA SPACE OF MODE UNDER TEST 


‘ SETUP FLAG FOR AN ABORT 
;MMU ON 

;D0 A RELOCATION 

;POP THE STACK 

iDID BP all OCCUR 


stay ERROR 


;YES GO TO ERROR 
;CLEAR MMU ABORT FLAG 
;RETURN 


;MMU OFF 
;CLEAR MMU ABORT FLAG 
:CLEAR STATUS REG SAVE AREA 
3 


;INIT PSW 
;SETUP TEST LOCATIONS 
; 


; 

;INIT MMRS 

;SETUP KIPDOR4 TO ABORT 

;SETUP EXPECTED DATA FOR MMR1 
SETUP FLAG FOR AN ABORT 


; 
SAVE PC 

+50 A RELOCATION 

‘CHECK IF AN ABORT OCCURRED AND IF 
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SEQ 0175 


9731 YES IF MMR1 EQUALS EXPECTED {DATA 
04 012703 175011 MOV #175011,R3 EXPECTED DATA FOR MMR 
045210 012767 000001 135612 MOV $1,FL ‘SETUP FLAG FOR AN ABORT 
9734 045216 012737 000001 177572 MOV $1.90177572 STURN MMU ON 
04 010767 135562 MOV * SLOCOO PC 
9736 045230 112142 MOVB  (Ri)+,-CR2) ;D0 A RELOCAT 
9737 045232 004767 000154 JSR PC, TSi2 ; IF AN 
SYES IF MMR S EXPECTED DATA 
9739 045236 012703 006771 MOV $6771,R3 ;SETUP EXPECTED DATA F 
9740 045242 012767 1 135560 MOV $1, FLAG ;SETUP FLAG 
9741 045250 012737 1 177572 MOV $1.90177572 STURN MMU ON 
045256 010767 135530 MOV R7 SLOCOO SAVE PC 
9743 045262 114 MOVB = -(R1),(R5)+ :D0 A RELOCAT 
9744 045264 004767 000122 JSR PC, TSi2 :CHECK IF AN T OCCURRED AND IF 
974 YES IF MMR1 EQUALS EXPECTED DATA 
9746 045270 012703 006411 MOV #6411,R3 ; SETUP EXPECTED DATA FOR MMR1 
9747 045274 012767 000001 135526 MOV $1,FLAG SETUP FLAG FOR AN ABORT 
9748 045 012737 000001 177572 MOV $1.98177572 ; TURN 
9749 045310 010767 135476 MOV  SLOCOO ;SAVE PC 
9750 045314 112 MOVB (Ri)+,(R5)+ :DO0 A RELOCATION 
9751 045316 004767 000070 JSR PC, TSi2 :CHECK IF AN ABORT OCCURRED AND IF 
9752 ‘YES IF MMR1 EQUALS EXPECTED DATA 
9753 045322 012703 171025 MOV #171025 ,R3 ;SETUP EXPECTED DATA FOR MMR1 
9754 045326 012767 i 135474 MOV #1, :SETUP FLAG FOR AN ABORT 
9755 045334 01273 1 177572 MOV $1.a0177572 TURN MMU ON 
9756 045342 010767 135444 MOV R7.SLOCOO 3f 
9757 045346 0 MOV (R5)+,-CR2) :DU A RELOCATION 
9758 045350 004767 000036 JSR PC, TSi2 “CHECK IF AN ABORT OCCURRED AND IF 
sYES IF MMR1 EQUALS EXPECTED DATA 
9760 045354 012703 012762 MOV #12762 ,R3 EXPECTED DATA FOR MMR 
9761 045360 012767 135442 MOV #1, ‘SETUP FLAG FOR AN ABORT 
9762 04 01273 177572 MOV #1,.96177572 TURN MMU ON 
9763 045374 010767 135412 MOV 00 ;SAVE PC 
9764 04 01 MOV ~(2), (R5)+ ‘DO A RELOCATION 
9765 045402 004767 000004 JSR PC, TSi2 CHECK IF AN ABORT OCCURRED AND IF 
9766 YES IF MMR1 EQUALS EXPECTED DATA 
9768 045406 000167 000046 UMP TLOFIN 
* 
9770 ROUTINE TO CHECK IF AN ABORT OCCURRED AND IF MMR1 EQUALS EXPECTED DATA 
3775 045412 022767 000000 135410 {si2: CMP «#0, FLAG ;DID AN ABORT OCCUR 
9773 04 001401 BEQ i$ YES GO ON 
9774 04 1 ERROR +2 MMU 
9775 :NO GO TO ERROR 
9776 04 7 135414 1$: CMP R3, SAVMR1 ; TEST MMR1 FOR EXPECTED DATA 
9777 04 001401 BEQ 2$ OK GO ON 
9778 045432 1 ERROR +2 ;MMU 
779 ‘NO GO TO ERROR 
780 04 026767 135352 135404 2%: SLOCOO, SAVMR2 ; TEST MMR2 FOR EXPECTED DATA 
9781 045442 001401 BEQ 3§ OK GO ON 
9782 04 104002 ERROR +2 ; MMU 
9783 ‘NO GO TO ERROR 
9784 045446 005067 135372 3$: CLR SAVMR1 ;CLEAR STATUS REG SAVE AREA 
9785 045452 005067 135370 R SAVMR2 ; 
9786 045456 000207 RTS PC ; RETURN 
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MEMORY MANAGEMENT TESTS 


 SEREAESESSERESAAEASESESRSES ESSER ERESEASESEESSESEEKESEEESEESEEEEEEESEEEEES 
:(NEED 16 BITS OF MEMORY SSING) 
R @e177572 


1$: 


2$: 


3$: 


4$; 


2 
wD 


BCS SSSSSSSReSSSS OTS 


H 


$ PBMCEGSSSEKRAAAERG | 


FLAG 
a¢177776 


PC, MMU 
#20 90172516 


ARAD1 ,R2 
(R1), #333 
i$ 


#PHY1,R 
#VIR1,R1 


#M0DE1, 
(R2)+,08177776 


TISFIN 


SADDER TEST PART A TABLES 


BARADL: 


55558 


;MMU OFF 

;CLEAR MMU ABORT FLAG 

;INIT PSW 

;INIT MMU 

;INIT MMR3S 

;SETUP PARS WITH TEST VALUES 
; 


SSET POINTERS TO ADDER PART A 
; TEST TABLES. 


; 

;INIT PSW 

;SAVE DATA AT PHYSICAL ADDRESS 

; TURN MMU ON 

;SAVE DATA AT RELOCATED VIRTUAL ADDRESS 


STURN MMU_OFF 
SIS DATA EQUAL TO EXPECTED 
YES GO ON 


;MMU 
:NO IT IS AN ADDER 
ARE 


ERROR 
; WE READY TO TEST DATA SPACE 
3NO GO TO 2$ 

sPOINT TO DATA SPACE VALUES 

; 


ay DATA AT PHYSICAL ADDRESS 
TURN MMU_ON 
og TA_AT RELOCATED VIRTUAL ADDRESS 


;MMU ERROR 
;NO IT IS AN ADDER ERROR 








SEQ 0176 
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SEQ 0177 


9853 045676 172254 . WORD 2254 | 
045700 177652 .WORD 177652 
pet Thy: 177644 -WORD 177644 
045704 172246 -WORD 172246 
9857 045706 177654 .WORD 177654 
9858 045710 172250 -WORD 172250 
045712 177660 .WORD 177660 
9860 045714 000333 -WORD 335 
9861 por de 000000 PARVA1: .WORD 
045720 000010 . WORD 10 
045722 1 WORD 177777 
045724 177601 WORD 177601 
9865 045726 10 .WORD 000010 
045730 . WORD 
9867 045732 000070 -WORD 000070 
045734 000010 -WORD 000010 
045736 000010 .WORD 000010 
9870 045740 000060 . WORD 
9871 045742 000000 . WORD 
pod 0457 000010 -WORD 000010 
9873 045746 000333 -WORD 333 
9874 04 000000 VIRi: .WORD 
9875 04 tty . WORD 
9876 04 1 . WORD 
9677 04 017700 -WORD 017700 
9878 04 033000 . WORD 
9879 04576- 145252 -WORD 145252 
045764 tee -WORD 121000 
045766 WORD 04 
075000 -WORD 075000 
045772 142000 -WORD 142000 
9684 045774 117700 -WORD 117700 
9885 045776 000111 -WORD 111 
aces 046000 00 -WORD 007000 
9887 046002 PHY1: .WORD 000000 
9888 046004 -WORD 006000 
Fs + 54 046006 015 -WORD 015124 
046010 -WORD 000000 
9891 046012 014000 .WORD 014000 
oot 046014 012452 WORD 012452 
046016 010000 -WORD 010000 
9894 046020 004000 .WORD 004000 
9895 pores + 016000 -WORD 016000 
9896 010000 -WORD 010000 
se Sees rr Bee 
9899 0460 010000 -WORD 010000 
9900 046034 ys eae MODE1: .WORD ps ea 
9901 046036 . WORD 
poe. 046040 010000 . WORD pi ea 
046042 030000 . WORD 
9904 046044 010000 -WORD 010000 
9905 046046 . 0000 . WORD yao 
3907 9460s .WORD 030000 
9908 046054 010000 -WORD 010000 
9909 046056 .WORD 030000 
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SEQ 0178 
MEMORY MANAGEMENT TESTS 
9910 046060 010000 -WORD 010000 
9911 046062 000111 “WORD iil 
9912 046064 030000 ‘WORD 030000 
991 i 
9914 046066 13FIN: 
$925 046066 1§1822: 
TEST 22/18 BIT ADDRESS OPTION 
9927 Cena eee eeeren tn DETER IF Thts 1% A 22 | 
CK THE SOFTWARE SWITCH REGISTER TO DETERMINE IF THIS IS A 22 BIT OR AN 
ig BIT ADDRESS SYSTEM. BIT 08 IN THE SWR=1 INDICATES AN 18 BIT SYSTEM. 
‘TF WE'RE IN A 22 BIT SYSTEM WE CAN PERFORM SOME EXTRA TESTS. 
046066 032777 000400 133044 BIT 881708, aSwR ‘IS BIT 08 SET? 
046074 001405 BEQ «1008 ‘BRANCH IF ITS NOT 
9930 046076 062737 000001 001204 ADD —«#1, @@$TESTN ‘KEEP TEST NUMBERS IN ORDER 
9931 ‘ADD 1 FOR THE TESTS WE'RE SKIPPING 
9932 046104 000167 001422 uMP «CAIN ‘SKIP OVER THESE TESTS IF IT IS 
5 
3334 + {IF THIS IS A 22 BIT SYSTEM CHECK THE 22/18 BIT ADDRESS OPTION 
9936 ‘0 TEST 22 BIT ADDRESSING WE DO THE FOLLOWING: 
9937 A- ENABLE 22 BIT ADDRESSING MODE 
9938 ; B: CLEAR ADDRESS 
9939 3 C’ WRITE PHYSICAL ADDRESS 17000000 WITH ALL ONES 
9940 D. CHECK ADORE 
9941 ‘IF ADDRESS 0 IS UNCHANGED (=0) OR A TIME OUT OCCURRED, IT INDICATES 
9942 :22 BIT MODE. 18 FUNCTIONING. 
9943 ‘SE ADDRESS 0 =177777 IT INDICATES THAT 22 BIT MODE IS NOT FUNCTIONING. 
9945 046110 013767 000004 134674 100$: MOV § @4,SLOCOO ;SAVE VECTOR 
9946 046116 013767 000006 134670 MOV - @86, SLOCO1 SSAVE VECTOR 
9947 046124 012737 046204 900008 HOV s«18.a04 iSET VECTOR FOR NXM TRAP 
9948 046132 012 000340 MOV $340, 006 
9949 046140 012767 124350 HOV —s- #20, SR3 ‘ENABLE 22 BIT MODE ADDRESSING 
9950 046146 012767 170000 124200 MOV «#170000, KIPAR6 SET KIPAR6 FOR 1920-1924KW ADDR RANGE 
9951 046154 012767 1 131410 MOV —s- #1, SRO TENABLE MMU 
046162 005067 131612 CLR ‘CLEAR ADDR 0 
046166 012737 177777 140000 MOV —=« 177777, 8140000 ;MOVE ALL. ONES. TO ADOR 17000000 VIA KIPARG 
; 
9955 046174 005767 131600 isT 30 ‘ADDR © REMAINING CLEAR INDICATES 
‘THAT 22 BIT ADDRESS MODE I 
9957 ‘THAT SOME FURTHER TESTS SHOULD BE PERFORMED 
9958 046200 001405 BEQStét? ‘IF ADDR © #177777 
9959 1 22 BIT ADDRESS MODE BAD 
9960 046202 104002 ERROR +2 ;MMU ERROR 
9961 046204 012706 001000 1$: MOV _—s«@STBOT,SP SGOT HERE AS A RESULT OF NXM TRAP--- 
9962 ‘CLEAN UP THE STACK 
046210 005037 177766 CLR -@#177766 SCLEAR CPU ERROR REGISTER 
9964 046214 012737 046254 000004 2$: MOV #34 SET UP VECTOR FOR NXM TRAP 
9965 046222 042767 000020 124266 BIC  #B1T04,SR3 SSET 18 BIT ADDRESSING MODE IN SR3 
9966 046230 012767 170000 124116 MOV «#170000, KIPAR6 ‘SET KIPAR6 SO THAT BITS 18-21 SHOULD 
9967 ‘BE ASSERTED IF 22 BIT ADR WAS ENABLED 
9968 046236 012737 177777 140000 MOV —s-@177777, @#140000 ‘TRY TO WRITE ADDR 17000000 VIA KIPAR6 
9969 ‘ADDR © SHOULD = 177777. A TIME OUT 
046244 022737 177777 000000 CMP s«@*177777, 980 SOR ADDR O = ZERO INDICATES AN ERROR 
9971 046252 001403 BEQtiéSS: ‘60 TO NEXT TEST IF ADDR O=177777 
046254 005067 131312 33: CLR ‘DISABLE MMU BEFORE ERROR 
‘ERROR! 18 BIT ADOR OPTION IS N.G 
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SEQ 0179 
MEMORY MANAGEMENT TESTS 
9974 046260 104002 ERROR +2 ;MMU ERROR 
; 
9976 :TEST ADDRESS BITS 18 THRU 21 
ig ) 
9979 046262 052767 124226 4¢: BIS #81704 ,SR3 ;ENABLE 22 BIT ADDRESSING MODE 
9980 046270 012767 131506 MOV $5$,4 :SET UP FOR NXM TRAP 
9981 046276 005067 131476 CLR ;CLEAR ADDRES 
046302 012767 01 124044 MOV #10000, KIPAR6 ;TEST ADDRESS BIT 18 
046310 012737 1 140000 MOV #177777 , @#140000 ‘WRITE ALL ONES TO ADDR 1000000 
046316 005767 131456 TST 0 :TEST ADDRESS 0. SHOULD = ZERO 
9985 046322 001403 BEQ S$ ;BRANCH IF ADDRESS 0=0 
9986 046324 005067 131242 CLR SRO “DISABLE MMU BEFORE ERROR 
9987 046330 104002 +2 ; MMU 
9988 ‘ERROR! BIT 18 DID NOT ASSERT 
9989 046332 012737 046374 000004 5+: MOV 96% ,a04 ;SET UP FOR NXM TRAP 
9990 046340 005067 131434 CLR ‘CLEAR ADOR 0 
9991 046344 012767 020000 124002 MOV #20000 , KIPAR6 :TEST ADDRESS BIT 19 
9992 046352 012737 177777 140000 MOV #177777 ,@#140000 “WRITE ALL ONES TO ADDR 2000000 
9993 046360 005767 131414 TST 0 ;TEST ADDR O. 
9994 046364 001403 BEQ 6$ BR IF ADDRESS 0=0 
9995 046366 005067 131200 CLR SRO “DISABLE MMU BEFORE ERROR 
99% 046372 104002 *2 ; MMU 
9997 sERROR! BIT 19 DID NOT ASSERT 
9998 046374 012737 046436 000004 6%: MOV $7$ 004 ;SET UP FOR NXM TRAP 
9999 046402 005067 131372 CLR 0 ‘CLEAR ADDR 0 
10000 046406 012767 040000 123740 MOV $40000 , KIPAR6 :TEST ADDRESS BIT 20 
10001 046414 012737 177777 140000 MOV #177777 , 140000 ‘WRITE ALL ONES TO ADDR 4¢’,0000 
10002 046422 005767 131352 TST 0 ;TEST ADDR O. D =0 
1000 001403 BEQ 7$ BR IF ADDRESS 0 =0 
10004 046430 005067 131136 CLR SRO ‘DISABLE MMU BEFORE ERROR 
10005 046434 104002 ERROR +2 MMU 
10006 sERROR! BIT 20 DID NOT ASSERT 
10007 046436 012737 046500 000004 7%: MOV 88$ 004 ;SET UP FOR NXM 
1 046444 7 131330 CLR CL 0 
10009 046450 012767 100000 123676 MOV #100000 , KIPAR6 :TEST ADORESS BIT 21 
10010 046456 012737 177777 140000 MOV #177777 , 84140000 ;WRITE ALL ONES AT ADDR 10000000 
10011 046464 005767 131310 TST 0 ;CHECK ADDRESS 0. = 0 
10012 046470 001403 BEQ 8$ ;BR IF ADDR 0 = 0 
10013 046472 005067 131074 CLR SRO DISABLE MMU BEFORE ERROP 
10014 046476 104002 *2 
10015 ERROR! ADDR BIT 21 DID NOT ASSERT 
10016 046500 005067 131066 8$: CLR SRO ; DISABLE 
046504 005037 177766 CLR 90177766 ;CLEAR CPU ERROR REGISTER 
10018 046510 012706 001000 MOV eSTBOT ,R6 ;RESET STACK PO 
10019 046514 012737 003012 000004 MOV @eSLOCOO, a64 sRESTORE VECTORS 
1 ° 046 13737 003014 000006 MOV @#SLOCO1, 206 ; 
10080 046530 Tsim: 
10031 ADDER RELOCATION TEST PART B 
10032 SS 
‘ENEED 22 BITS OF MEMORY ADDRESSING) 
10033 005037 177572 @eSRO 
10034 005067 131226 CLR ‘CLEAR THE CPU ERROR REGISTER 
10035 046540 013737 003012 MOV a4 , 8@SLOCOO ;SAVE LOC 4 IN SLOCOO. 
10036 046546 013737 000006 003014 MOV 806 , @SLOCOi :SAVE LOC 6 IN SLOCO1. 
10037 046554 012737 047244 000004 MOV ONXMTRP , a4 ;SET UP FOR TIMEOUT TPAP 
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SEQ 0180 
MEMORY MANAGEMENT TESTS 
10038 046562 012737 000340 000006 MOV $340, 086 ;SET UP FOR TIMEOUT TRAP 
10039 046570 005037 172340 CLR aSKIPARO SSET KER PARO FOR 1ST 4KW OF MEMORY. 
10040 046574 012767 077406 123476 MOV #77406 , KIPDRO SET KER POR FOR 4KW R/W ACCESS. 
012737 177500 172354 MOV #177500, aaKIPARG. ;SET UP KERNEL PAGE REG 6 
1 ‘FOR HIGHEST 4K WORDS OF NON-I/0 
1 FOR 2 MEG WORDS OF MEMORY. 
10044 046610 012767 077406 123476 MOV #77406 , KIPDR6 “SET KER POR6 FOR 4KW R/W ACCESS. 
10045 046616 612737 000020 172516 MOV $20, a#SR3 ;ENABLE 22 BIT ADDRESSING. 
10046 046624 012737 177572 #1, a#SRO ;TURN ON THE MMU. 
10047 046632 737 147776 TST aoi47776 ATTEMPT TO ADDR. LAST MEMORY ADDR. $$$ 
10048 jeeeeeeneeeeeeWILL TRAP TO 4 IF 2 MEG WORDS OF MEMORY NOT AVAILABLE+#sseeees 
10049 046636 013737 003012 000004 MOV aeSLOCOO, a4 sRESTORE LOC 4 
0050 046644 013737 003014 000006 MOV aeSLOCO1, ave - SRESTORE LOC 6 
10051 046652 37. 177572 CLR ae177572 :MMU OFF 
046656 005037 003030 CLR aeFLAG -CLEAR MMU ABORT FLAG 
1 046662 004767 070664 JSR PC, MMU ;INIT MMU 
10054 046666 012737 010000 177776 MOV #10000 , 84177776 sINIT PSW 
10055 046674 012737 000020 172516 MOV $20, a#172516 SINIT MMR3 
10056 046702 052737 001000 177746 BIS $1000, 04177746 TURN CACHE TEST FEATURE ON 
10057 046710 012704 047446 MOV SPARVA3,R4 SET POINTERS TO INIT TABLES 
10058 046714 012701 047500 MOV #VIR3 Ri 
10059 046720 012437 172246 1$: MOV (R4)+, 98172246 SINIT SIPAR3 
10060 046724 012737 000001 177572 MOV $1,90177572 : TURN MMU ON 
10061 046732 012746 125252 MOV #125252, -(SP) “PUSH BACKGROUND DATA ON TO THE STACK 
1 046736 006671 000000 MTPI @0(R1) WRITE DATA TO PHYSICAL ADDRESS 
10063 046742 006531 MFPI a(Ri)- ‘WRITE DATA AT PHYSICAL ADDRESS TO STACK 
10064 046744 022726 125252 #125252, (SP)+ IS DATA EQUAL TO EXPECTED 
10065 046750 001403 BEQ 2$ ; YES 
046 005037 177572 CLR a#177572 TURN MMU OFF 
10067 046756 ERROR +2 ;MMU ERROR 
10068 :NOT EQUAL GO TO ERROR 
10069 046760 005037 177572 2$: CLR @#177572 ;TURN MMU OFF 
10070 046764 000333 CMP (R4), #333 ;ARE WE DONE 
10071 046770 001353 BNE i$ ;NO GO TO 1§ 
10072 046772 012704 MOV @PARVA2 ,R4 ;SET POINTERS TO PAR INIT TABLES 
10073 046776 012701 047276 MOV OPARAD2 RL ; 
10074 047002 012431 3$: MOV (R4)+,@C(R1)+ SINIT PARS 
10075 047004 021127 000333 CMP (R1), $333 ;ARE WE DONE 
10076 047010 001374 BNE 3$ :NO, GO TO 3$ 
10077 047012 012704 047414 MOV @MODE2 , R4 -SET POINTERS TO ADDER PART B TABLES 
10078 047016 012701 047362 MOV #VIR2,R1 ; 
10079 047022 012702 047446 MOV SPARVA3,.R2 ; 
10070 047026 012703 047500 MOV SVIR3,R3 
10081 047032 004767 000076 4s: JSR 1814 “WRITE DATA TO PHYSICAL ADDRESS AND THEN 
10082 ;CHECK IF DATA AT PHYSICAL ADDRESS IS 
EQUAL TO EXPECTED AND IF NOT DETERMINE 
:IF IT IS AN ADDER ERROR OR A MEMORY 
10085 047036 021127 000111 CMP (R1),@111 ;HA tt DONE ALL THE 22 BIT MODE I SPACE 
; 
10087 047042 001373 BNE 4$ :NO GO TO 4$ 
047044 INC Ri POINT TO 22 BIT MODE D SPACE CASE 
10089 047046 005201 INC Ri ; 
10090 047050 INC R4 
10091 047052 005204 INC R4 
1 047054 012737 000027 172516 MOV $27 , 80172516 SINIT MMR3 
1 047062 012437 177776 MOV (R4 5+, 98177776 sINIT PSW 
10094 047066 012746 052525 MOV #52525, -(SP) PUSH DATA ONTO STACK 
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10095 047072 
10096 047100 
10097 047102 
10098 047106 
estes 047114 


10102 047120 
10103 047124 
10104 
10:05 

06 


047 
10124 047210 
10125 047212 
10s 047216 

127 047222 


ite Ss 047224 
1otaS 047280 


10183 047232 
10134 047236 


135 047240 
eth Y; 047242 


04 
10143 047262 
10144 047270 


10145 
10146 047274 
10147 
10148 
10149 


10150 047276 
10151 047300 


012737 


000167 


000001 
177572 
000020 


172516 
000004 


000376 


177776 
00000 


177572 
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177572 


172516 


177572 


177776 
177572 


CLR 


JMP 


SEQ 0181 

#1,90177572 ; TURN MMU ON 

acRi)« sWRITE DA DATA TO PHYSICAL ADDRESS 

a¢177572 ; TURN MMU OFF 

$20,08172516 —C ‘INIT MMR3 

PC, 114 :CHECK IF DATA AT PHYSICAL ADDRESS IS EQUAL 
:TO EXPECTED AND IF NOT DETERMINE IF IT 
:IS AN ADDER ERROR OR A MEMORY ERROR 

a#172516 ;INIT MMR3 FOR 18 BIT MODE 

PC,1S14 ‘WRITE DATA TO PHYSICAL ADDRESS AND THEN 
:CHECK IF DATA AT PHYSICAL ADDRESS IS 
EQUAL TO EXPECTED AND IF NOT DETERMINE IF 
;IT IS AN ERROR OR A 

T14FIN 


; ROUTINE TO WRITE DATA TO PHYSICAL ADDRESS AND TO CHECK IF DATA AT 


‘PHYSICAL ADDRESS IS € 
‘AN ADDER ERROR OR A 


isia: 


714: 


1$: 
2s: 


MOV 


ggaeags 


a. TO EXPECTED AND IF NOT DETERMINE IF IT IS 


(R4)+, 80177776 ;INIT PSW 
$1,a8177572 : TURN MMU ON 
#52525, -( SP ‘WRITE DATA ONTO STACK 
acRi)« ;WRITE DATA TO PHYSICAL ADDRESS VIA STACK 
aei77572 : TURN MMU OFF 
#10000 , 80177776 ;INIT PSW 
(R2)+, 0172246 :INIT SIPARS 
$1,a¢177572 ON 
aoc R3) ‘DO RELOCATI 
#52525. (SP)+ :15 DATA EQUAL TO EXPECTED 
@0(R3) ‘WHAT TYPE OF ERROR IS IT 
omnes ; 
; 

+2 ;MMU ERROR 
* -IT IS A MEMORY ERROR 
o2 ;MMU ERROR 

‘IT IS AN ADDER ERROR 
ae177572 ; TURN MMU OFF 
R3 ; 
R3 3 
PC ; RETURN 


‘NON-EXISTANT MEMORY TRAP ROUTINE 


KIXMTRP : 


CLR 
MOV 
MOV 
CLR 


RTT 


@eSRO TURN OFF MU 
#T14FIN, (SP) ;SET_UP STACK “WITH RETURN ADDR. 
@eSLOCO0, a4 ;RESTORE L LOC 4 

BSL OCO1 . 86 RESTORE L 


;CPU ERROR 
;RETURN FROM TRAP; GO TO NEXT TEST. 


SADDER TEST PART B TABLES 


PARAD2: . WORD 
. WORD 


177646 
177650 
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SEQ 0182 
MEMORY MANAGEMENT TESTS 

10152 04 177652 .WORD 177652 
101 647304 172240 . WORD 2240 
10154 047306 177640 .WORD 177640 
10155 047310 177642 -WORD 177642 
0156 047312 172244 .WORD 172244 
10157 047314 177644 .WORD 177644 
10158 047316 172252 WORD 172252 
7320 172352 .WORD 172352 
101 7322 177662 .WORD 177662 
10161 047324 172242 -WORD 172242 

1ote8 04 000333 WORD 3335 
101635 04 157700 PARVA2: .WORD 157700 
10164 047332 137700 .WORD 137700 
10165 047334 077700 . WORD 77700 
10166 047336 176777 -WORD 176777 

10167 047340 007600 . WORD 7 
10168 047342 167700 WORD 167700 
169 047344 175700 -WORD 175700 
10170 047346 177425 WORD 177425 
10171 04 177220 -WORD 177220 
10172 04 173700 .WORD 173700 
10173 047354 176700 WORD 176700 
10174 047356 077400 -WORD 077400 

10175 047360 000333 -WORD 333 
10176 047362 070000 VIR2: .WORD 070000 
0177 047364 110000 .WORD 110000 

10178 04 1 -WORD 1 

10179 047370 -WORD 000000 
tet pote 000000 -WORD 000000 
10181 047374 030000 -WOFU 030000 
047376 050000 .WOPD 050000 
10183 047400 052524 WORD 052524 
10184 047402 136000 -WORD 136000 
10185 047404 130000 -WORD 130000 

9188 047 000111 -WORD iii 
10187 047410 0 .WORD 030000 
10188 047412 030000 .WORD 030000 
10189 047414 030000 MODE2: .WORD 030000 
10190 047416 030000 .WORD 030000 
10191 047 030000 .WORD 030000 
10192 047422 010000 -WORD 010000 
10193 047424 0 -WORD 030000 
10194 pods 0 -WORD 030000 
10195 047 010000 WORD 010000 
196 047432 0 .WORD 030000 
10197 047434 010000 -WORD 010000 
047436 -WORD 000000 

199 047440 000111 -WORD 111 
047442 0 .-WORD 030000 
10201 047444 010000 -WORD 010000 
1 047446 160000 PARVAS: .WORD 160000 
1 0474 140000 -WORD 140000 
1 0474 100000 -WORD 100000 
1 oer ake 176770 .WORD 176770 
1 0474 007600 . WORD 7600 
10207 047460 . WORD 70000 
0208 047462 176000 WORD 176000 
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0209 047464 177552 ‘WORD 177552 
10210 047466 177400 "WORD 177400 
10211 047470 174000 “WORD 174000 
10212 047472 177000 "WORD 177000 
10213 047474 007500 "WORD 007500 
10214 047476 000333 “WORD 333 
04 060000 VIR3: _4ORD 060000 
10216 047502 060000 “WORD 060000 
10217 047504 060000 "WORD 060000 
1 04 060700 "WORD 060700 
10219 047510 060000 "WORD 060000 
1 047512 060000 "WORD 060000 
10221 047514 060000 "WORD 060000 
10222 047516 060024 "WORD 060024 
10223 047520 060000 "WORD 060000 
1 04 060000 "WORD 060000 
10225 047524 060600 "WORD 060000 
1 047526 060000 "WORD 060000 
10827 047530 000333 "WORD 333 
1 
: t 
10231 047532 14FIN: 
10244 
10245 ; TEST NON-EXISTANT MEMORY TRAP 
10246 5 RRRREREREERES EERE EREREAERSRESEREER ERE RACES REESE ESSERE EEE SEES ES ES 
SWE ARE THAT THE NON-EXISTANT MEMORY TIME OUT 
-FEATURE IS WORKING SINCE WE CAN'T GUARANTEE THAT 
THE SYSTEM BEING TESTED A ANT MEMORY LOCATION. 
‘AT THIS TIME WE WILL ATTEMPT TO TEST THe NXM FUNCTION 
10247 047532 004767 070014 PC T THE MMU 
10248 047536 012737 177400 172354 MOV #177400, B¢KIPARG ‘SET KIPAR6 TO RELOCATE TO HIGHEST MEMORY 
10249 047544 016767 130234 133240 MOV 4, SLO0C00 ;SAVE VECT 
1 04 016767 000026 130224 MOV 23,4 ;LOAD VEC WITH ADDR OF TRAP HANDLER 
10251 04 767 000001 130004 BIS @B1T00, SRO ; TURN ON THE MMU 
1 047566 005067 130174 CPEREG ‘CLEAR THE CPU ERROR REGISTER 
1 047572 005067 130200 eL PS ;CLEAR THE 
1 047576 005737 157776 TST 9157776 sACCESS PHYSICAL ADDR 17757776 
1 047602 000415 i$: NXMF IN WE'LL ASSUME 
1 ‘THAT THIS TA. A 4 MEGABYTE SYSTEM 
10857 ;AND GO TO THE NEXT 
1 04 022767 000040 130154 2%: CMP #81105, CPEREG IS CPU ERROR REGISTER CORRECT? 
10259 047612 001401 BEQ 3$ 
10260 047614 104002 ERROR +2 ;MMU 
10261 047616 022726 047602 3$: CMP #1$,(SP)-+ ;IS CONTENTS OF STACK CORRECT? 
1 047622 001401 BEQ 4$ 
1 047624 104002 ERROR +2 MMU 
1 04 022726 000000 43: #0, (SP)+ IS CONTENTS OF STACK CORRECT? 
10265 04 001401 BEQ NXME IN 
1 047634 104002 ERROR +2 ;MMU ERROR 
10267 047636 005067 127730 NXMFIN: CLR STURN OFF THE MMU 
10268 047642 005067 CLR CPEREG ‘CLEAR THE CPU ERROR REGISTER 
10269 047646 016767 133140 130130 MOV SLOCOO, 4 RESTORE THE VECTOR 
10272 
10274 047654 TSMM15: 
10275 ; PAGE WRITTEN BIT TEST 





Po ee EL! LN 
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MEMORY MANAGEMENT TESTS 
10276 047654 
77 047660 


005037 

00506 

004767 
37 


062701 


177572 
077506 


177776 


177776 


172516 
177572 


ae 
Ba 
BISSS2 ws 3 GS BS BBE & BEBE & B88 4% BECREE 


isis: 


i$: 


2$: 


T 


5S 


8177572 ;MMU OFF 

FLAG ;CLEAR MMU ABORT FLAG 

PC MMU ;INIT MMU 

@¢177776 ;INIT PSW 

#172300 ,R4 ;SET POINTER TO KPDRS 

PC,TS15 ;D0 RELOCATIONS AND TEST KIPDRS FOR 
;PAGE WRITTEN BIT BEING SET AND IF 
sNOT SET GO TO 

PC,1T15 ;D0 RELOCATIONS AND TEST KDPORS FOR 
;PAGE WRITTEN BIT BEING SET AND IF NOT 
;SET GO TO ERROR 

#50000 , 84177776 ; INIT PSW 

#172200 ,R4 ;SET POINTER TO SPDRS 

PC,7S15 ;D0 RELOCATIONS AND TEST SIPORS FOR 
; PAGE og BIT BEING SET AND IF NOT 
‘ ERROR 

PC,715 ;D0 RELOCATIONS AND TEST SDPDRS FOR 
;PAGE WRITTEN BIT BEING SET AND IF NOT 
;SET GO TO ERROR 

@#177776 ; INIT PSW TO A KNOWN STATE 

#170000 ,8¢177776 sINIT PSW 

#177600 ,R4 ;SET POINTER TO UPDRS 

PC,7TSi5 ;D0 RELOCATIONS AND TEST UIPDRS FOR 
;PAGE WRITTEN BIT BEING SET AND IF 
;NOT SET GO TO ERROR 

PC,71i5 :D0 RELOCATIONS AND TEST UDPDRS FOR 
;PAGE WRITTEN BIT BEING SET AND IF NOT 
;SET GO TO ERROR 

@#177776 ;INIT PSW TO A KNOWN STATE 

#172300 ,R4 TO KPORS 


PC, TISA ‘EXPLICITLY WRITE TO KPDRS AND TEST 
‘FOR PAGE WRITTEN BIT BEING CLEARED 
:AND TF NOT CLEARED GO TO ERROR 


#172200 ,R4 ; Cc 
PC,T1SA ;EXPLICITLY WRITE TO SPORS AND TEST 
;FOR PAGE WRITTEN BIT BEING CLEARED 
i CLEARED GO TO ERROR 
#177600 ,R4 ; TO | 
PC,TiSA ;EXPLICITLY WRITE TO UPDRS AND TEST 
;FOR PAGE WRITTEN 
; IF NOT CLEARED GO TO ERROR 
TISFIN 


RELOCATIONS AND TEST IPDRS FOR PAGE WRITTEN BIT BEING 
SET REPORT AN ERROR 


Ri ;SET POINTER TO VIRTUAL ADDRESS 
#20, 80172516 SINIT MMR3 
1,a0177572 : TURN MMU ON 
(Ri), (RL) :DO A RELOCATION 
177572 ; TURN MMU 
(R4)+, 877506 :IS DATA EQUAL TO EXPECTED 
as OK GO ON 


MMU 
NO GO TO ERROR 
;POINT TO NEXT VIRTUAL ADDRESS 


SEQ 0184 








020 
001361 
000207 


160000 


000002 
000027 
000001 


177572 
077506 


020000 
160000 


077406 


172516 
177572 


172516 
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CMP R1, #160000 ;ARE WE DONE 
BNE 1$ ;NO GO TO 1% 
TS PC ;RETURN 


; 
;ROUTINE TO DO RELOCATIONS AND TEST DPDRS FOR PAGE WRITTEN BIT BEING SET 
;AND IF NOT SET REPORT AN ERROR 


f15: 


i$: 


2s: 


cLR sR ;SET POINTER TO VIRTUAL ADDRESS 
ADD «#2, R4 ;POINT TO FIRST DPDR 
MOV  #27,@0172516 sINIT MARS 
MOV #1, #177572 ;TURN MMU ON 
MoV (Ri), -( SP) ;PUSH DATA ONTO THE STACK 
MTPD = CR1) ;D0 A RELOCATION 
CLR al ; TURN MMU OFF 
CMP 0s (RA) +, #77506 ;IS DATA EQUAL TO EXPECTED 
BEQ sg canior °° ON 
ERROR +2 s MMU 
;NO GO TO ERROR 
ADD  #20000,R1 ;POIN? TO NEXT VIRTUAL ADDRESS 
CMP =—ss«R1., #160000 ;ARE WE DONE 
BNE if ;NO GO TO 1$ 
RTS = PC ; RETURN 


;ROUTINE TO EXPLICITLY WRITE TO PORS AND TEST PAGE WRITTEN BIT FOR BEING 
;CLEARED AND IF NOT CLEARED REPORT AN ERROR 


fsa: 
1$: 


2s: 


TISFIN: 


J 


a3 g,deaaeerenace : 


CLR R2 ;CLEAR COUNTER 
MOV CR4),CR4) ;D0 AN EXPLICIT WRITE TO POR 
CMP (R4)+,¢ 31S DATA EQUAL TO EXPECTED 
BEQ 2$ OK GO ON 
ERROR +2 
;NO GO TO ERROR 
INC R2 3 
CMP R2,¢20 ; ARE 
BNE i$ ;NO GO TO 1$ 
RTS PC ; 
TEST CSM 





pe ppt 
- 
a 
5 


TEST INSTRUCTION 


MMU 
+60 TO ERROR IF NOT TRAPPED 

; SETUP VECTOR 
;DISABLE CSM INSTRUCTION 


¢ 


@TMM16C , 810 
$27 80172516 


SEQ 0185 








E15 
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SEQ 0186 


10392 050304 012737 140000 177776 MOV #140000, 80177776 :SET PS TO USER MODE 
10393 050312 007014 _WORD 7014 TEST INSTRUCTION 
10394 050314 1 ERROR +2 Me 
10395 ‘GO TO ERROR IF NOT TRAPPED 
103% 050316 012737 050474 000010 TSM16B: MOV #TMM16D , 2¢10 VECTOR 
10397 050324 012737 000027 172516 MOV $27 ,80172516 :DISABLE CSM INSTRUCTION 
10398 050332 005037 177776 CLR 90177776 ;SET PS MODE 
10399 050336 007014 “WORD 7014 TEST INSTRUCTION 
16400 050340 1 ERROR +2 ; MMU 
‘GO TO ERROR IF NOT TRAPPED 
0 000037 172516 TSMI6C: MOV #37 ,90172516 ; CSM INSTRUCTION 
177776 MOV #40000, @¢177776 ;SET PS TO SUP MODE 
000700 MOV SINIT SUP SP 
140000 177776 MOV #120000 , 80177776 ;SET PS 10 USER MODE 
000600 MOV 8600, sINIT USER SP 
000014 000010 MOV #14,9610 SSETUP NEW VECTOR 
ScC ;SET ALL CC SITS 
\WORD 7024 TEST INSTRUCTION 
TSM16D: ERROR - ;MMU 
;GO TO ERROR IF NOT TRAPPED 
000504 JMP TML6A 
z 
; 
007777 177776 TMM168: BIC 87777 ,@0177776 CLEAR UNWANTED BITS 
177776 CMP 60, 90177776 ;1S PS CORRECT 
BEQ | ; ON 
+ 
:NO GO TO ERROR 
1$: TST (SP)-+ ; UP STACK 
TST (SP)-+ 
177624 JMP TSMi6A ;CONTINUE TESTING 
007777 177776 TMM16C: BIC $7777 , 8177776 ; UNWANTED BITS 
030000 177776 CMP #30000 , 80177776 51S PS CORRECT 
BEQ i$ YES GO ON 
ERROR +2 ;MMU ERROR 
:NO GO TO ERROR 
1¢: TST (SP )-+ ;CLEAN UP STACK 
TST (SP)-+ 
177622 UMP TSMi6B ;CONTINUE TESTING 
007777 177776 TMM16D: BIC 87777 , @0177776 ; UNWANTED BITS 
177776 CMP #0,00177776 :IS PS CORRECT 
BEQ 1$ ON 
ERROR +2 
;NO GO TO ERROR 
is: TST (SP - ; UP STACK 
TST (SP )+ : 
177616 JMP TSMI6C SCONTINUE TESTING 
TMMI6E: .WORD 156430 TEST LOCATION 
TMMI6F: ERROR +2 MMU 
;GO TO ERROR IF DIDN'T ABORT 
000364 JMP TML6A 
070017 177776 TMM16A: CMP #70017 , 80177776 ;IS PS CORRECT 
BEQ i$ YES GO ON 
ERROR +2 
:NO GO TO ERROR 
000572 i$: CMP R6, 0572 ;IS SP CORRECT 
2$ GO ON 





Pia 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VOS.03 Friday 28-Mar-86 13:30 Page 14-168 
MEMORY MANAGEMENT TESTS 


pects 050554 104002 
10451 050556 020427 


10496 750 012737 
10497 050756 012706 
10498 050762 0 7 
10499 050770 012706 
1 050774 0 

1 1002 012737 
1 1010 

1 1012 





10505 051016 104002 


156430 


156430 


177776 


2s: 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


TSiI6A: 





Beg neeeeees 253 253 gSegSeee5 ZE828 253 


+2 ;MMU ERROR 
;NO GO TO ERROR 
R4, TMM16E+2 31S R4 CORRECT 
3$ YES GO ON 
; TO ERROR 
@eTMM16E , #156430 ;IS TEST LOCATION OK 
4s YES GO ON 
;NO GO TO 
(SP)+, #156430 :IS STACK CORRECT 
S$ GO ON 
a2 3; MMU 
;NO GO 
(SP)+, @TSML6D ;IS STACK CORRECT 
6$ GO ON 
+2 ; MMU 
;NO GO TO 
(SP)+, #140000 :IS STACK CORRECT 
% GO ON 
+ 
:NO GO TO ERROR 
#700, R6 ;RESTORE SUP SP 
$140000 , 84177776 -SET PS TO USER MODE 
R6, 2600 :IS USER SP CORRECT 
8$ ON 
+2 3; MMU 
:NO GO TO ERROR 
#77400, SIPDRO ;SETUP SIPDRO TO ABORT 
STMM16F , 2616 ;SETUP VECTOR 
$1, @0FLAG ;SETUP FLAG FOR AN ABORT 
$1.a8177572 ; TURN MMU ON 
R7,R1 ;SAVE OLD PC 
7014 ; TEST INSTRUCTION 
60, BOF LAG ;DID AN ABORT OCCUR 
% YES 
so ; 
:NO GO TO ERROR 
@eSAVMR2 RL :IS MMR2 CORRECT 
10% YES GO ON 
GO TO ERROR 
@eSAVMRO , #100041 :IS MMRO CORRECT 
11 YES GO 
+ 
;NO GO TO ERROR 
$37, 80172516 sENABLE CSM 
#40000 , 80177776 ;SET PSW TO SUP 
$700 ;SETUP SUP SP 
#140000 , 80177776 :SET PSW TO USE 
s ; SETUP USE SP 
#14, 8610 ;SETUP NEW VECT 
#TS16, 9016 :SETUP NEW VEC 
;SET ALL CC BITS 
7027 sTEST INSTRUCTION 
45712 
+2 ;MMU ERROR 


SEQ 0187 
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SEQ 0188 


10507 051020 000167 000074 JMP TM16A 
10508 051024 022737 070017 177776 1TS16: CMP #70017 , 80177776 ;1S PSW CORRECT 
10509 051032 001401 BEQ 200$ YES GO ON 
10510 051034 104002 +2 ;MMU 
10511 ;NO GO TO ERROR 
10512 051036 020627 000572 200$: CMP R6, #572 ;1S SP CORRECT 
10513 051042 001401 BEQ 201$ ;YES GO ON 
10514 051044 104002 +2 ; 
;NO GO TO ERROR 
10516 051046 022627 045712 201$: CMP (SP)+,#45712 31S STACK CORRECT 
10517 051052 001401 BEQ 202$ ;YES GO ON 
tents 051054 104002 ve ;MMU 
10519 ;NO GO TO ERROR 
10520 051 022627 051016 202$: CMP (SP)+,#TS16A ;IS STACK CORRECT 
10521 051062 001401 BEQ 203$ YES GG ON 
10nee 051 104002 +2 ;MMU 
052 ;NO GO TO ERROR 
051 7 140000 203$ CMP (SP )+, #140000 ;IS STACK CORRECT 
10525 051072 001401 BEQ 204$ YES GO ON 
10526 051074 1 +2 
10527 ;NO GO TO 
10528 051076 0127 000700 204$: MOV #700 ,R6 sRESTORE SUP SP 
10529 051102 012737 140000 177776 MOV #140000 , 94177776 ;SET PSW TO USER MODE 
10530 0511 000600 CMP R6 , #600 ;1S USER SP CORRECT 
10531 051114 001401 BEQ TMI6A ; 
10532 051116 1 +2 no 
; 
10534 051120 005037 177776 TMI6A: CLR 76 ;SET PS TO KER MODE 
10535 051124 012637 000016 MOV (SP)+,a@#16 s;RESTORE VECTORS 
10536 051130 012637 000014 MOV (SP)+,a¢14 : 
peed 051134 012637 000010 MOV (SP)+,a¢10 ; 
10542 5 EREESRREERESRESSRESEESERESESERERESERA EES EEREEESEESESSEEESESSEES SES ESSE ES ES 
10543 .SBTTL FLOATING POINT TESTS 
10544 EehEEAEEEERESSESAESREERSSASSARSERSSESEEERESSS ESSE SERESESSSESES EE SOE SEES EES 
10545 ; BEGIN FLOATING POINT TESTING 
ios 5 ERREREEREREAEREESESESSRSESEREEERERE RA EAESESSREE SER EESESESSSS FEESEE EEE ES ES 
10547 | REREERERESEERESERRESRRREEEEER ERE SERERAEEAES EERE EE EESESEES TES EEE SESE SESE 
10560 051140 : 
10561 
10562 ; FPP REGISTER BIT TESTS 
10563 Ta ieee nama aemeemmananncmmanenaamaaael 
; 
;Ri=TEMPORARY COUNTER 
;R2=POINTER TO EXPECTED DATA 
we 3;R3=POINTER TO RECEIVED DATA 
;R4=0DD/EVEN COUNTER 
10564 051140 170011 
10565 051142 005005 MBT2: CLR ;SETUP FPP ACC POINTER 
10566 0511 012702 003100 MOV @BTEXP ,K2 sPOINT TO TEST DATA 
10567 051150 012703 003110 MOV #BTRES ,R3 sPOINT TO RECEIVED DATA 
10568 0511 170400 MBT2A: CLRD ACO ;SETUP FPP REGISTER VALUES 
10569 051156 174012 STD ACO, (R2) ;CLEAR EXPECTED VALUE 
10570 051 005004 R4 
10571 051162 170400 BTGO: CLRD ACO ;SETUP FPP REGISTER VALUES 
10572 051164 170401 CLRD ACi 


;GO TO ERROR IF DIDN'T TRAP 





H15 
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322 
10603 051330 
10604 332 


10618 376 
10619 051402 
10620 051404 
10621 oriais 


10635 031 oSi4le 


10636 051424 


10627 051430 
10628 051432 
10629 051436 


TESTS 


000030 
131602 


177710 
131566 
177674 
131552 
131544 
131536 
131530 
140132 


131560 
131552 
131544 
131536 


BTER: 


s;NOW VERIFY THE 
MBT8: 


MBTSA: 


AC2 
AC3 
AC4 
ACS 
RS,R1 ;GET FPP AC NUMBER INTO R1 
$14,R1 ;ALLOW 10 LOCATIONS FOR OPERATION 
gHACO, :SETUP JMP LOCATION 
BTEXP, ACO ;LOAD TEST DATA INTO TEST REGISTER 
ACO, BTRES ;SAVE TEST RESULT 
MACE ;GET OUT 
BTEXP, ACL ;LOAD TEST DATA INTO TEST REGISTER 
AC1,BTRES -SAVE TEST RESULT 
MACE ;GET OUT 
BTEXP, AC2 ‘LOAD TEST DATA INTO TEST REGISTER 
AC2,BTRES ;SAVE TEST RESULT 
CE ;GET OUT 
BTEXP ,AC3 ‘LOAD TEST DATA INTO TEST REGISTER 
AC3,BTRES :SAVE TEST RESULT 
; 
BTEXP, ACO 
ACO, AC4 ;LOAD TEST DATA INTO TEST REGISTER 
ACA ACO :SAVE TEST RESULT 
BTEXP, ACO ‘LOAD TEST DATA INTO TEST XFER REGISTER 
ACO, ACS ;LOAD TEST REGISTER 
ACS. ACO ‘STORE RESULT INTO XFER FPP REGISTER 
MACOA ;GET OUT 
BTEXP ,BTRES 
T ;BRANCH IF REGISTER ERROR 
BTEXP+2,BTRES+2 
BTEXP+4,BTRES+4 
BTEXP+6 ,.BTReS+6 
;GO0D RESULT 
@eDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
+3 FBP ERROR 
PP AC LOADED INCORRECTLY 
OTHER REGISTERS REMAINED ZERO 
Ri CLEAR TEMPORARY COUNTER 
IF RO UNDER TEST 
MBTBA ‘BRANCH IF TEST ING RO 
R5,04 ;SEE IF TESTING FPP REGISTER >R4 
MB Ten ;SKIP RO TESTING 
BTRES ;SAVE AC TEST RESULT 
RY BT TST ;VERIFY THAT CONTENTS REMAINED ZERO 
Reta ;BRANCH IF EXPECTED RESULT 
BeOETFPR ait ‘DETERMINE FLOATING POINT FAULT. $$$ 
+ i 
;BAD ACO 
RS, #1 ;SEE IF Ri UNDER TEST 
heise BTRES +O AVE AC TEST RESULT _ 
; 
7,BTTST ‘VERIFY THAT CONTENTS REMAINED ZERO 


SEQ 0189 
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10668 

10669 051610 
10670 0516 
10671 051616 
10672 


TESTS 


000003 
131376 
000144 


140132 


131316 
000064 


140132 


177776 


177272 


131222 


MBT8B: 


MBT8C: 


MBT8D: 


MBT8E: 


MBTSF : 


MBTSFG: 


MBT8B 
@ODETFPA 
+3 

R5,#2 
MBT8C 

AC2, BTRES 
R7,BTTST 


MBT8C 
@eDETFPA 
+3 

RS, #3 
MBT8D 
AC3,BTRES 


R7.BITST 


R4 


:30 Page 14-171 


;BRANCH iF GOOD 
_ DETERMINE FLOATING POINT FALLT. $$$ 
; 


3;BAD ACi 


;SEE IF TESTING FPP REGISTER AC2 
UNDER _TEST 


BR IF 
; SAVE AC TEST RESULT 
;VERIFY THAT CONTENTS REMAINED ZERO 


;BRANCH IF 
sDETERMINE FLOATING POINT FAULT. $$$ 


3;FPP 
;BAD AC2 
;SEE IF R3 UNDER TEST 
;BRANCH IF R3 UNDER TEST 
;SAVE AC TEST RESULT 
;VERIFY THAT CONTENTS REMAINED ZERO 


;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 
[FPP ERROR 


;BAD AC3 

;SEE IF R4& UNDER TEST 

;BRANCH IF R4 UNDER TEST 

;MOVE REGISTER CONTENT 

;SAVE AC TEST RESULT 

; VERIFY Lig CONTENTS REMAINED ZERO 

' 

DETERMINE FLOATING POINT FAULT. $$$ 
,FPP ERROR 


;BAD AC4 


;MOVE REGIS 
sSAVE AC TEST RESULT 
;VERIFY THAT CONTENTS REMAINED ZERO 
;BRANCH IF GOOD 

— FLOATING POINT FAULT. $$$ 
;FPP 


;BAD ACS 
; INCREMENT PATTERN COUNTER 


; TEST FOR ODD /EVEN 

; BRANCH 

;SET CARRY FOR TEST Andon SHIFT 
;ROTATE 2 WORD OF TEST PATTERN 
;ROTATE 3 WORD OF TEST PATTERN 
;ROTATE 4 WORD OF TEST PATTERN 

; JUMP IF THROUGH WITH TEST PATTERN 
;CONTINUE WITH NEW TEST PATTERN 


;GO TO NEXT REGISTER TEST 
;SEE IF THROUGH TESTING 


; THROUGH 
sCONTINUE TESTING WITH NEW PATTERN 


;VERIFY CONTENTS AS ZERO 


SEQ 0190 





J15 
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10687 051666 


10719 051716 

720 720 
10721 051724 
07 1730 


10750 76 
10751 052102 


001010 


005767 
001005 
005767 
001002 
005767 
000207 


131216 
131212 
131206 


003100 
003110 
000051 
000052 
000053 
000054 
131114 


000240 
131102 


AS ZERO 


BNE _—s-iBTTSTE .EXIT IF NOT ZERO 
TST - BTRES+2 VERIFY CONTENTS AS ZERO 
BNE —-_BTTSTE ‘EXIT IF NOT ZERO 
TST —«sBTRES+ ‘VERIFY CONTENTS AS ZERO 
BNE —s-BTTSTE ‘EXIT IF NOT ZERO 
TST ——« BTRES+6 ‘VERIFY CONTENTS 
BITSTE: RTS 7 ‘GO BACK TO CALLING ROUTINE 
MBTE: 
MFACU: 
, TEST UNIQUENESS OF FPP ACCUMULATORS 


sEREKEEKREKERERSESSESEAEAEEESESEEEEESERESEERESSES ESE EEE SES ESE SESE SESS 


THIS TEST LOADS UNIQUE PATTERNS INTO EACH ACCUMULATOR SIMULTANEOUSLY. 
;R2=POINTER TO EXPECTED DATA 
;R3=POINTER TO RECEIVED DATA 


MFA: 


Beeseeesseeasssssesccs 


wn 
~ 
Oo 


BFACI: 


;SETUP FPP ACC POINTER 


MOVE 


DA 
;PUT DA 


SUBTRACT 10 FROM 


;POINT TO TEST DATA 
INT TO RECEIVED 
;SETUP EXPECTED DATA 


TA_TEMPORARILY 
TA INTO TEST REGISTER 
T FROM AL EXPECTED DATA 


;STORE INTO TEST REGISTER 


S 
OF TEST WORDS 


TOAD FINAL TEST REGISTER 


CHECK 
‘BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 


3;FPP 
;BAD ACO 


REGISTER CONTAIN UNIQUE TEST WORDS 
RESULT 


;UPDATE EXPECTED RESULT 


; STORE 
CHECK 


. 
ANCH IF GOOD 
BE TERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


AC1 RESULT 
SULT 





SEQ 0191 
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10765 052152 
10766 
eres 052154 


77 
10771 052172 
10772 052174 
10773 052200 









TESTS 


130534 


130542 


BFAC2: 


BFACS: 


BFAC4: 


BFACS: 


BFA: 


BFB: 


JSR 
STO 


qe 


SASRShS BSSSSaaEeD » 


ps) 
= 
w 


BF AE 
#10 ,BTEXP 
#10, BTEXP+2 


#10 > BTEXP 24 
#10, BTEXP+6 


#10, 'BTEXP+6 
RS 


BTEXP ,BTRES 
BTEXP+2,BTRES+2 
BTEXP+4 ,BTRES+4 
BTEXP+6,BTRES+6 
RS 


;BAD RESULT AC1 

;UPDATE EXPECTED RESULT 
; STORE AC2 RESULT 

CHECK RESULT 


;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 


+BAD AC2 RESLUT 
;UPDATE EXPECTED RESULT 
;SAVE TEST RESULT 
;CHECK RESULT 


;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. 


‘BAD AC3 RESULT 
; UPDATE aa RESULT 
;SAVE _TEMPORAR 
;STORE AC4 RESULT 
CK RESULT 
BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. 


‘BAD AC4 RESULT 
;UPDATE EXPECTED RESULT 
;SAVE TEMPORARY COPY 
‘MOVE ACS RESULT 
;CHECK RESULT 
; IF GOOD 
_ DETERMINE FLOATING POINT FAULT. 
;BAD ACS RESULT 
;EXIT MODULE 
-UPDATE EXPECTED CONTENTS 
;UPDATE EXPECTED CONTENTS 
;UPDATE EXPECTED CONTENTS 
;UPDATE EXPECTED CONTENTS 
s UPDATE EXPECTED CONTENTS 
E EXPECTED CONTENTS 
‘ UPDATE EXPECTED CONTENTS 
;UPDATE EXPECTED CONTENTS 


$$$ 


$$$ 


$$$ 


$$$ 


‘ VERIFY Y CONT 
;GO BACK TO CALLING ROUTINE 


SEQ 0192 


SEQ 0193 
FLOATING POINT TESTS 


TSFP1: 
TEST LOFPS AND STFPS MODE 0 
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005037 CLR @STRPFLG , ;CLEAR TRAP FLAG 





140054 
012704 147757 MOV $147757 ,R4 ;SETUP DATA TO BE LOADED 
004767 000032 JSR LOST ;LOAD AND STORE FPS WITH DATA 
012704 105252 MOV #105252,R4 ;SETUP DATA TO 
004767 000022 JSR PC,LOST ;LOAD AND STORE FPS WITH DATA 
012704 MOV #42505 ,R4 ;SETUP DATA TO BE L 
004767 000012 JSR PC, LOST ;LOAD AND STORE FPS WITH DATA 
005004 CLR R4 ‘SETUP DATA TO BE L 
004767 000004 JSR PC,LOST ;LOAD AND STORE FPS WITH DATA 
‘ 
000167 000020 JUMP FINI 
; 
170104 LOST: LOFPS R4 ;LOAD FPS WITH DATA 
170201 STFPS Ri ;LOAD R1 WITH (FPS) 
020401 CMP R4,R1 “DID THE INSTRUCTIONS WORK 
001403 BEQ 1 ;YES GO ON 
004737 140132 CALL § @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
104003 ERROR +3 FPP ERROR 
a ;NO GO TO ERROR 
000207 1s: RTS PC ; RETURN 
000240 FINI: NOP 
tsFP2 
; TEST CFCC 
005037 140054 CLR aeTRPFLG ;CLEAR TRAP FLAG 
012704 000017 MOV #17,R4 ; SETUP DATA TO BE LOADED 
004767 000032 JSR PC, TSF2 ‘LOAD FPS AND COPY CONDITION CODES TO PS 
012704 000012 MOV #12,R4 :SETUP DATA T 
004767 000022 JSR PC, TSF2 ;LOAD FPS AND COPY CONDITION CODES TO PS 
012704 000005 MOV #5,R4 ;SETUP DATA TO BE L 
004767 000012 JSR PC, TSF2 ;LOAD FPS AND COPY Y CONDITION CODES TO PS 
CLR R4 ‘SETUP DATA TO BE L 
004767 000004 JSR PC, TSF2 :LOAD FPS AND COPY” CONDITION CODES TO PS 
i 
000167 000030 JMP FIN2 
170104 iSF2: LOFPS R4 ;LOAD FPS 
170000 CFCC ‘COPY CONDITION CODES TO PS 
013701 177776 MOV 94177776,R ;SAVE PS TO Ri 
042701 177760 BIC $1777 HP ; MASK UNWANTED BITS 
020401 CMP R4 1 ea ‘WAS CONDITION CODE BITS TRANSFERRED 
; CORRECTLY 
001403 BEQ 1$ ‘YES GO ON 
004737 140132 CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
104003 ERROR +3 FPP 
;NO GO TO ERROR 
000207 1$: RTS PC ; RETURN 
FIN2: 
sFP3: 
; TEST SETF, SETD, SETI, SETL 
140054 CLR asTRPFLG ;CLEAR TRAP FLAG 





005037 
012704 000200 MOV #200 ,R4 ; SETUP DATA TO BE LOADED 








M15 
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1087 
1 


052554 





140132 


000010 


1$: 


2s: 


3$: 


Di: 


LDFPS = R4 ;LOAD FPS 
SETF MAKE FD=0 
STFPS R1 ;STORE FPS 
CMP R1, 40 ;IS FO=0 
BEQ i$ ;YES GO 
CALL a00E TFPA DETERMINE FLOATING POINT FAULT. $$$ 
;NO GO TO ERROR 
SETD FD=1 
STFPS Ri ;STORE FPS 
CMP R1,R4 IS FO=1 
BEQ 2$ ;YES GO ON 
CALL SQDETFPA ~ DETERMINE FLOATING POINT FAULT. $$$ 
+ ; 
;NO GO TO ERROR 
MOV #100,R4 ;SETUP DATA TO BE LOADED 
LOFPS R4 ;LOAD FPS 
SETI ; FL=0 
STFPS RI ;STORE FPS 
CMP R1, #0 :IS FL=0 
BEQ 3$ ;YES GO ON 
CALL § @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3F 
:NO GO TO ERROR 
SETL ; FL=1 
STFPS RI ;STORE FPS 
CMP R1,R4 sIS FL=1 
BEQ 4$ ;YES GO ON 
CALL § @@DETFPA “DETERMINE FLOATING POINT FAULT. $$: 
ERROR +3 sFPP ERQOR 
;NO GO TO ERROR 
TEST ILLEGAL OP CODES AND STST 
CLR TRPFLG ;CLEAR TRAP FLAG 
MOV #170003 ,R5 ; 
MOV -(SP) ;SAVE FP VECTOR 
MOV SILLOP1, 90244 ;SETUP NEW VECTOR 
MOV ,-(SP) -SAVE TIME OUT VECTOR 
MOV @TIMEOU, 264 ' NEW VECT 
MOV a10, -(SP) ;SAVE ILLEGAL VECTOR 
MOV SILLOP2, a#10 ;SETUP NEW VECTOR 
CLR R3 ; 
LOFPS R3 SCLEAR FPS 
CLR RO ; 
MOY RS, a002 ;SETUP THE ILLEGAL INST 
; 
CFCC ;MEMORY WORDS TO BE USED WITH 
INC R2 EXECUTION OF ILLEGAL OP CODE 
INC R2 ; 
STFPS Ri ;SAVE FPS 
CALL § @@OETFPA cree RINE FLOATING POINT FAULT. $$$ 
ERROR +3 FPP 
;GO TO ERROR 
CMP #170010,R5 :COMPUTE NEXT OP CODE 
BNE DS ; 


SEQ 0194 








N15 
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i ee 





170013 
170077 


100000 
140132 


140132 


140054 
000244 
053230 
040000 


000244 


ILLOP1 : 


1$: 


2$: 


3$: 


TIMEOU: 


{SFPS: 


3 gree 3 383225 3"9 


RTT 


TEST FID CINTERRUPT DISABLE BIT) 
CLR av 


MOV 
MOV 
LOFPS 


#170013,R5 
#170077,R5 
D6 


(SP)+,(SP)+ 
#100000 ,R1 


2 
<a FPA 


R4 
R4 


#2 ,R4 


soa FPA 


;RESTORE VECTORS 
: 


;DID TRAP OCCUR ON TEST INST 
; 
a FLOATING POINT FAULT. $$$ 


;YES GO 
DETERMINE FLOATING POINT FAULT. $$$ 


410A ee STATE 
STORE FEC AT R 
;IF THE DESTINATION MODE IS 


IMPROPERLY 
;DECODED AN ODD ADDRESS TRAP TO 4 


;SHOULD OCCUR 
;1S FEC CORRECT 
;NO GO TO ERROR 
;YES GO ON 
— FLOATING POINT FAULT. $$$ 


Epp DETERMINE FLOATING POINT FAULT. $$$ 
; 


sERROR BECAUSE OF TRAP TO 4 
;RETURN 


DETERMINE FLOATING POINT FAULT. $$$ 
;FPP errin 
sERROR BECAUSE OF TRAP TO 10 
;RETURN 


;CLEAR TRAP FLAG 
i SAVE FP VECTOR 


NEW VECT 
; SETUP DATA TO BE LOADED 
;LOAD FPS, FID=1 


SEQ 0195 





B16 
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SEQ 0196 


053160 170020 170020 ;ILLEGAL FP INSTRUCTION 
10991 053162 170000 CFCC 
053164 170201 STFPS = R1 ;SEE IF ERROR WAS RECORDED IN FPS 
10993 053166 022701 140000 CMP $140000,R1 ; 
10994 053172 001403 BEQ i$ ;YES GO ON 
10995 053174 004737 140132 @eDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
10996 104003 +3 FPP 
10997 ;NO GO TO ERROR 
10998 053202 170304 1$: STST R4 :SEE IF FEC=2 
10999 022704 000002 CMP #2,R4 ; 
11000 053210 001403 BEQ ;YES GO ON 
11001 053212 004737 140132 CALL § asDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11002 053216 104003 +3 FPP ERROR 
1100 ;NO GO TO ERROR 
11004 053220 012637 000244 23: MOV (SP)+,ag244 ;RESTORE VECTOR 
5 
11006 053224 000167 000010 JUMP FINS 
11008 053230 004737 140132 ILL: CALL $$ @#DETFPA ;DETERMINE FLOATING POINT FAULT. $5$ 
11009 053234 104003 ERROR +3 ;FPP ERROR 
:FID ERROR 
11011 053236 000006 RTT ; RETURN 
FINS: , ; 
11016 053240 TSFP6: 
: TEST LDD, STD FSRC AND FDST MODE 1 
11018 053240 005037 140054 CLR aeTRPFLG ;CLEAR TRAP FLAG 
11019 053244 CLR R4 ;SETUP TO LOAD DATA 
1020 053246 170104 LOFPS R4 ;CLEAR FPS 
11021 053250 170011 SETD ;SET FD TO 1 
1022 053252 013746 000004 MOV a4, -(SP) ;SAVE TIMEOUT VECTOR 
11023 053256 012737 053430 MOV eTSF6, 004 ; VECTOR 
1024 053264 012704 053420 MOV 8TSEDAT ,R4 ; POINTER TO DATA 
11025 053270 172414 LOD (R4), ACO ; TEST INSTRUCTION 
1026 053272 020427 053420 CMP R4, aT ;IS R4 CORRECT 
11027 053276 001403 BEQ 1$ YES 
1028 053300 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11029 053304 104003 ERROR +3 
1 :NO GO TO ERROR | 
11031 053306 012701 053410 i$: MOV $TS6DA,R1 ; POINTER TO DATA 
11032 053312 012703 MOV 44, SINIT COUNTER 
11033 053316 022421 2$: CMP (R4)+,(R1)+ ;WAS SOURCE DATA ALTERED 
1034 053320 001403 BEQ ;NO 
11035 053322 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11036 053326 104003 ERROR +3 ;FPP ERROR 
;YES GO TO ERROR 
11038 053330 077306 3$: SOB R3,2$ ;ARE WE DONE 
11039 053332 012704 003162 MOV #TSTLOC,R4 ;SETUP POINTER FOR DATA 
11040 053336 174014 STD ACO, (R4 ; TEST INSTRUCTION 
11041 053340 7 003162 CMP R4, 8TSTLOC IS R4 CORRECT 
11042 053344 001403 BEQ 43 ;YES GO 
11043 053346 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
1044 053352 104003 ERROR +3 ;FPP ERROR 
11045 ;NO GO TO ERROR 
11046 053354 012701 053410 4s: MOV @TS6DA,R1 ;SETUP POINTER TO DATA 
11047 053360 012703 MOV ‘ ; COUNTER 
1048 053364 022421 S$: CMP (R4)+,(R1)+ :IS DESTINATION DATA CORRECT 
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11049 053366 001403 BEQ 6$ ;YES GO ON 
11050 053370 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11051 053374 104003 ERROR +3 FPP 
11052 :NO GO TO ERROR 
11053 053376 077306 6$: SOB R3,5$ ;ARE WE DONE 
11054 053400 012637 000004 MOV (SP)+ a4 ;RESTOPE VECTOR 
11 : 
11057 053404 000167 000030 UMP FING 
11059 053410 177777 TS6DA: .WORD 177777 
11060 053412 000000 "WORD 000000 
11061 053414 052525 "WORD 052525 
11062 053416 125252 "WORD 125252 
11063 053420 177777 TS6EDAT: :WORD 177777 
11064 053422 000000 "WORD 000000 
11065 053424 052525 "WORD 052525 
11066 053426 125252 "WORD 125252 
11068 053430 004737 140132 TSF6: CALL $@@DETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
053434 104003 ERROR +3 FPP ERROR 
:0DD ADDRESS TRAP 
11071 053436 000006 RTT ; RETURN 
053440 FING: 
11076 053440 +SFP7: 
; TEST LOD, LDF FSRC MODE 0 
11078 053440 140054 CLR aeTRPFLG ;CLEAR TRAP FLAG 
11079 053444 012704 000200 MOV ; ;SETUP TO LOAD FPS 
11080 053450 170104 LOFPS R4 ;LOAD FPS, FD=1 
11081 053452 013746 000004 MOV a4, -(SP) ;SAVE TIMEOUT VECTOR 
11082 053456 012737 053624 MOV $TSF7, 004 :SETUP NEW VECT 
11083 012704 053634 MOV eTS7DAL RA ; POINTER TO DATA 
11084 053470 172414 LOD (R4) ; ACO 
11085 053472 012701 053644 MOV 8TS7DA2,R1 POINTER TO DATA 
1108 053476 172511 LOD (R1), ACL ;LOAD AC1 WITH DATA 
11087 172403 LOO 1, ACO ; INS 
11088 12704 003162 MOV @TSTLOC,R4 ; 
11089 174114 STD 1,(R4) CHECK IF ACI HAS BEEN ALTERED 
11090 10 767 000072 JSR PC ; 
14 012704 003162 MOV @TSTLOC,R4 ;SETUP POINTERS FOR DATA 
11092 012701 053644 MOV 8TS7DA2,R1 : 
174014 STD (R45 ;CHECK IF ACO RECEIVED CORRECT DATA 
004767 000054 JSR CHE ; 
012701 053634 MOV @TS7DA1,R1 ;SETUP POINTER TO DATA 
053536 172511 LOD 1),ACi ; 
11097 053540 170001 SETF ;SET FD=0 
11098 053542 172401 LDF AC1,ACO ; TEST INSTRUCTION 
053544 170011 SETD ; 
053546 012704 003162 MOV STSTLOC ,R4 ; SETUP TO DATA 
11101 053552 174114 STD AC, (R4) ;CHECK IF AC1 HAS BEEN ALTERED 
102 053554 004767 JSR 
tit or3701 003162 ov gT270AA.Re —_—— 
11105 17401 “ S10 ACO, CRI) SCHECK If ACO HAS CORRECT DATA 
0000 ; 
11107 oesere 000004 MOV (SP)+, 04 ;RESTORE VECTOR 





D16 
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11108 
11109 3 
11110 053602 000167 000056 UMP FIN7 
11112 953606 012793 000006 bHECK7: MOV —s-s«@4, RB INIT COUNTER 
11113 053612 1 CMP (R4)+,(R1)+ IS DATA OK 
11114 053614 001401 BEQ CHK7 YES GO ON 
11115 053616 104003 ERROR +3 
11117 053620 077304 CHK7: SOB R3, CHEK 
11118 053622 000207 RTS PC 
11120 053624 004737 140132 1SF7: CALL  @@DETFPA DETERMI FLOATING POINT FAULT. $$$ 
11121 053630 104003 ERROR +3 SEPP ERROR 
11122 ;0DD ADDRESS TRAP 
if 053632 000006 RTT ;RETURN 
11125 053634 000000 #S7DA1: .WORD 0 
11126 053636 000000 "WORD O 
11127 053640 000000 "WORD O 
ll 053642 "WORD O 
il 037641 TS7DA2: |WORD 37641 
11130 053646 065121 "WORD 65121 
11131 053650 037373 "WORD 37373 
111 053652 022265 "WORD 22265 
111 000000 TS7DA4: |WORD 0 
11134 053656 000000 "WORD O 
11135 053660 037373 "WORD 37373 
111 022265 "WORD 22265 
11137 053664 FIN? 
11141 053664 TSFP10 
; TEST STD, STF FDST MODE 0 
111 005037 140054 CLR BOTRPFLG ;CLEAR TRAP FLAG 
1 70 012704 000200 MOV $200, R4 ;SETUP TO LOAD FPS 
11145 74 170104 LOFPS R4 ;LOAD FPS, FD=1 
053676 013746 000004 MOV ae4, -(SP) ;SAVE TIMEOUT VECTOR 
1147 012737 054054 000004 MOV 10,004 ;SETUP NEW VECTOR 
111 10 012704 054064 MOV e710 R4 ;SETUP POINTER TO DATA 
11149 053714 172414 LOD (R4), ACO ;CLEAR ACO 
11150 16 012701 054074 MOV $TS1002,R1 ;SETUP POINTER TO DATA 
11151 053722 172511 LOD (R1), ACL ;LOAD AC1 WITH DATA 
111 24 174100 STD 1 ; TEST INSTRUCTI 
11 012704 003162 MOV 8TSTLOC,R4 ; 
111 i 4114 STD 1,(R4) CHECK IF AC1 HAS BEEN ALTERED 
iil 004767 72 JSR 0 ; 
iil 40 012704 003162 MOV #TSTLOC,.R4 ;SETUP POINTERS FOR DATA 
i 44 1 74 MOV #751002,R1 ; 
111 053750 174014 STD (R4) CHECK IF ACO RECEIVED CORRECT DATA 
il 767 000054 JSR PC, CHECIO 
11160 012701 054064 MOV $T51001,R1 ;SETUP POINTER TO DATA 
11161 172511 LOO (R1), ACL ;CLEAR AC 
il 053764 170001 SETF ;SET FD=0 
il 174100 STF AC1,ACO ; TEST INSTRUCTION 
11164 053770 170011 SETD ;SET FD= 
11165 012704 003162 MOV @TSTLOC,R4 ;SETUP POINTER TO DATA 
11166 053776 174114 STD ACI, (R4) ;CHECK IF ACL HAS BEEN ALTERED 





SEQ 0196 
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11167 054000 
1168 054004 





SEQ 0199 
JSR PC ,CHEC10 ; 
MOV #751004 ,R4 ;SETUP POINTERS FOR DATA 
MOV #TSTLOC,R1 
STD —«ACO, (R13 | CHECK IF ACO HAS CORRECT DATA 
JSR PC, CHEC1O : 
MOV (SP)+, a04 ;RESTORE VECTOR 
JMP FINLO 
dyec10: MOV —s-s«@#4, RB ;INIT COUNTER 
CHi0: CMP (R4)+,(R1)+ ;IS DATA OK 
BEQ ;YES GO ON 
CALL §§ @SDETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 FPP E 
:NO GO TO ERROR 
CHK10: SOB R3,CH1O ;ARE WE DONE 
RTS PC :YES RETURN 
TSF10: CALL § @@ODETFPA -DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 :FPP ERROR 
;0DD ADDRESS TRAP 
RTT ; 
TSi0D1: .WORD 0 
“WORD 0 
“WORD O 
"WORD 0 
TSi0D2: .WORD i 
"WORD 111236 
“ WORD 
“ WORD i 
TS10D4: .WORD 
"WORD O 
“WORD 100045 
"WORD 3651 
FINIO: 
tSFP11: 
; TEST FDST SINGLE OPERAND MODE 0 
CLR @eTRPFLG ;CLEAR TRAP FLAG 
$200, R4 ;SETUP TO LOAD FPS 
LOFPS R4 ;SET FD=1 
MOV $TS1101,R4 ;SETUP POINTER TO DATA 
LOD (R4), ACO ;LOAD ALL ONES TO ACO 
CLRD 0 ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
MOV #TSTLOC,R4 : 
STD ACO, (R4) ;CHECK ACO FOR ALL ZEROES 
MOV $4,Ri1 sINIT COUNTER 
i$: CMP (R4)+,40 : 
BEQ 2$ ;0K GO ON 
CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 SFPP ERROR 
:NO GO TO ERROR 
2$: S08 R1,1$ SARE WE DONE 
CMP R3, 9204 ;CHECK FPS 


F16 
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: 
: 


ee 


BEBSE 
pee 


TESTS 


140132 


000010 


140054 
040200 


#s1101: . 


FINi1: 
TSFPi2: 


i$: 


2$: 
tsFP13: 
; 


100$: 





3$ 
_ 


FINi1 
177777 


CL aeT 

MOV ° 

LOFPS R3 

CLROD AC7 

STFPS R4 

STST RS 

CMP #140200 ,R4 

BEQ 1$ 

CALL @eDETFPA 
+3 

CMP #2,R5 

BEQ 2$ 

CALL SSDETFPA 

ERROR +3 


TEST FOST SOP MODE 1 


#TSF13, 004 
@STRPFLG 
#200 ,R2 

R2 


$4,R5 
8TSTLOC,R4 


#177777, CR4)+ 


R5,100$ 
OTETLOC.RO 
(R2) 

R3 
R2,@TSTLOC 
BODETFPA 


#4,R1 
CR2)+,#0 


SODETFPA 


;0K GO ON 
sDETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;NO GO TO ERROR 


Epp ; DETERMINE FLOATING POINT FAULT. 
NO GO 10 


ERROR 
;IS FEC CORRECT 


ON 
* DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;NO GO TO ERROR 


;SAVE TIMEOUT VECTOR 
NEW VECTOR 


COUNTER 
;SETUP POINTER TO TEST LOCATION 
sMOVE ALL ONES TO TEST LOCATION 
;ARE WE DONE 


;SETUP POINTER TO DATA 
; TEST INSTRUCTION 


;GET 
;WAS R2 ALTERED 
;NO GO 


On 
pp cmniDETERMINE FLOATING POINT FAULT. 
‘YES GO TO ERROR 


; COUNTER 
;CHECK LOCATION FOR 0 


;0K GO ON 
;DETERMINE FLOATING POINT FAULT. 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0200 
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: 1287 054374 
11289 054376 


SRSESEVTIITUNYS 
FEE 


11305 054434 


104003 
077107 
020327 
001403 
004737 
104003 


012637 


000167 


004737 
104003 


3$: 


100$: 


1$: 
2$: 


3$: 


4$: 


RTT 


TEST FDST SOP MODE 2 
a04,-(SP) 


MOV . 
MOV $TSF14, 004 
CLR asTRPFLG 

MOV ; 

LOFPS R2 

MOV 64,R5 

MOV éTSTLOC,R4 
MOV 9177777, (R4)+ 
SOB 100$ 

MOV éTSTLOC,R2 
CLRD  (R2)+ 

STFPS R3 

CMP R2, @TSTLOC+10 
BEQ i$ 

CALL § @@DETFPA 
ERROR +3 

MOV @TSTLOC ,R2 
MOV $4,Ri 

CMP (R2)+, #0 

BEQ 3$ 

CALL A 
ERROR +3 

S0B R1,2$ 

CHP R3. 8204 

BEQ 43 

CALL §§ @@DETFPA 
ERROR +3 

MOV (SP)+,a04 
JUMP FINI4 


3F 

;NO GO TO ERROR 
;ARE WE 
;CHECK FPS 
OK GO 


‘DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;NO GO TO ERROR 
;RESTORE VECTOR 


DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;0DD ADDRESS TRAP 
;RETURN 


;SAVE TIMEOUT VECTOR 
VECTOR 


;INIT COUNTER 
;SETUP POINTER TO TEST LOCATION 
;MOVE ALL ONES TO TEST LOCATION 
ARE WE DONE 


' ;SETUP POINTER TO DATA 
1 IEE INSTRUCTION 


, IS R2 CORRECT 
sYES GO ON 


DETERMINE FLOATING POINT FAULT. 


;FPP 
sNO GO TO ERROR 
;SETUP POINTER TO DATA 
;INIT COUNTER 
;CHECK LOCATION FOR 0 


;YES 
FLOATING POINT FAULT. 
;FPP 
3;NO GO TO ERROR 
;ARE WE DONE 
;CHECK FPS 


;0K GO ON 
DETERMINE FLOATING POINT FAULT. 


3;FPP 
s;NO GO TO ERROR 
s;RESTORE VECTOR 


$$$ 


$$$ 


$$$ 


SEQ 0201 
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SEQ 0202 


11346 054574 004737 140132 TSF14: CALL @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11347 054600 104003 ERROR +3 SFPP ERROR 
11348 ;0DD ADDRESS TRAP 
11349 954602 000006 RTT , 
1135) 054604 000260 éIN14: NOP 
11352 ; 
11355 ! 
11356 a 
11 sTEST FDST SOP MODE 3 
11358 
11359 i 
11360 054606 SFP15: 
; 
11362 054606 013746 000004 MOV ae4, -(SP) :SAVE TIMEOUT VECTOR 
11363 054612 012737 055012 000004 MOV $TSF15, 004 UP NEW VECTOR 
11364 054620 005037 140054 CLR @eTRPFLG SCLEAR TRAP FLAG 
11365 054624 012702 000200 MOV $200, R2 ; TO LOAD FPS 
11366 054630 170102 LOFPS R2 ;SET FD=1 
11367 054632 012705 000011 MOV #9. .R5 SINIT COUNTER 
11368 054656 012704 003162 MOV éTSTLOC,R4 :SETUP POINTER TO TEST LOCATION 
11369 012724 177777 100$: MOV #177777, (R4)+ ‘INIT TEST LOCATION 
11370 054646 077503 SOB 1 WE DONE 
11371 054650 012737 003174 003162 MOV #TSTLOC+12, @@TSTLOC sINIT TEST LOCATION 
11372 054656 012702 0031 MOV STSTLOC,R2 POINTER TO DATA 
11373 054662 1704 CLRD R2)+ , TEST INSTRUCTION 
11374 054664 17020 STFPS R3 
11375 054666 020227 003164 CMP R2, @TSTLOC+2 IS R2 CORRECT 
11376 054672 001403 BEQ i$ ;YES GO 
11377 054674 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11378 054700 104003 ERROR +3 FPP 
11379 ;NO GO TO ERROR 
11380 054702 012702 003162 1$: MOV #TSTLOC,R2 ;SETUP POINTER TO DATA 
11381 054706 7 003174 CMP (R2)+, @TSTLOC+12 ‘TS DATA CORRECT 
11382 054712 001403 BEQ 2$ sYES GO 
11383 054714 004737 140132 CALL  @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11384 054720 104003 ERROR +3 .FPP ERROR 
11385 ;NO GO TO ERROR 
11386 054722 012701 2$: MOV 04,R1 sINIT COUNTER 
11387 054726 022227 177777 3$: CMP (R2)«, #177777 :IS LOCATION ALL ONES 
11388 001403 BEQ ; 
11389 054734 004737 140132 CALL § @@DETFPA FLOATING POINT FAULT. $$$ 
11390 054740 104003 ERROR +3 SFPP ERROR 
i334 :NO GO TO ERROR 
11393 054742 077107 43: S08 R1,3$ ;ARE WE DONE 
11394 054744 012701 000004 MOV 84.R1 sINIT COUNTER 
11395 054750 022227 000000 S$: CMP (R2)+, 40 ;IS LOCATION 0 
ii 054754 001403 BEQ 6$ ;YES GO ON 
il 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11398 054762 104003 ERROR +3 
11390 ;NO GO TO ERROR 
114. 764 077107 6$: S08 R1,5$ SARE WE DONE 
lisvi 054766 020327 000204 CMP R3. ; CHECK 
11402 054772 001403 BEQ 73 ;0K GO ON 
11403 054774 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
104003 ERROR +3 epp errdre 





116 
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FLOATING POINT 


TESTS 


000004 
000010 
140132 





(SP )+, a4 
FINIS 


@eDETFFA 


Page 14-184 


;NO GO TO ERROR 
;RESTORE VECTOR 


;DETERMINE FLOATING POINT FAULT. 


STEST FDOST SOP 


isFPi6: 


100$: 


ur 
“we 


3$: 
4$: 


5$: 


6$: 


CALL 


33 GPEGe 998928 9°8 


$200 ,R2 

#8. .R5 
STSTLOC,R4 
#177777, (R4)+ 
R5,100 
#TSTLOC+10,R2 
-(R2) 


R3 
R2,@TSTLOC 
1$ 


_" 


#4,R1 


(R2)+, 00 
_ 


Ri,2$ 

#4,R1 
(R2)+,#177777 
operren 


R1,4$ 
R 


aeDETFPA 
+3 


(SP)+,a04 
FIN16 


: SAVE TIMEOUT VECTOR 
UP NEW 


COUNT 

;sSETUP POINTER TO TEST LOCATION 
SINIT TEST LOCATION 

;ARE WE DONE 


SETUP POINTER TO DATA 
; TEST INSTRUCTION 


, IS R2 CORRECT 
sYES GO ON 


DETERMINE FLOATING POINT FAULT. 


3;FPP 

;NO GO TO ERROR 
;INIT COUNTER 
;1S LOCATION 0 


ON 
‘DETERMINE FLOATING POINT FAULT. 


;FPP 
;NO GO TO ERROR 
;ARE WE DONE 
;INIT COUNTER 
iTS LOC . ee UNCHANGED 
‘ 


DETERMINE FLOATING POINT FAULT. 


; OK ON 
; DETERMINE FLOATING POINT FAULT. 


;FPP 
NO GO TO ERROR 
;sRESTORE VECTOR 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0203 
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11464 055202 
11465 055206 


1 
11476 





004737 
104003 


000006 
000240 


012701 
02222 


TSF 16: 


STEST FDST SOP 


iSFP17: 


100$: 


1$: 


Wl 
we 


4$: 
5$: 


6$: 


7$: 


o 


paageag 


w 
= 
7" 
v 
w 


89 geBGee 98s a qe 


2 


= DETERMINE FLOATING POINT FAULT. $$$ 


‘ODD ADDRESS TRAP 
;RETURN 


MODE 5 
a4, -(SP) ;SAVE TIMEOUT VECTOR 
$TSF17,084 ;SETUP NEW VECTOR 
aeTRPFLG ;CLEAR TRAP FLAG 
$200 ,R2 ;SETUP TO LOAD FPS 
;SET FD=1 
#9. RS ;INIT COUNTER 
éTSTLOC ,R4 ;SETUP POINTER TO TEST LOCATION 
$177777,(R4)+ ‘INIT TEST LOCATION 
1 SARE WE DONE 
8TSTLOC+12, @@TSTLOC ;INIT TEST LOCATION 
STSTLOC+2,R2 :SETUP POINTER TO DATA 
a-(R2) , TEST INSTRUCTION 
R3 ; FPS 
R2, #TSTLOC IS R2 CORRECT 
1$ ;YES GO ON 
a0E TF PA re DETERMINE FLOATING POINT FAULT. 
‘NO GO TO ERROR 
cR2)+, @TSTLOC+12° Js DATA CORRECT 
;YES GO 
SQDETFPA - DETERMINE FLOATING POINT FAULT. 
+ ; 
;NO GO TO ERROR 
#4,R1 ; COUNTER 
CR2)*,@177777 iIS LOCATION ALL ONES 
aQ0ETFP A aes ‘DETERMINE FLOATING POINT FAULT. 
‘NO GO TO ERROR 
R1,3$ ;ARE WE DONE 
$4-R1 NINIT COUNTER 
(R2)+, 40 1S LOCATION 0 
; 
OQDETFPA iat DETERMINE FLOATING POINT FAULT. 
+ i 
;NO GO TO ERROR 
R1,5$ SARE WE DONE 
R3, 9204 ;CHECK FPS 
73 ;0K GO ON 
@eDETFPA ‘DETERMINE FLOATING POINT FAULT. 
.3 SFPP ERROR 
‘NO GO TO ERROR 
(SP)+,a04 ;RESTORE VECTOR 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


K16 


COKDAFO KDJ11-8 CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:30 Page 14-186 


FLOATING POINT 


11523 055410 
11525 055414 
526 055420 


11554 055506 
11555 055510 
stan 055514 


11580 
11581 055612 


TESTS 
000167 


004737 
104003 


000006 
000240 


000010 
140132 


140054 
000004 
055612 
000200 
000010 
003162 
177777 
003163 
000007 
003165 
140132 


003162 
000004 
177777 
140132 


isF17: 





FINi7 
= 





;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
;0DD ADDRESS TRAP 
;RETURN 


;TEST FOST SOP 


; 
TSFP20: 


100$: 


i$: MOV 
2$: 


3$: S08 
4$: 


5$: SOB 


#8. ,R5 
#TSTLOC,.R4 
#177777, (R4)+ 
R5,100$ 
STSTLOC+1,R2 
7(R2) 

R3 
R2,#TSTLOC+1 


_ 


#TSTLOC,R2 
(R2)+, #177777 
3$ 


_— 


eT! 
(R2)+, 90 
S$ 


;CLEAR TRAP FLAG 
;SAVE TIMEOUT VECTOR 
;SETUP NEW VECTOR 
;SETUP TO LOAD FPS 
;SET FD=1 
; INIT COUNTER 
;SETUP POINTER TO TEST LOCATION 
;INIT TEST LOCATION 
;ARE WE DONE 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 


IS R2 CORRECT 
;YES GO 


;DETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
:NO GO TO ERROR 
:SETUP POINTER TO DATA 
;INIT COUNTER 
IS DATA CORRECT 


;YES GO ON 
sDETERMINE FLOATING POINT FAULT. 


;FPP 

;NO GO TO ERROR 
; WE DONE 
;INIT COUNTER 
31S DATA CORRECT 


;YES GO ON 
DETERMINE FLOATING POINT FAULT. 


;FPP 

sNO GO TO ERROR 
;ARE WE DONE 
31S FPS CORRECT 


DETERMINE FLOATING POINT FAULT. 


FPP 
;NO GO TO ERROR 
;RESTORE VECTOR 


;DETERMINE FLOATING POINT FAULT. 


$$$ 


$$$ 


$$$ 


$$$ 


$33 


SEQ 0205 
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FLOATING POINT 


11612 14 
11613 055720 
11614 

11615 055722 


TESTS 
104003 


140054 
000004 
056032 
000200 
000010 
003162 
177777 
003162 
003165 
000005 
003165 
140132 


003162 
000004 
000000 
140132 


003162 
140132 


000003 
177777 
140132 


140132 
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003172 





:TEST FDST SOP 


isFpat: 


100$: 


1$: 
2$: 


3$: 


4$: 
5$: 


6$: 


7$: 


MOV 


BE 
CALL 
ERROR 


Page 14-187 
+3 ;FPP ERROR 
;0DD ADDRESS TRAP 
;RETURN 
MODE 7 
aeTRPFLG ;CLEAR TRAP FLAG 
-(SP ;SAVE TIMEOUT VECTOR 
$TSF21,a04 ;SETUP NEW VECTOR 
wR s SETUP TO LOAD FPS 
:SET FD=1 
. RS ; INIT COUNTER 
#TSTLOC.R4 ;SETUP POINTER TO TEST LOCATION 
3177777.(R4)+*  ;INIT TEST LOCATION 
R5, 100 ;ARE WE DONE 
#TSTLOC, @#TSTLOC+10 sINIT TEST LOCATION 
#TSTLOC+3,R2 UP POINTER TO DATA 
ao(R2) ; TEST INSTRUCTION 
R2, 8TSTLOC+3 sIS R2 CORRECT 
;YES GO ON 
aSDETFPA DETERMINE FLOATING POINT FAULT. 
+3 ;F PP ERROR 
:NO GO TO ERROR 
#TSTLOC,R2 ;SETUP POINTER TO DATA 
#4,R ;INIT C 
(R2)+, 90 :1S DATA SGORRECT 
; 
aaDETFPA “DETERMINE FLOATING POINT FAULT. 
3 :FPP ERROR 
:NO GO TO ERROR 
R1,2¢ SARE WE DONE 
(R2)+,#TSTLOC :IS DATA CORRECT 
;YES GO ON 
OgDETFPA in ‘DETERMINE FLOATING POINT FAULT. 
+ 
‘NO GO TO ERROR 
$3,R1 ;INIT COUNTER 
(R2)+, 4177777 ;1S DATA sgORRECT 
: 
@SDETFPA DETERMINE FLOATING POINT FAULT. 
+3 SFPP ERROR 
;NO GO TO ERROR 
R1,5$ ;ARE WE 
R3. 9204 ;CHECK FPS 
73 ;0K GO ON 
900E TFPA a ‘DETERMINE FLOATING POINT FAULT. 
+ 
‘NO GO TO ERROR 
(SP)+,a04 ;RESTORE VECTOR 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0206 
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FLOATING POINT 


11678 056146 
11679 1a 
11680 1 


be be bee 
-— 
~ 
oS 


TESTS 
000167 


004737 
104003 


000006 
000240 


000010 
140132 


003172 
003162 


003162 
000004 
vy0C000 
140132 


000004 
000010 
140132 


003162 


UMP 
tSF21: CALL 
RTT 
FIN21: NOP 
; 
‘TEST FDST SOP 
isFP22: 
CLR 
MOV 
MOV 
MOV 
LDFPS 
MOV 
MOV 
100$: MOV 
SOB 
MOV 
CLRD 
STFPS 
MOV 
MOV 
1$: CMP 
BEQ 
CALL 
ERROR 
2s: SOB 
MOV 
3$: CMP 
BEQ 
CALL 
ERROR 
4$: SOB 
CMP 
BEQ 
CALL 
ERROR 
5$: MOV 
UMP 
{SF22: 


CALL 
ERROR 


FIN21 
ae FPA 


g177777 *(R4)+ 
#TSTLOC+10,@@TSTLOC 
aeTSTLOC 


R3 :GET FPS 

STSTLOC,R2 ;SETUP POINTER TO DATA 

$4,R1 ;INIT COUNTER 

(R2)+, 90 :IS DATA CORRECT 

2$ sYES GO ON 

SODETFPA :DETERMINE FLOATING POINT FAULT. 

3 ;FPP ERROR 
;NO GO TO ERROR 

R1,1$ ;ARE WE DONE 

$4.R1 ;INIT COUNTER 

(R2)+, 8177777 :IS DATA CORRECT 

4$ ;YES GO ON 

BgDETFPA DETERMINE FLOATING POINT FAULT. 
:NO GO TO ERROR 

R1,3$ ;ARE WE 

RS, ;CHECK FPS 

5$ ;0K GO ON 

QODETFPA “DETERMINE FLOATING POINT FAULT. 

+3 ;FPP ERROR 

, :NO GO TO ERROR 

(SP)+, a4 sRESTORE VECTOR 

FIN22 

OQDETFPA DETERMINE FLOATING POINT FAULT. 


;FPP E 





DETERMINE FLOATING POINT FAULT. $$$ 
;0DD ADDRESS TRAP 
; RETURN 


;CLEAR_TRAP FLAG 
;SAVE TIME OUT VECTOR 
VECTOR 


OUNTER 
;SETUP POINTER TO TEST LOCATION 
;INIT TEST LOCATION 
;ARE WE DONE 

; INIT TEST LOCATION 
TEST INSTRU TION 


$3$ 


$$$ 


$$$ 


$$$ 





| EA eg LE I ET I ET IOS ET TY ST? aa 


BL 
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11732 


140054 
000004 
056352 
000200 


003162 
177777 
124664 


000004 
000010 
140132 





SEQ 0208 


:TEST FDST SOP MODE 6 GR7 


isFp23: 


100$: 


1$: 


2$: 


# 
R 


asTRPFLG 
ata, -(SP) 
#TSF23, a04 

R2 

AR 

#TSTLOC,R4 
$177777,(R4)+ 
R $ 
TStLoc 


#4,R 
#TSTLOC ,R2 
R #0 


;CLEAR TRAP FLAG 
s SAVE TIMEOUT VECTOR 
UP NEW VECTOR 
; SETUP 10 LOAD FPS 
OUNTER 
;SETUP POINTER TO TEST LOCATION 
;INIT TEST LOCATION 
;ARE WE DONE 
; TEST INSTRUCTION 
{GET FPS 
;INIT COUNTER 
;SETUP POINTER TO DATA 
‘e DATA CORRECT 


S GO ON 
; DETERMINE FLOATING POINT FAULT. $$$ 


; OK ON 
DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
'NO GO TO ERROR 
sRESTORE VECTOR 
sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;0DD ADDRESS TRAP 


TEST FDST SOP 


leet 
: 


100$: 


@TSTLOC,R4 
6177777, (R4)+ 
00$ 


;CLEAR TRAP FLAG 
py TIMEOUT VECTOR 
VECTOR 
:SETUP TO LOAD FPS 
;SET FD=1 
; INIT COUNTER 
;SETUP TEST LOCATION POINTER 
;INIT TEST LOCATION 
;ARE WE DONE 
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FLOATING POINT 


11761 056426 


TESTS 
012737 


003162 003172 MOV 
124532 
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CLRD 
STFPS 
003162 MOV 
000004 MOV 
000000 1$: CMP 
BEQ 
140132 CALL 
ERROR 
2$: SOB 
003162 CMP 
BEQ 
140132 CALL 
000003 3$; MOV 
177777 4s: CMP 
BEQ 
140132 CALL 
5$: SOB 
000204 CMP 
BEQ 
140132 CALL 
ERROR 
000004 6$ MOV 
000010 JMP 
140132 TSF24: CALL 
ERR 
RTT 
‘ 
FIN24: NOP 
rs 
:TEST CLRF 
isFp2s: 
140054 ' CLR 
CLR 
LOFPS 
000004 MOV 
003162 MOV 
177777 100$: MOV 
SOB 
003162 MOV 
CLRF 
STFPS 
003166 CMP 
BEQ 


STSTLOC, @#TSTLOC+10 ;INIT TEST LOCATION 
aTSTLOC+10 ; TEST INSTRUCTION 
R3 GET FP 
#TSTLOC,R2 ;SETUP POINTER TO DATA 
$4,R1 ; INIT COUNTER 
(R2)+,#0 is DATA CORRECT 
aSDETFPA ;DETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 

;NO GO TO ERROR 
Ri,1$ ;ARE WE DONE 
(R2)+ , @TSTLOC :15 DATA CORRECT 
aSDETFPA ‘DETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 

;NO GO TO ERROR 
#3,R1 ;INIT COUNTER 
CR2)+ #177777 :1S DATA CORRECT 
agve TFPA : ;DETERMINE FLOATING POINT FAULT. 
+ : 

:NO GO TO ERROR 
R1,4$ ;ARE WE DONE 
3 ® ; CHECK FPS 
6$ ;0K GO ON 
BEDE TFPA an “DETERMINE FLOATING POINT FAULT. 
oo 

:NO GO TO ERROR 
(SP)+,an4 ;RESTORE VECTOR 
FIN24 
agve TEPA = “DETERMINE FLOATING POINT FAULT. 
* ; 

;00D ADDRESS TRAP 

; 

aeTRPFLG ;CLEAR TRAP FLAG 
R2 ;SETUP TO LOAD FPS 
Ro ;SET FD=0 
$4 s INIT COUNTER 
#TSTLOC,R4 -SETUP POINTER TO TEST LOCATION 
#177777, (R4)+ INIT TEST LOCATION 
R5,1 ; DONE 
STSTLOC,R2 ;SETUP POINTER TO DATA 
(R2)+ ; TEST INSTRUCTION 
4 ;GET FPS 
R2,#TSTLOC+4 so 44° R2 CORRECT 
1$ ; YE 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0209 
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FLOATING POINT 


11852 056722 
11853 

11854 056722 
11855 056726 
11856 730 
11857 056732 
11858 736 
11859 056740 
11860 Ad 
11861 056746 
11862 752 


11878 057032 


TESTS 


140132 
003162 
000002 


140132 


000002 
177777 
140132 


000004 
140132 


1$: 
2s: 


3$: 
4$: 


5$: 


OeDETFPA 
+3 
#TSTLOC,R2 
#2,R1 
(R2)+, #0 
3$ 

x TFPA 


R1,2$ 


#2,R1 
CR2)+, #177777 


_ 


R1,4$ 
R3 


FPP ERROR 


SEQ 0210 


;DETERMINE FLOATING POINT FAULT. $$$ 


;NO GO TO ERROR 


ao POINTER TO DATA 


;INIT C 

:1S DATA CORRECT 

;YES ON 

;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


;NO GO TO ERROR 
;ARE WE 


; INIT COUNTER 

;1S DATA CORRECT 

;YES GO 
_ sDETERMINE FLOATING POINT FAULT. $$$ 
;NO GO TO ERROR 

;ARE WE DONE 

; CHECK FPS 

;0K GO ON 

-DETERMINE FLOATING POINT FAULT. $$$ 


SFPP ERROR 
;NO GO TO ERROR 


:TEST TSTF AND 


isFP26: 


1$: 


2$: 


#TS2601 ,R4 
#TS26D4 


PC, CHE 
TS26D2 
R3 


;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 


;SET FD=0 
; TEST INSTSUCTION 
GET FPS 


;CHECK FPS 
;0K GO ON 
DETERMINE FLOATING POINT FAULT. $$$ 


‘NO 0 GO TO ERROR 
uke POINTERS TO DATA 


; CHECK IF DATA_IS CORRECT 
; TEST INSTRUCTION 


;FPP 
‘NO GO TO 


ON 
: DETERMINE FLOATING POINT FAULT. $$$ 


ERROR 
weit POINTERS TO DATA 


CHECK IF DATA_IS CORRECT 
; Lm INSTRUCTION 


;GET 





i a EK — 
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SEQ 0211 


11879 057034 020327 000000 CMP R3, #0 , : CHECK FPS 
11880 057040 001403 BEQ 33 
11881 057042 004737 140132 CALL § a@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
11882 057046 104003 ERROR +3 PP ERR 
11883 ND GO TO ERROR 
884 057050 012704 057256 3$: MOV #TS26D2,R4 iSETUP POINTERS TO DATA 
11885 057054 012702 057306 MOV #TS2605,R2 
11886 057060 004767 000130 JSR PC, CHEC26 ‘CHECK IF DATA IS CORRECT 
11887 057064 012704 000200 MOV #200 ,R4 ;SETUP TO LOAD FPS 
11888 057070 170104 LDFPS R4 SET FD=1 
11889 057072 170537 057236 TSTD  a#TS26D0 ; TEST INSTRUCTION 
11890 057076 170203 STFPS R3 SGET FPS 
11891 057100 020327 000204 CMP R3, #204 ;CHECK FPS 
11892 057104 001403 BEQ ;0K GO ON 
11893 057106 004737 140132 CALL § @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
11894 057112 104003 ERRGR +3 PP ERROR 
11895 1g GO TO ERROR 
118% 057114 012704 057236 4$: MOV #TS26D0,R4 ;SETUP POINTERS TO DATA 
11897 057120 012702 057266 MOV $TS26D3,R2 
11898 057124 004767 000064 JSR PC, CHEC26 ‘CHECK IF DATA IS CORRECT 
11899 057130 170567 000112 TSTD  TS26D1 ; TEST INSTRUCTION 
11900 057134 170203 STFPS R3 GET FPS 
11901 057136 020327 000210 CMP R3,4210 ;CHECK FPS 
11902 057142 001403 BEQ S$ ;0K GO ON 
11903 057144 004737 140132 CALL #§§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11904 057150 104003 ERROR +3 FPP 
11905 ‘NO GO TO ERROR 
11906 057152 012704 057246 S$: MOV $TS2601,R4 ;SETUP POINTERS TO DATA 
11907 057156 012702 057276 MOV #TS26D4,R2 
004767 000026 JSR PC, CHEC26 ‘CHECK IF DATA IS CORRECT 
11909 057166 170567 000064 TSTD  TS26D2 ; TEST INSTRUCTION 
11910 057172 170203 STFPS R3 GET FPS 
11911 057174 020327 000200 CMP R3, #200 "CHECK FPS 
11912 057200 001403 BEQ 63 ;0K GO ON 
11913 057202 737 140132 CALL § @@DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11914 057206 104003 ERROR +3 ;FPP ERROR 
11915 :NO GO TO ERROR 
11916 057210 6$: 
11917 057210 000167 000102 JUMP FIN26 
11919 057214 012701 000004 CHEC26: MOV #4,R1 ;INIT COUNTER 
11920 057220 022422 i$: CMP (R4)+,(R2)+ IS DATA CORRECT 
11921 (57222 001403 BEQ 2$ ;YES GO ON 
11922 057224 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
11923 057230 104003 ERROR +3 ;FPP 
11924 ;NO GO TO ERROR 
11925 057232 077106 2$: SOB R1,i$ ;ARE WE DONE 
11986 057234 000207 RTS PC ; RETURN 
11928 057236 0001 52600 177 
240 177777 177777 
11930 057242 177777 177777 


7777 
ete 057246 177777 TS2601: 


: 

8 

. 
s5885585 


11934 252 
11935 057254 000000 


el ————— OO 





F 1 
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FLOATING POINT 


11936 057256 
11937 057260 
11938 057262 
11939 057264 
11940 057266 
11941 057270 


11964 057324 
11965 057326 
11966 057330 
11967 057334 
11968 057340 


11978 

11979 057374 
11980 057400 
11981 057404 
11982 057410 
11983 057412 
11984 057416 
11985 


11990 ss 
11991 057436 
11992 057442 


11993 
11994 057444 


TESTS 


TS26D2: .WORD 
. WORD 
. WORD 
. WORD 
TS26D3: .WORD 
. WORD 
. WORD 
. WORD 
TS26D4: .WORD 
. WORD 
. WORD 
. WORD 
TS26D5: .WORD 
. WORD 
. WORD 
. WORD 
FIN26: NOP 
;TEST ABSF 
TSFP27: 
CLR 
CLR 
LDOFPS 
MOV 
MOV 
100$: MOV 
SOB 
MOV 
ABSF 
STFPS 
CMP 
BEQ 
CALL 
ERROR 
1$: MOV 
JSR 
CMP 
BEQ 
CALL 
ERROR 
2$: MOV 
SF 
STFPS 
CMP 
BEQ 
CALL 
ERROR 
3$: MOV 


77777 


aeTRPFLG 
RS 


#12. ,R1 
#TSTLOC,R4 


#TS27D3 ,R2 
PC, CHEC27 
R3,#0 

2$ 
BeDETFPA 
+3 


#TSTLOC+10,R5 
CR5S)+ 


R3 
RS, #TSTLOC+14 
—_— 


#TSTLOC+10,R5 


;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 


;SET FD= 


;INIT COUNTER 


; SETUP 
; TEST INSTRUCT 


; 
;YES GO ON 


eee DETERMINE FLOATING POINT FAULT. $$$ 
NO GO TO ERROR 


;SETUP POINTER 
;CHECK IF DATA 
;CHECK FPS 


OK GO ON 

= ‘DETERMINE FLOATING POINT FAULT. $$$ 

:NO GO TO ERROR 
; SETUP 

, TEST INSTRUCTI 


TO TEST VALUE 
TION 


POINTER TO DATA 
ION 


TO DAT 


I 


A 
S CORRECT 


POINTER TO DATA 


IS RS CORRECT 





SEQ 0212 


POINTER TO TEST LOCATION 
; SETUP 
;INIT TEST LOCA 
WE DONE 


———————— i 
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FLOATING POINT TESTS 


SEQ 0213 


TS27D5: 


11995 057450 012702 057640 MOV 8TS27D4,R2 
11996 057454 004767 000076 JSR PC, CHEC27 ‘CHECK IF DATA IS CORRECT 
11997 057460 020327 000000 CMP R3: #0 ;CHECK FPS 
11998 057464 001403 BEQ 4$ ; ON 
11999 057466 004737 140132 CALL § @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12000 057472 104003 ERROR +3 ;FPP ERROR 
12001 :NO GO TO ERROR 
12002 057474 012705 003162 4s: MOV #TSTLOC,RS ;SETUP POINTER TO DATA 
12003 057500 170665 000020 ABSF  20(R5) ; TEST INSTRUCTION 
12004 057504 170203 STFPS R3 -GET FPS 
12005 057506 020527 003162 CMP R5, #TSTLOC sIS RS CORRECT 
12006 057512 001403 BEQ 5 ;YES GO ON 
12007 057514 004737 140132 CALL § @#DETFPA ADE TERMINE FLOATING POINT FAULT. $$$ 
12008 057520 104003 ERROR +3 FPP ERR 
12009 ;NO GO TO ERROR 
12010 057522 012705 003202 S$: MOV #TSTLOC+20,R5 ;SETUP POINTERS TO DATA 
12011 057526 012702 057650 MOV #TS27D5,R2 
12012 057532 004767 000020 JSR PC, CHEC27 ;CHECK IF DATA IS CORRECT 
057536 327 000004 CMP R3, 04 ;CHECK FPS 
12014 057542 001403 BEQ 6$ ;0K GO ON 
12015 057544 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12016 057550 104003 ERROR +3 FPP ERR 
12017 :NO GO TO ERROR 
12018 057552 6$: 
12019 057552 000167 000102 JUMP FIN27 
12021 057556 012701 000004 CHEC27: MOV #4,R1 ;INIT COUNTER 
057562 022522 i$: CMP (R5)+,(R2)+ -IS DATA CORRECT 
12023 057564 001403 Q 2$ ;YES GO ON 
057566 004737 140132 CALL § @@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12025 057572 104003 +3 :FPP ERROR 
12026 :NO GO TO ERROR 
12027 057574 077106 2$: SOB R1,1$ ;ARE WE DONE 
12028 057576 000207 RTS pC ; RETURN 
057600 177777 TS27D0: .WORD 177777 
12031 057602 177777 “WORD 177777 
604 177777 "WORD 177777 
12033 057606 177777 "WORD 177777 
12034 057610 000377 TS27D1: .WORD 377 
12035 057612 175436 "WORD 175436 
12036 057614 136477 "WORD 136477 
057616 000001 "WORD 1 
057620 000177 TS27D2: .WORD 177 
12039 057622 175436 “WORD 175436 
057624 136477 "WORD 136477 
12041 057626 000001 “ WORD 
057 077777 TS27D3: .WORD 77777 
12043 057632 177777 "WORD 177777 
12044 057634 1 "WORD 177777 
12045 057636 177777 "WORD 177777 
057640 000377 TS27D4: .WORD 377 
“WORD 
“WORD 
“WORD 
.WORD 
“ WORD 


12050 000000 
12051 057652 000000 
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FLOATING POINT 
12052 057654 
12053 057656 
ies 057660 
12058 
12059 
12060 
12061 
12062 
12063 057662 
12064 
12065 057662 


12066 057666 
12067 057672 


12109 
12110 060064 


TESTS 
136477 
000001 
000240 


136477 
1 


iSFP30: 


100$: 


i$: 


2$: 


3$: 


4$: 


;TEST ABSD 


aeTRPFLG 
#200 ,,RS 
RS 


#12. ,R1 
#TSTLOC ,R4 
30D0 ,R3 


R3 

RS, #TSTLOC 
aeDETFPA 
+3 


#TS30D3,R2 
30 


+3 
#TSTLOC+10,R5 
CR5)+ 


R3 

RS, #TSTLOC+20 
QeDETFPA 

+3 


#TSTLOC+10,R5 

#TS30D4 ,R2 

PC, CHEC30 
#200 


4$ 
QeDETFPA 
+3 
#TSTLOC,RS 
20(R5) 


R3 
RS, #TSTLOC 
rn 


;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=1 


;INIT COUNTER 


SEQ 0214 


POINTER TO TEST LOCATION 


; SETUP 
;SETUP POINTER TO TEST VALUE 
sINIT TEST LOCATION 
WE DONE 


;SETUP POINTER TO DATA 
4 TEE INSTRUCTION 


IS RS CORRECT 
;YES GO ON 


;FPP = 

;NO GO TO ERROR 
;SETUP POINTER TO DATA 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 

;0K GO 


DETERMINE FLOATING POINT FAULT. 


ON 
DETERMINE FLOATING POINT FAULT. 


FPP 
;NO GO TO ERROR 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 


IS RS CORRECT 
sYES GO ON 


DETERMINE FLOATING POINT FAULT. 


FPP 
;NO GO TO ERROR 
;SETUP POINTERS TO DATA 


CHECK IF DATA IS CORRECT 
;CHECK FPS 


;0K GO ON 
DETERMINE FLOATING POINT FAULT. 


FPP 
;NO GO TO ERROR 
;SETUP_ POINTER TO DATA 
; TEST INSTRUCTION 


.IS RS CORRECT 
;YES GO 


DE 
;FPP ERROR 


TERMINE FLOATING POINT FAULT. 


$$$ 


$33 


$$$ 


$$$ 


$$$ 
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SEQ 0215 


;NO GO TO ERROR 


12112 060066 012705 003202 S$: MOV #TSTLOC+20,R5 ;SETUP POINTERS TO DATA 
12113 060072 012702 060214 MOV #TS30D05,R2 ; 
12114 060076 004767 000020 JSR PC, CHEC30O SCHECK IF DATA IS CORRECT 
12115 060102 020327 000204 CMP R3. #204 ;CHECK FPS 
12116 060106 001403 BEQ ;0K GO ON 
12117 060110 004737 140132 CALL §§ @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
12118 060114 104003 ERROR +3 ;FPP ERROR 
12119 ;NO GO TO ERROR 
12120 060116 6$: 
12121 060116 000167 000102 JUMP FIN30 
12123 960122 012701 000004 CHEC30: MOV #4,R1 ;INIT COUNTER 
12124 060126 022522 I$: CMP (R5)+,(R2)+ IS DATA CORRECT 
12125 060130 001403 BEQ sYES 
132 004737 140132 CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13127 060136 104003 ERROR +3 ;FPP ERROR 
12128 ! ;NO GO TO ERROR 
12129 060140 077106 2$: SUB Ri,1$ SARE WE DONE 
12130 060142 000207 RTS PC ; RETURN 
12132 060144 177777 TS30D0: .WORD 7 
12133 060146 177777 WORD 177777 
12134 060150 1 WORD 177777 
12135 060152 177777 "WORD 177777 
12136 060154 000377 TS30D1: WORD 377 
12137 060156 175436 WORD 175436 
12138 060160 136477 WORD 136477 
12139 060162 000001 "WORD 1 
12140 060164 000177 TS30D2: |WORD 177 
12141 060166 175436 WORD 175436 
12142 060170 136477 "WORD 136477 
12143 060172 000001 "WORD 1 
060174 077777 TS30D3: :WORD 77777 

12145 060176 177777 "WORD 177777 
12146 060200 177777 WORD 177777 
12147 060202 177777 WORD 177777 
12148 060204 000377 TS30D4: :WORD 377 
12149 060206 175436 WORD 175436 
12150 060210 136477 WORD 136477 
12151 060212 000001 WORD 1 
12152 060214 000000 TS30D5: :WORD 0 
12153 060216 000000 WORD 0 

154 060220 000000 WORD 0 
12155 060222 000000 WORD 0 

156 060224 000240 FIN3O: NOP 
12160 : 
12161 OE Se ae Pee OC 
12162 :TEST FDST SOP MODE 2 GR7 
12164 06022 TSFP31: 
12166 060226 005037 140054 CLR aeTRPFLG ;CLEAR TRAP FLAG 
12167 060232 013746 000004 MOV aga, -(SP) ;SAVE TIMEOUT VECTOR 
12168 060236 012737 060354 000004 MOV #TSF31,004 ; SETUP VECTOR 
12169 060244 012702 000200 MOV #200 ,R2 :SETUP TO LOAD FPS 





Ji 
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FLOATING POINT 


TESTS 


000004 
000010 
140132 


TSD31: 


1$: 


WM 
aw 


Re 
#5 


R3 
—_— 
a#DETFPA 
+3 


#TSD31+2,R2 
(R2)+, 

2$ 

AeDETFPA 

+3 


#3,R1 
CR2)+ , #240 
aYDETFPA 
+3 


:SET FD=1 
; TEST INSTRUCTION 


;GET FPS 
Eo FPS 


;FPP E 
NO GO TO ERROR 

;SETUP POINTER TO DATA 
;1S DATA CORRECT 


YES GO ON 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;NO GO TO ERROR 


; INIT COUNTER 
:1S DATA CORRECT 


;YES GO ON 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;NO GO TO ERROR 
;ARE WE DONE 
;RESTORE VECTOR 


DETERMINE FLOATING POINT FAULT. 


;FPP 
; ODD ADDRESS TRAP 
;RETURN 


; TEST 


TSFP32: 


100$: 


NEGF 


O¢TRPFLG 
RS 


$12.,R1 
$TSTLOC,R4 
#TS32D0, R3 
(R3)+,(R4)+ 
1,100$ 
STLOC 


#TSTLOC, RS 
#TS$3203 
PC, eetio 
RS. 40 


DAD 
W 


1$ 
O#DETFPA 


;CLEAR TRAP FLAG 
ETF Li LOAD FPS 


SINIT COUNTER 


SETUP 
,SETUP POINTER TO TEST VALUE 
HINIT TEST LOCATION 


TEST INSTRUCTION 
,SETUP POINTERS TO DATA 
' CHECK TE DATA IS CORRECT 
CHECK FPS 


‘YES GO ON 


POINTER TO TEST LOCATION 


;DETERMINE FLOATING POINT FAULT. $$$ 


OK GO ON 
oeiet DETERMINE FLOATING POINT FAULT. 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0216 





K1 
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FLOATING POINT 


Son 


12238 060504 
12239 060510 
12240 
12241 060512 
12242 


TESTS 
104003 
170767 


170767 
170203 


000167 


1$: 


2s: 


3$: 


éHEC32: 
1$: 


2$: 


+s3200: 


TS32D1: 


TS32D3: 
TS32D4: 


TS32D5: 


x 
= 
w 


@ e892 9 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


+3 

TSTLOC+10 
#TSTLOC+10,R5 
#TS32D4 ,R2 

PC CHECS2 


2$ 
a#DETFPA 
+3 


TSTLOC+20 
#TSTLOC+20,R5 
$TS$32D5,R2 
PC, CHEC32 
R3.o4 

33 

@QDETFPA 


FIN3S2 


#4,R1 
(R5)+,(R2)+ 


;FPP ERROR 
;NO GO TO ERROR 
; TEST INSTRUCTION 


;GET FPS 
;SETUP POINTERS TO DATA 


' CHECK IF DATA IS CORRECT 
;CHECK FPS 


; OK ON 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;NO GO TO ERROR 
; TEST INSTRUCTION 


;GET FPS 
;SETUP POINTERS TO DATA 


; CHECK IF DATA IS CORRECT 
;CHECK FPS 


;0K GO ON 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


;INIT COUNTER 
;1S DATA CORRECT 


;YES GO ON 
DETERMINE FLOATING POINT FAULT. 


;FPP 
;NO GO TO ERROR 
;ARE WE DONE 


SEQ 0217 


$$$ 


$$$ 


$$$ 





Li 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:30 Page 14-199 


FLOATING POINT 


12286 060654 
isons 060656 


le 742 
iat, 060746 


12343 
12344 061066 





TESTS 


177007 
000240 


. WORD 
NOP 


177007 


; TEST 


TSFP33: 


100$: 


1$: 


2$: 


3$: 


éHEC33: 
1$: 


2$: 


NEGD 


i 
BEDETFPA 
+3 


aa #10 
#TSTLOC+10,R5 
$TS33D4 ,R2 
PC, CHEC33 
R3,#210 
BODETFPA 

+3 


TSTLOC+20 
#TSTLOC+20,R5 
#753305 ,R2 
PC, CHEC33 

R3, #204 


3$ 
aeDETFPA 
+3 


FIN33~ 


$4,R1 
(R5)+,(R2)+ 
_ 


R1,1$ 


;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=1 

; INIT COUNTER 


SETUP 
,SETUP POINTER TO TEST VALUE 
‘INIT TEST LOCATION 


ARE WE DONE 
; TEST INSTRUCTION 
SETUP POINTERS TO DATA 


‘ CHECK IF DATA IS CORRECT 
;CHECK FPS 


POINTER TO TEST LOCATION 


;0K GO 
DETERMINE FLOATING POINT FAULT. 


;FPP 

;NO GO TO ERROR 
; TEST INSTRUCTION 
;SETUP POINTERS TO DATA 


‘ CHECK IF DATA IS CORRECT 
;CHECK FPS 


;0K GO ON 
DETERMINE FLOATING POINT FAULT. 


;FPP 
;NO GO TO ERROR 
; TEST INSTRUCTION 
;GET FPS 
;SETUP POINTERS TO DATA 


‘ CHECK IF DATA IS CORRECT 
;CHECK FPS 


;0K GO 
DETERMINE FLOATING POINT FAULT. 


;FPP 
;NO GO TO ERROR 


;INIT COUNTER 
;I1S DATA CORRECT 


$$$ 


$$$ 


$$$ 


. $$$ 


M1 
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FLOATING POINT 


pe 061070 
12347 061072 
074 


12369 146 
12370 061150 


12402 061232 
12403 061236 


TESiS 
000207 


047600 
003122 


147600 
140132 


000002 


140132 


061166 
140132 


a 


S 
153300: 


TS3301: 
TS33D2: 
TS33D3: 
TS33D4 : 


TS33D5: 
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;RETURN 


STEST LDD MODE 0, ILLEGAL AC7 


; 
MFSRCMO: * 


i$: LDD 


2$: STST 


3$: 


oo 

#RECFEC ,R2 
R7,ACO 

Ri 

#147600 ,R1 
2$ 


aODETFPA 
+3 


(R2) 
#2,(R2)+ 
~ salen 


#1$,(R2)+ 
-_, 


;SETUP FPP STATUS 


;SAVE FPP STA 
; VERIFY FER BIT SET 
CONDITION 


;BRANCH IF GOOD ERROR 
; DETERMINE FLOATING POINT FAULT. 


;FPP 
; THE FER BIT DIDNT SET 
;SAVE FEC AND FEA 
VERIFY FEC CONTENTS 


IF 
; DETERMINE FLOATING POINT FAULT. 


;FPP 

‘FEC NE 2 COPCODE ERROR) 
;VERFIY FE CONTENTS 
;BRANCH FI 


GOOD 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


$$$ 


$$$ 


$$$ 


SEQ 0219 





Ni 
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SEQ 0220 


12 ;FEA NOT CORRECT ERROR ADDRESS 
12405 061240 4$: | 
i : 
12410 ;TEST LDD MODE2 
12411 ; 
12412 061240 MLDDM2 : 
12414 06 012701 003142 MOV #RECDST ,R1 ;POINT TO RECEIVED DATA LOCATION 
12415 061244 012704 003234 MOV #TAB1,R4 ;POINT TO GOOD DATA 
12416 06 012702 047750 MOV #47750 ,R2 ;LOAD GOOD STAT 
12417 061254 170102 LDOFPS R2 ;LOAD FPP STATUS - DOUBLE,ID 
12418 06 172424 LOD (R4)+,ACO :&TEST INSTRUCTION - MODE 2 
12419 061260 170203 STFPS R -SAVE TEST FPP STATUS 
12420 06 174021 STD ACO,(R1)+ :SAVE TEST RESULT MODE 2 
12421 061264 3 CMP R2,R3 “VERIFY FPP STATUS 
061 001403 BEQ 1 ;BRANCH IF GOOD 
12423 061270 004737 140132 CALL § @8DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
12424 061274 104003 +3 :FPP ERROR 
12425 :BAD FPP STSTUS 
12426 061276 022704 003244 1$: CMP $TAB1+10,R4 -VERFIY AUTO-INCR 
12427 061302 001403 BEQ 2$ ;BRANCH IF GOOD 
12428 061304 004737 140132 CALL § @@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12429 061310 104003 ERROR +3 ;FPP ERROR 
12430 ;BAD AUTO-INCR 
12431 061312 012704 003234 2$: MOV 8TAB1,R4 INT TO RECEIVED DATA 
12432 061316 162701 000010 SUB 10,Ri SRETURN R1 TO PROPER VALUE 
12433 061322 004767 056552 JSR R7, DATVER :VERFIY DATA FROM FPP 
12434 061226 005767 121566 TST COUNT ;SEE IF =0 
12435 061332 001403 BEQ 3$ “BRANCH IF GOOD COMPARE 
12436 061334 004737 140132 CALL #§ @#DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12437 061340 104003 +3 ;FPP ERROR :BAD DATA FROM FPP 
12438 061342 3$: 
12439 ; 
1eaat ? 
12444 :TEST LOD MODE 3 
12445 
12446 061342 HLDDM3: 
12448 061342 012737 003142 003164 MOV @RECDST , B#TSTLOC+2 :POINT TO RECEIVED DATA LOCATION 
12449 061350 012701 003164 MOV @TSTLOC+2,R1 -SETUP STD IN MODE 3 
12450 061354 012737 003244 003162 MOV #TAB2, BETSTL SPOINT TO DATA TABLE 
12451 061362 012704 003162 MOV $TSTLOC,R4 -POINT TO GOOD DATA 
061 012702 047 MOV 750, R2 ;LOAD GOOD STATUS 
12453 061372 170102 LOFPS R2 :LOAD FPP STATUS - DOUBLE,ID 
12454 061374 172434 LOD acR4)+,ACO saTEST INSTRUCTION - MODE 2 
12455 061376 170203 STFPS R3 .SAVE TEST FPP STATUS 
12456 061 174031 STD ACO, a(R1)+ ;SAVE TEST RESULT IN MODE 3 
12457 061402 022703 047740 CMP #47740 ,R3 iVERIFY FPP STATUS 
12458 061 001403 BEQ 1$ ;BRANCH IF GOOD 
12459 061410 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12460 061414 104003 +3 FPP 
12461 ‘BAD FPP STSTUS 
12462 061416 022704 003164 1$: #TSTLOC+2,R4 Y AUTO-INCR 
061422 001403 BEQ ,BAD AUTO-DEC ON LOD 
12464 061424 737 140132 CALL § @@DETFPA ; DETERMINE OEE ONTING POINT FAULT. $$$ 





Be 
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SEQ 0221 


12465 061430 104003 ERROR +3 ;FPP ERROR 
12466 ;BAD AUTO-INC 
12467 061432 022701 003166 2$: CMP #TSTLOC+4,R1 TEST STD AUTO-INC 
12468 061436 001403 BEQ 3$ ;BRANCH IF GOOD 
12469 061440 004737 140132 CALL § @8DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12470 061444 104003 ERROR +3 FPP ERR 
12471 ;BAD AUTO-INCR 
2472 061 012704 0032 3$: MOV #TAB2, RA ;POINT TO RECEIVED DATA 
12473 061452 012701 003142 MOV #RECDST ,R ;POINT TO RECEIVED DATA 
061456 004767 16 JSR R7, SATVER- ‘VERFIY DATA FROM F 
12475 061462 005767 121432 TST COUNT E IF COUNTER=0 
12476 061466 001403 BEQ 4$ ‘BRANCH IF GOOD COMPARE 
12477 061470 004737 140132 CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12478 061474 104003 ERROR +3 FPP ERR 
12479 ;BAD DATA FROM FPP 
12480 061476 4$: 
12481 ; 
12484 
12485 eeletecieiecheteesiebebeietebebedehelsiabetetetetetetetahetatiate 
12486 ;TEST LDF, STD MODE 4 
: 
12488 061476 MLDDM4: 
12490 061476 012701 003146 MOV @RECDST+4,R1 :POINT TO RECEIVED DATA LOCATION 
12491 061502 012704 003260 MOV 8TAB3+4,R4 ;POINT TO SOOD DATA 
92 061 012705 003314 MOV #TAB6 RS :CLEAR OUT ACO 
12493 061512 170127 000200 LDOFPS #200 :SET TO DOUBLE 
94 061516 172415 LDD (R5), ACO 0=0 
2495 061 012702 047550 MOV #47550, R2 ;LOAD soln. STATUS FLOATING 
124% 061524 170102 LOFPS Re ;LOAD FPP STATUS - DOUBLE,ID 
12497 061 172444 LOF -(R4), ACO TEST INSTRUCTION - MODE 4 
12498 061530 170203 STFPS 3 SAVE TEST FPP STATUS 
99 061 012702 047750 MOV $47750,R2 ;SET TO DOUBLE MODE 
061 170102 LDFPS R2 ‘SET FPP TO DOUBLE 
12501 061540 174041 STD ACO, -(R1) ;SAVE TEST RESULT 
061 022703 047540 CMP 847540 ,R3 “VERIFY FPP STATUS 
12503 061546 001403 BEQ 1 ;BRANCH IF GOOD 
12504 061550 004737 140132 CALL § @@DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12505 061554 104003 ERROR +3 ;FPP ERROR 
;BAD FPP STSTUS 
12507 061556 022703 003254 1$: CMP 8TAB3,R4 iVERFTY AUTO-DEC 
12508 061562 601403 BEQ 2 ; BRANCH 
12509 061564 004737 140132 CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12510 061570 104003 oS FPP 
12511 ;BAD AUTO-INCR 
12512 061572 012704 003254 2$: MOV 8TAB3,R4 POINT TO RECEIVED DATA 
12513 061576 004767 056276 JSR _—«RT7, DATVER ,VERFIY BATA FROM FPP 
12514 061602 005767 121312 TST COUNT :SEE IF COUNTER= 
12515 061606 001403 BEQ 3$ ' IF GOOD COMPARE 
12516 061610 004737 140132 CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12517 061614 104003 ERROR +3 ;FPP ERROR 
12518 ;BAD DATA FROM FPP 
12519 061616 3$; 
12520 


12523 
12524 
12525 


STEST LDD MODE 5 





ES EK 
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SEQ 0222 


12526 ; 
12527 061616 MLDOMS : 
12529 061616 012701 003142 MOV #RECDST,R1 ;POINT TO RECEIVED DATA LOCATION 
12530 061622 012704 003164 MOV STSTLOC+2,R4 ;POINT TO GOOD DATA 
12531 061626 012737 003234 003162 MOV eTABL ,O#TSTLOC ‘SET UP MODE 5S POINTER TO DATA 
12 1634 012702 047750 V 7750 ,R2 ;LOAD STATUS 

3 061640 170102 LOFPS Re ;LOAD FPP STATUS - DOUBLE,ID 
12534 061642 172454 LDD 9-(R4),ACO ;#TEST INSTRUCTION - MODE 5 
12535 061644 170203 STFPS -SAVE TEST FPP STATUS 

061 174011 STD ACO, (R1) ;SAVE TEST 

12537 061650 020203 CMP R2,R3 :VERIFY FPP STATUS 
12538 061652 001403 BEQ 1$ ;BRANCH IF GOOD 
12539 061654 004737 140132 CALL § @#DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12540 061660 104003 ERROR +3 ;FPP ERROR 
12541 :BAD FPP STATUS 
12542 061662 022704 003162 1$: CMP 8TSTLOC,R4 ;VERFIY AUTO-DEC 

3 061666 001403 BEQ 2$ ;BRANCH IF GOOD 

061670 004737 140132 CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12545 061674 104003 ERROR +3 FPP 
12546 ‘BAD AUTO-DEC 
12547 061676 012704 003234 2$: MOV $TAB1,R4 POINT TO EXPECTED DATA 
12548 061702 004767 056172 JSR _—«RT.DATVER .VERFIY DATA FROM FPP 
12549 061706 005767 121206 TST COUNT ;SEE IF : 
12550 061712 001403 BEQ 3$ ; IF GOOD COMPARE 
12551 061714 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12552 061720 104003 ERROR +3 FPP 
12553 ;BAD DATA FROM FPP 
12554 061722 3$ 
12557 ; 
ee —s—s—s—<—StsS i iyi ae 0 i 
12559 sTEST LDD MODE 6 
12560 
12561 061722 MLDDM6 : 
12563 061722 012701 003342 MOV #RECDST+200,R1 ;POINT TO RECEIVED DATA LOCATION 
12564 061726 012704 003044 MOV 8TAB2-200,R4 SETUP R4 FOR MODE 6 
12565 061732 012702 047750 MOV «-@47750.R2 ;LOAD GOOD STATUS 
12566 061736 170102 LOFPS R2 :LOAD FPP STATUS - DOUBLE,ID 
12567 061740 172464 000200 LOD 200(R4), ACO ;LDD MODE 6 
12568 061744 170203 STFPS R3 ;SAVE TEST FPP STATUS 
12569 061746 174061 177600 STD ACO 52oocR) ;SAVE TEST RESULT 
12570 061752 022703 047740 CMP $477 ‘VERIFY FPP STATUS 
12571 061756 001403 BEQ i$ ;BRANCH IF GOOD 
12572 061760 004737 140132 CALL § &@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12573 061764 104003 ERROR +3 FPP 
‘BAD FPP ©TATUS 

12575 061766 162701 000200 1$: SUB #200,R1 ;R1=RECDST 
12576 061772 062704 000200 2$: ADO $200,R4 ;POINT TO EXPECTED DA DATA 
12577 061776 004767 056076 JSR R7, DATVER ;VERFIY DATA FROM FPP 
12578 062002 005767 121112 TST COUNT :SEE IF COUNTER=0 
12579 062006 001403 BEQ 3$ ‘BRANCH IF GOOD COMPARE 
12580 062010 004737 140132 CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12581 062014 104003 ERROR +3 FPP 
12582 ;BAD DATA FROM FPP 
12583 062016 3$ 
12586 ; 
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012701 
012704 
012702 
005005 


170102 
172427 


003142 


003234 
047750 


003162 
140132 


140132 


003234 
055774 
121010 
140132 
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003162 


SEQ 0223 


; TEST LDD MODE 7 
MLDOM?: 


i$: 


2$: 


#RECDST ,R1 
R4 


#TAB1, #TSTLOC 
#47750 ,R2 


Re 
@TSTLOCCR4) , ACO 
ACO, (R1) 

R 


R2.RS 
GgDETFPA 


R4 
2$ 
aeDETFPA 
+3 


#TAB1,R4 
TVER 


3$ 
-™ 


ee TO RECEIVED DATA LOCATION 

3R 

‘POINTER FOR MODE 7 GOOD DATA 

;LOAD GOOD STATUS 

; LOAD FPP STATUS - DOUBLE, » 

SaTEST INSTRUCTION - MODE 7 

; SAVE ba A FPP STATUS 
PE TEST RESULT 

; VERIFY FPP STATUS 

;BRANCH IF GOOD 

; DETERMINE FLOATING POINT FAULT. 


‘BAD FPP STATUS 
eM CONTENTS OF R4 


; DETERMINE FLOATING POINT FAULT. 


$$$ 


$$$ 
,POINT TO RECEIVED DATA 
‘BRANCH IF GOOD COMPARE 
cpp cri oe TERMINE FLOATING POINT FAULT. 
‘BAD DATA FROM FPP 


$$$ 


sTEST LDD MODE 27 - ONLY 16 BITS ARE LOADED OR STORED 


MLOM27: 


1$: 


eTibS RA 
750 


#5205 , ACO 


;POINT S ete DATA LOCATION 
0 GOOD DATA 
1m col sth STATUS 


=0 
;LOAD_FPP STATUS - DOUBLE,ID 
;*TEST INSTRUCTION - MODE 27 


TEST PROPER PC PATH 
‘ VERIFY ONLY 3 PC 
;BR PROPER PC ACTION 

DETERMINE FLOATING POINT FAULT. $$$ 


PP ERR 
BAD MODE 27 LOAD 
;SAVE TEST FPP STATUS 
;SAVE TEST RESULT 
‘VERIFY FPP STATUS 
; BRANCH 


GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 
SFPP ERROR 
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2646 

12647 062206 

2648 062212 

12649 062216 
50 062220 

12651 062224 


12653 062226 
56 


TESTS 


055666 
120702 
140132 


003314 


2$: 


R7,DATVER 
COUNT 


3$ 
~ abi 


Page 14-205 


- 3BAD FPP STATUS 
;VERFIY DATA aoe FPP 
;SEE IF COUNTER=0 
; BRANCH IF GOOD COMPARE 
DETERMINE FLOATING POINT FAULT. 


;FPP ERR 
;BAD DATA FROM FPP 


;TEST ADDF, ADDD, SUBF, SUBD - ACO=0 FSRC=0; 


MNNRM1 : 


1$: 


2$: 


3$: 


44$: 


CR4),ACO 
lalate 


#40004 ,R3 


1$ 
~ eile 


@RECDST,R 
ACO, CRIS 
R7, DATVER 


2$ 
@SDETFPA 
+3 

#40200 ,R2 
R2 
CR4),ACO 
CR4),ACO 
ACO, (R1) 
R3 
_—e 
aeDETFPA 
+3 
R7,DATVER 
aeCOUNT 
44$ 
@eDETFPA 
+3 
(R4),ACO 
(R4),ACO 


R3 
#40204 ,R3 
4s 


;POINT TO FSRC TEST DATA 
;CLEAR OUT RECEIVED DATA TABLE 


T UP GOOD STA 


; 

;SE TUS 

;LOAD FPP dae FLOATING 
;LOAD ACO WITH O 

2Q« 


;SAVE STATUS 
; VERIFY STATUS 


;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. 


s VERIFY DATA 
BRANCH IF 


GOOD 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD DATA IN ACO 
“aia FLOATING STATUS 


SLOAD ACO WITH 0 
;*#TEST INSTRUCTION 
;SAVE DATA 


;SAVE FPS 
:VERFTY STATUS 


3 GOOD 
DETERMINE FLOATING POINT FAULT. 


3;FPP 
;BAD FPS 
»VERFIY DATA 
;VERIFY RESULT 


‘BRANCH IF GOOD 
‘DETERMINE FLOATING POINT FAULT. 
SFPP ERROR 


;BAD ACO 
;SETUP DATA 
:#TEST INSTRUCTION 
;SAVE STATUS 
hae STATUS 
; BRANCH 


$$$ 


sos 


$$$ 


$$$ 


$$$ 


SEQ 0224 


Fe 
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12705 062406 
12706 062412 


12707 
12708 062414 


TESTS 


140132 


055406 
120422 
140132 


003142 
003314 
003244 
000200 


003264 
055310 
120324 


140132 


4$: 


5$: 


6$: 
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SEQ 0225 
CALL § @#DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 SFPP ERROR 
;BAD FPS 
STD ACO, (R1) ;SAVE ACO DATA 
JSR R7, DATVER ;VERFIY DATA 
TST COUNT 
BEQ S$ “BRANCH IF GOOD 
CALL § @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD ACO 
LOFPS #0 ;STORE FPP STATUS 
LOD (R4),ACO ;LOAD ACO 
SUBF  CR4), ACO 
STFPS R ;SAVE STATUS 
STD ACO, (R1) ; ACO 
CMP $4,R3 :VERFIY STATUS 
BEQ 6$ ;BRANCH IF GOOD 
CALL § @@DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;BAD FPS 
JSR R7,DATVER :VERIFY DATAT 
TST COUNT 
BEQ 7$ ;BRANC IF GOOD 
CALL a4de TFPA ai sDETERMINE FLOATING POINT FAULT. $$$ 


“TEST ADDF,SUBD - FSRC=0, ACO NE 0 


MNNRMe : 


i$: 


MOV @RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
MOV 8TAB6 RS ;POINT TO SOURCE DATA TABLE 
MOV STAB2,R4 ‘POINT TO ACO DATA 
LOFPS #200 :SET TO DOUBLE FOR CLEAR 
LDD ¢R5).ACO ; 
CLR ;SETUP FPP STATUS 
LOFPS RS ;LOAD FP 

(R4),ACO ;LOAD ACO 
ADDF §(R5), ACO jaTEsT INSTRUCTION 
STFPS R3 ;SAVE STAT 
STF ACO, (R1) ;SAVE ACO 
CMP #0,R3 ‘VERTLY NEGATIVE RESULT 
BEQ ;BRANCH IF GOOD 
CALL BODETFPA pe DETERMINE FLOATING POINT FAULT. $$$ 

+ ; 

;BAD FPS 

MOV #TAB4 ,R4 ;POINT TO EXPECTED DATA 
JSR R7,DATVER aiMerety ACO 
TST COUNT ;CHECK RESULT 
BEQ 2$ ;BRANCH IF GOOD 
CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $3$ 
ERROR +3 ;FPP ERROR 


;BAD ACO 
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170127 


SEQ 0226 


000200 2$: ;SET STATUS TO 


LDFPS DUOBLE NODE 
12765 062610 172414 LOD (R4),ACO ;LOAD ACO WITH A VALUE 
1 062612 173015 SUBD (R5). ACO ‘aTEST INSTRUCTION 
12767 062614 170203 STFPS ;SAVE FPP 
12768 062616 174011 STD ACO, (R1) SAVE ACO 
062620 022703 000200 CMP #200 ,R ;VERIFY RESULT 
12770 062624 001403 BEQ 3$ ;BRANCH IF GOOD 
1 062626 004737 140132 CALL § @#DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
12772 062632 104003 ERROR +3 sFPP ERROR 
12774 062634 012704 003264 3$; MOV #TAB4,R4 “POINT TO EXPECTED 
12775 062640 004767 055234 JSR R7,DATVER -VERIFY ACO 
12776 062644 005767 120259 TST 
12777 062650 001403 BEQ 4$ ‘BRANCH IF GOOD ACO 
12778 062652 004737 140132 CALL § a@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
12779 062656 104003 ERROR +3 -FPP ERROR 
12780 ;BAD ACO 
12781 062660 4$ 
12784 ; 
12785 E lecleicteetatedeieieieistesieteiasietadetetebetaietiaetetaieiebeteten 
12786 ;TEST ADDD, SUBF - FSRC NE 0, ACO=0 
12787 ; 
7 MNNRM3 : 
12789 3 
12790 012701 003142 MOV @RECDST,R1 :POINT TO RECEIVED DATA TABLE 
791 012705 003314 MOV $TAB6 RS ;POINT TO ACO DATA TABLE 
12792 062670 012704 003234 MOV $TAB1,R4 -POINT TO FSRC DAT 
12793 062674 012702 000200 MOV $200 ,R2 “SETUP FPP STATUS 
12794 062700 170102 LOFPS Re ;LOAD FPS 
12795 062702 172415 LDD (RS), ACO :LOAD ACO 
12796 062704 172014 (R4), ACO :#TEST INSTRUCTION 
12797 062706 170203 STFPS R ;SAVE STATUS 
12798 062710 174011 STO ACO, (RL) ;SAVE ACO 
062712 022703 000210 CMP #210,R3 :VERFIY NEGATIVE RESULT 
062716 001403 BEQ i$ ;BRANCH IF 
12801 062720 004737 140132 CALL § @8DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
12802 062724 104003 +3 :FPP ERR 
i 
062726 004767 055146 1$: JSR R7, DATVER VERFIY ACO 
12805 062732 005767 120162 TST COUNT CK RESUL 
12806 062 001403 BEQ 2$ RANCH IF an 
12807 062740 004737 140132 CALL § @@DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
12808 062744 104003 ERROR +3 FPP 
12809 ;BAD ACO 
12810 062746 170127 000200 2$: LDFPS #200 ‘SET STATUS TO DUOBLE NODE 
12811 062752 172415 LOF (RS), ACO sLOAD ACO WITH A VALUE 
12812 062754 173014 SUBD  (R4).ACO :@TEST INSTRUCTION 
12813 062756 170203 STFPS RB ;SAVE FPP STATUS 
12814 062760 174011 STF ACO, (RL) ;SAVE A 
15 062762 022703 000200 CMP #200 ,R3 ;VERIFY RESULT 
062766 001403 BEQ ;BRANCH IF GOOD 
12817 062770 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12818 062774 104003 ERROR +3 sFPP ERROR 
: 
12820 062776 012704 003504 3$; MOV #TAB18,R4 ;POINT TO EXPECTED DATA 
12821 063002 004767 055072 JSR R7,DATVER ;VERIFY ACO 
12822 063006 005767 120106 TST COUNT 


He 
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SEQ 0227 
FLOATING POINT TESTS 
12823 063012 001403 BEQ 4$ ;BRANCH IF GOOD ACO 
12824 063014 004737 140132 CALL § a#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12825 063020 104003 ERROR +3 FPP ERR 
12826 :BAD ACO 
12827 063022 43: 
12628 ; 
12831 
12832 " Fadeetndaahes eed dete bedoctaatabaetndedeehteteatatatatge 
12833 STEST ADDF, SUBD - EXP(ACO) = EXPC(FSRC) 
iss — 
12837 063022 012702 003240 MOV #3240,R2 ;SET FIU,FD,FT 
12838 063026 170102 LOFPS R2 
12839 063030 012704 003334 MOV #TAB7,R4 :SET FSRC 
12840 063034 012705 003344 MOV #TAB8 ,RS yp Ato 
12841 063040 012701 003142 MOV #RECDST ,R1 SE INT 7? RECEIVED DATA 
12842 063044 172415 LOD (RS), ACO ;LOAD ACO 
12843 063046 172014 ADDD  (R4),ACO ;*TEST INSTRUCTION 
12844 063050 174011 STD ACO, (Ri) -SAVE TEST RESULT 
12845 063052 012704 003354 MOV #TABS,R4 :POINT TO EXPECTED DATA 
004767 055016 JSR R7, DATVER -VERIFY ACO DATA 
12847 063062 005767 120032 TST COUNT ; 
12848 063066 001403 BEQ i$ ;BRANCH IF GOOD 
12849 063070 004737 140132 CALL §§ @@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12850 063074 104003 ERROR +3 ;FPP ERROR 
12851 ;BAD ADDD 
12852 063076 012704 003344 1$: MOV #TABB,R4 ; 
12853 063102 012703 003344 MOV $TABS,R3 :SETUP SAME ACO 
12854 063106 012702 003200 MOV #3200,R2 ;ROUND MODE 
12855 063112 170102 LDOFPS R2 
12856 063114 172413 (R3), ACO ;LOAD ACO 
12857 063116 061400 ADD (R4 ;#TEST INSTRUCTION 
12858 063120 174011 STD ACO, (R1) ;SAVE DATA 
12859 063122 004767 054 JSR R7, DATVER :VERIFY ACO 
12860 063126 005767 117766 TST 
12861 063132 001403 BEQ 2$ ;BRANCH IF GOOD 
12862 063134 004737 140132 CALL §§ a@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12863 063140 104003 ERROR +3 FPP 
12864 :BAD ROUND RESULT 
12865 063142 2s: 
12866 ; 
12869 : 
12870 cinta hbaasaiiileiianonaraliddin seimyitgeiniien-> a 
12871 :TEST ADD - EXP(FSRC) > EXPCACO) 
12872 $ 
12873 063142 MXDF L: 
12875 063142 012702 003200 MOV $3200 ,R2 :R2=FPP STATUS 
12876 063146 170102 LOFPS R2 ;LOAD FPS STATUS 
12877 063150 012704 003374 MOV #TAB11,R4 ;POINT TO FSRC DATA 
12878 063154 012701 003142 MOV #RECDST ,R1 ;POINT TO ACO RESULT 
0127 3 MOV #TAB10,R5 ; ACO DATA 
172415 LOD (R5), ACO ;LOAD ACO DATA 
1 063166 172014 ADDD  (R4),ACO ;#TEST INSTRUCTIONS 
063170 170203 STFPS R3 ;SAVE FPP STATUS 


12882 
12883 063172 174011 STD ACO, (R1) ;SAVE ACO DATA 
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12884 063174 
3200 


12885 06 
12886 063202 
12887 063206 
12888 

12889 063210 


TESTS 
022703 


003200 
140132 


003404 
054660 
117674 
140132 


003414 


003434 


054622 
117636 


140132 


003000 
003444 
003454 


003474 
054506 
117522 
140132 


1$: 


2s: 


3$: 


4$: 


#3200 ,R3 
_- 


— 
~ 


#TABLIA,R 
R7, BATVER 
COUNT 


2$ 
aeDETFPA 
+3 


ores an 


#3000, R2 
#TAB14,R4 
$TABiS.RS 
(RS), ACO 
CRA) ,ACO 
ACO, CR1) 
#TAB10,R4 
R7, DATVER 
COUNT 

4$ 
BEDETFPA 


#TAB16,R5 
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SEQ 0228 


; VERIFY FPP STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPP STATUS 
;POINT TO EXPECTED DATA 
; VERIFY CONTENTS OF ACO 


; BRANCH IF GOOD ACO 
;DETERMINE FLOATING POINT FAULT. $$$ 


PP ERR 
‘BAD ACO, SHOULD = FSRC 
;POINT TO FSRC DATA 


A 
;4TEST INSTRUCTION 
POINT 


TED RESULT 
;SAVE ACO _ INTO RECDAT 
; VERIFY DAT 


;BRANCH IF GOOD DAT 
; DETERMINE FLOATING *POINT FAULT. $$$ 


‘BAD ACO DATA 
;GET FPP STATUS DATA 
;POINT TO FSRC DATA 
ty TO ACO DATA 


3L ACO 
;FPP STATUS = FLOAT, INTERRUPTS ENABLE 
ESET one TP a 


;RECDST=ACO 
;POINT TO GOOD DATA 
;VERFIY CONTENTS OF ACO 


; BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 

;BAD FLOATING ADD 
;POINT TO ACO DATA 
;FPP STATUS = FLOAT 


;LOAD ACO 
;STEST INSTRUCTION 


;SAVE ACO DATA 
;POINT TO GOOD DATA 


;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 


;FPP E 
;BAD FLOATING ADD 


TEST ADDD WITH NEGATIVE OPERANDS 


MNGOP : 
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SEG 0229 


12944 063406 012702 003200 MOV $3200 ,R2 ;LOAD FPS VALUE 
12945 063412 170102 LDFPS 
12946 063414 012704 003514 MOV $TAB21,R4 ;DATA ADDRESS FOR ACO AND FSR 
7 063420 172414 LOD (R4),ACO ;ACO=100200 0 0 0 

12948 063422 172014 ADDD  (R4).ACO ;*TEST INSTRUCTION 
12949 063424 170203 STFPS R3 ;SAVE STATUS 

063426 012701 002142 MOV #RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
12951 063432 174011 STD ACO, (R1) :SAVE ACO DAT 

063434 022703 003210 CMP #3210,R3 ‘VERIFY OTUs 

06 001403 BEQ 1$ ;BRANCH IF GOOD 

06 004737 140132 CALL § @#DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
12955 063446 104003 +3 FPP ERROR 
12957 063450 012704 003524 1$: MOV #TAB22,R4 ;POINT TO EXPECTED DATA 
12958 063454 004767 054420 JSR R7, DATVER ; 
12959 06 005767 117434 TST COUNT -VERIFY DATA 
12960 06 001403 BEQ 2$ : IF GOOD 
12961 06 004737 140132 CALL § @@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12962 063472 104003 ERROR +3 sFPP ERROR 
12963 ; 

; '-FSRC! = !ACO! 

12965 063474 704 003514 2s: MOV $TAB21,R4 ;POINT TO FSRC DATA 

06 012701 003534 MOV #TAB23,R1 ;POINT TO ACO DATA 
12967 063504 012737 063 000244 MOV #101$, a@FPVEC :SETUP FP VECTOR 
12968 063512 172411 LOD (Ri), ACO ;LOAD ACO 
12969 063514 172014 ADDD  (R4),ACO ;#TEST INSTRUCTION 
12970 063516 170000 100$: CFCC -COPY FPP CC 

06 004737 140132 CALL § @@DETFPA FLOATING POINT FAULT. $$$ 
12972 063524 104003 ERROR +3 FPP 

73 ;GO TO ERROR 

12974 063526 170203 101$:  STFPS R3 :SAVE FPP STATUS 
12975 063530 012701 003142 MOV @RECDST Ri POINT TO RECEIVED DATA TABLE 
12976 063534 174011 STD (RLS .SAVE ACO DATA 

063536 022703 103200 CMP M8200 R3 ;VERIFY STATUS 
12978 063542 001403 BEQ ;BRANCH IF GOOD 
12979 063544 004737 140132 CALL #§ @@DETFPA -DETERMINE FLOATING POINT FAULT. $$$ 
12980 063550 104003 ERROR +3 FPP 
12981 ;BAD STATUS 
12982 063552 012605 3$: MOV (SP)- RS :GET ERROR PC 
12983 063554 020527 063516 CMP $100 :VERIFY ERROR ADDRESS ON STACK 
12984 063560 001403 BEQ rey} ;BRANCH IF GOOD 
12985 063562 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
12986 063566 104003 ERROR +3 FPP 
12987 ;BAD ERROR RETURN ON STACK 
12988 005726 102$: TST (SP)+ RESTORE STACK 
12989 063572 012704 003544 MOV $TAB24 ,R4 INT TO EXPECTED DATA TABLE 
12990 063576 004767 054276 JSR R7, DATVER ‘VERIFY DATA 

06 005767 117312 TST COUNT 

06 001403 BEQ 4$ ;BRANC IF GOOD 
12993 063610 004737 140132 CALL § @@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
12994 063614 104003 ERR +3 SFPP ERROR 

;BAD ACO DATA 
; 1-ACO! = !FSRC! 
12997 063616 012704 0035 43: MOV STAB23,R4 ;POINT TO FSRC DATA 
012701 003514 MOV $TAB21.R1 ‘POINT TO ACO DATA 

12999 063626 012737 063656 000244 MOV $104$ , AF PVEC -SETUP FP VECTOR 





Ke 
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SEQ 0230 
FLOATING POINT TESTS 
13000 063634 012702 003200 MOV #3200,R2 LOAD FPS VALUE 
13001 063640 170102 LOFPS R2 ' 
13002 063642 172411 DD (R1),ACO ;LOAD ACO DATA 
13003 063644 172014 ADDD  (R4).ACO ;&TEST INSTRUCTION 
13004 063646 170000 103$: CFCC ; COPY 
13005 063650 004737 140132 CALL § @#DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
13006 063654 104003 ERROR +3 FPP ERROR 
13007 GO TO ERROR 
13008 063656 170203 104$:  STFPS R3 ;SAVE FPS 
13009 063660 012701 003142 MOV #RECDST,R ;SAVE ACO 
13010 063664 174011 STD ACO, CAL) 
13011 063666 022703 103200 CMP #103200,R “VERFIY STATUS 
13012 063672 001403 BEQ 5$ ;BRANCH IF GOOD 
13013 063674 004737 140132 CALL § @&DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13014 063700 104003 ERROR +3 sFPP ERROR 
13015 ;BAD FPS STATUS 
13016 063702 012605 S$: MOV (SP)+,R5 ;GET PC 
13017 063704 020527 063646 CMP R5, #1033 ;VERIFY ERROR ADDRESS ON STACK 
13018 063710 001403 BEQ 105$ ; BRANCH 
3712 004737 140132 CALL § @@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
13020 063716 104003 +3 FPP 
13021 ;BAD ERROR RETURN ON STACK 
13022 063720 005726 105$: TST (SP)+ ;RESTORE STACK 
13023 063722 012704 003544 MOV $TAB24,R4 :POINT TO EXPECTED DATA 
13024 063726 004767 054146 JSR R7,DATVER 
13025 063732 005767 117162 TST COUNT 
001403 BEQ 6$ ‘BRANCH IF GOOD 
13027 063740 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13028 063744 104003 +3 FPP ERROR 
;BAD ACO 
13030 : '-FSRC! < 1ACO: 
13031 063746 012704 003564 6$: MOV $TAB26,R4 sPOINT TO FSRC DATA 
13032 063752 012701 003554 MOV #TAB25,R1 :POINT TO ACO DATA 
13033 063756 012702 003200 MOV #3200 ,R2 ‘LOAD FPS VALUE 
13034 063762 170102 LOFPS ; 
13035 063764 012737 000246 000244 MOV $246, BOF PVEC ;SETUP FP VECTOR 
13036 063772 172411 LOD (R1).ACO ;LOAD ACO DATA 
13037 063774 172014 ADDD  (R4),ACO :@TEST INSTRUCTION 
13038 063776 170203 STFPS R3 ;SAVE STATUS 
13039 064000 012701 003142 MOV @RECDST ,R ;POINT TO RECEIVED DATA TABLE 
13040 064004 174011 STD ACO cris ;SAVE ACO 
13041 064006 020327 003200 CMP R3, #3200 : VERIFY STATUS 
13042 064012 001403 BEQ 7% ;BRANCH IF GOOD 
13043 064014 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13044 064020 104003 ERROR +3 ;FPP ERROR 
13045 :BAD FPS 
13046 064022 012704 003574 7$: MOV $TAB27,.R4 ;POINT TO EXPECTED DSATA 
13047 064026 004767 054046 JSR R7,DATVER ;VERIFY DATA 
13048 064032 005767 117062 TST COUNT 
13049 064036 001403 BEQ 8$ ‘BRANCH IF GOOD 
13050 064040 004737 140132 CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13051 064044 104008 ERROR +3 SFPP ERROR 
: 
13053 . 'FSRC! > 1-AC! 
13054 064046 012704 003554 8$: MOV 8TABOS ,R4 ;POINT TO FSRC DATA 
13055 064052 012701 003564 MOV $TAB26,R1 ‘POINT TO ACO DATA 
13056 064056 172411 LOD (R1),ACO ;LOAD ACO DATA 
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FLOATING POINT 


13057 064060 
13058 064062 


etre 064216 
13103 064216 
13104 


TESTS 


003142 
003200 
140132 
003574 
053762 
116776 
140132 


003614 
003604 


003142 
003200 
140132 


003624 
053676 
116712 
140132 


003200 


003514 
003142 


003204 
140132 
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9$: 


10$: 


11$: 


(R4),ACO 


#RECDST ,R1 
ACO, (RL) 
3200 


9$ 
eerie 


#TAB27,R4 
R7,DATVER 


(R1), 
CR4),ACO 


STAB29A,R4 
R7, DATVER 
COUNT 


12$ 
SeDETFPA 


+3 


;#TEST INSTRUCTION 
;SAVE STATUS 
;POINT TO RECEIVED DATA TABLE 


;SAVE ACO 
VERIFY STATUS 
sBRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;POINT TO EXPECTED DSATA 
; VERIFY DATA 


;BRANCH IF GOOD | 
, “DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;BAD ACO 
‘ACO! 
;POINT TO FSRC DATA 
;POINT TO ACO DATA 
;LOAD ACO DATA 
3#TEST INSTRUCTION 
;SAVE STATUS 
;POINT eta DATA TABLE 
:VERIFY STATUS 
; BRANCH GOOD 
_ -DETERMINE FLOATING POINT FAULT. $$$ 
; 
;BAD FPS 
;POINT TO EXPECTED DATA 
; VERIFY DATA 
;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 
SFPP ERROR 


#3200 ,Re 


R2 
$TAB21,R4 
@RECDST ,R1 
(R4), ACO 
(R4), ACO 
R3 

ACO, (R1) 
$3204 ,R3 


1 
; waren 


;LOAD FPS DATA 
;LOAD FPS 
;POINT TO FSRC DATA 
sPOINT TO ACO RECEIVED DATA TABLE 
;LOAD ACO 
sor" INSTRUCTION 
;SAVE STATUS 
;SAVE ACO INTO RECDST 
;VERIFY STATUS 
:BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 


;FPP E 
;BAD FPS STATUS 


SEQ 0251 





Me 
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SEQ 0232 


13116 064260 012704 003314 1$: MOV #TAB6,R4 | ;POINT TO EXPECTED DATA 
7 064264 004767 053610 JSR R7, DATVER “VERIFY ACO 
13118 064270 005767 116624 TST COUNT 
13119 064274 001403 BEQ 2$ ;BRANCH IF GOOD 
13120 064276 004737 140132 CALL § @#DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
13121 064302 104003 ERROR +3 sFPP ERROR 
012704 003444 2$: MOV $TAB14,R ;POINT TO FSRC AND ACO DATA 
13124 064310 172414 LOD (R4), aco ;LOAD ACO DATA 
13125 064 173014 SUBD  (R4).ACO ‘aTEST INSTRUCTION 
13126 064314 170203 STFPS R3 SSAVE FPS 
13127 064316 174011 STD ACO, (R1) -SAVE ACO INTO RECDST 
13126 064320 022703 003204 CMP 3204 ,R3 SVERIFY FPS 
224 001403 BEQ 33 ;BRANCH IF GOOD 
13130 064326 004737 140132 CALL § @#DETFPA DETERMINE FLOATING POIN] FAULT. $$$ 
13131 064332 14003 ERROR +3 ;FPP ERROR 
13132 ;BAD ACO 
13133 064334 012704 003314 3$: MOV #TAB6 ,R4 ;POINT TO EXPECTED DATA 
13134 064340 004767 053534 JSR R7,DATVER ;VERIFY ACO 
13135 064344 005767 116550 TST C 
13136 064350 001403 BEQ 4$ ;BRANCH IF GOOD 
13137 064352 004737 140132 CALL § @@DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
13138 064356 104003 ERROR +3 ;FPP ERROR 
13139 ;BAD ACO 
13140 064360 4$ 
13141 ; 
3144 
13145 gm ee ne nnn nnn ne nnn ne nee e nen nn-- 
3146 : TEST NORMALIZE 
13147 ; 
13148 064360 MNRM : 
; 
3150 064360 012702 003200 MOV $3200 ,R2 ;LOAD FPS 
13151 064364 170102 LOFPS R2 ; 
13152 064366 012705 003644 MOV #TAB31,R5 :POINT TO FSRC DATA 
13153 064372 012701 003634 MOV #TAB30,R1 :POINT TO ACO DATA 
13154 064376 172411 LOD (R1), ACO ;LOAD ACO 
173015 SUBD (R5), ACO ‘aTEST INSTRUCTION 
13156 :1 LEFT SHIFT 
13157 064402 170203 STFPS R3 ;SAVE STATUS 
13158 064404 012704 003142 MOV @RECDST ,R4 ;POINT TO RECDATA 
13159 064410 174014 STD ACO, (R4) SAVE ACO 
3160 064412 012701 003674 MOV —s- #TAB34,R1 ;POINT roe EXPECTED DATA 
13161 064416 004767 053456 JSR R7, DATVER VERIFY DATA 
13162 064422 005767 116472 TST 
13163 064426 001403 BEQ i$ ;BRANCH IF GOOD 
13164 064430 004737 140132 CALL § @#DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
13165 064434 104003 ERROR +3 ;FPP ERROR 
‘ 
13167 064436 012701 003654 1$: MOV #TAB32, a1 ;ACO DATA 
13168 064442 012705 003664 MOV #TAB33.R ;FSRC DATA 
13169 064446 172411 LOD CRD ACO wit LOAD ACO 
13170 064450 173015 SUBD  (R5).ACO :TST iN TRUCTION 
5 
13172 064452 012701 003142 MOV #RECDST,R ;SAVE DATA 
13173 064456 174011 STD ACO CRIS : 
13174 064460 004767 053414 JSR R7, DATVER 
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SEQ 0233 
FLOATING POINT TESTS 
005767 116430 TST COUNT 
13176 064470 001403 BEQ 2$ : ; 
13177 064472 004737 140132 CALL § a#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
13178 064476 104003 ERROR +3 FPP ERROR 
13180 064500 2$ 
13181 ; 
3184 ; 
— & += , nn nana stssentseeessenece 
15186 ‘TEST ADDD WITH OVERFLOW AND UNDERFLOW 
13188 064500 MUVAD: 
13190 064500 012702 000200 MOV #200 ,R2 ;SETUP FLOATING POINT STATUS 
13191 064504 170102 LDOFPS Re ;LOAD FPS 
13192 064506 012704 003704 MOV $TAB40,R4 POINT TO FSRC DATA 
13193 064512 012701 003704 MOV $TAB40.R1 :POINT TO ACO DATA 
13194 064516 172411 LOD (R1),ACO -LOAD ACO WITH TEST DATA 
13195 064520 172014 ADDD  (R4).ACO ;*TEST INSTRUCTION 
1319 064522 170203 STFPS R3 :SAVE FPS 
13197 064524 012701 003142 MOV #RECDST,R ;POINT TO RECEIVED DATA TABLE 
13198 064530 174011 STD ACO, RLS ;SAVE ACO RESULT 
13199 064532 022703 000206 CMP #206 ,R ;VERIFY STATUS 
13200 064536 001403 BEQ i$ ;BRANCH IF GOOD 
13201 064540 004737 140132 CALL  @#DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
13202 064544 104003 ERROR +3 FPP ERROR 
13203 ;BAD FPS 
13204 064546 012704 003314 1$: MOV STAB6,R4 ;POINT TO EXPECTED DATA 
13205 064552 004767 053322 JSR R7, DATVER SVERIFY DATA 
13206 064556 005767 116336 TST COUNT 
13207 064562 001403 BEQ 2$ ;BRANCH IF GOOD 
004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13209 064570 104003 ERROR +3 SFPP ERROR 
13210 ;BAD ACO 
13211 ;OVERFLOW TRAPS ENABLED 
> 
13213 064572 012702 001200 3$: MOV #1200 ,R2 ;SETUP FLOATING POINT STATUS 
13214 064576 170102 LOFPS Re ;LOAD FPS 
13215 064600 012704 003704 MOV #TAB40,R4 ;POINT TO FSRC DATA 
13216 064604 012701 003704 MOV eT ABAO Ri ;POINT TO ACO DATA 
13217 064610 172411 LOD (R1), ACO LOAD ACO WITH TEST DATA 
13218 064612 012737 064632 000244 MOV ast B@FPVEC ;CHANGE TRAP VECTOR 
13219 064620 172014 ADDD R4),AC :*TEST INSTRUCTION 
13220 064622 170000 234: Gee 
13221 064624 004737 140132 CALL § @@DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
13222 064630 104003 ERROR +3 sFPP ERROR 
13223 ‘FAILED TO TRAP ON OVERFLOW 
13224 064632 170203 3$: STFPS ;SAVE FPS 
13225 064634 012701 003142 MOV #RECDST ,R1 ‘POINT TO RECEIVED DATA TABLE 
13226 064640 174011 STD ACO, (R1) ;SAVE ACO T 
13227 064642 022703 101206 CMP #101206 ,R3 VERIFY Y STATUS 
13228 064646 001403 BEQ 4$ ;BRANCH IF GOOD 
13229 064650 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13230 064654 104003 ERROR +3 FPP E 


13231 
13232 064656 012600 4$: MOV SP)+,RO CHECK STORED PC 
13233 064660 : Be RO 
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FLOATING POINT 


i 
13290 065102 


TESTS 


000244 


000244 


BEQ 5$ 
CALL § @#DETFPA 
ERROR +3 
S$: MOV (SP)+,RO 
MOV STABE .R4 
JSR R7,DATVER 
TST COUNT 
BEQ 7$ 
CALL § @&DETFPA 
+3 
;UNDERFLOW TRAPS DISABLED 
; 
7$: MOV #200 ,R2 
LOFPS R 
MOV SWLDTRP , @¢FPVEC 
MOV $TABT7,R4 
MOV $TAB41,R1 
LOD (R1),ACO 
ADDD  (R4),ACO 
STFPS R3 
STD OACOCCRLD 
CMP $204 ,R3 
BEQ 8$ 
CALL QgDETFPA 
8$: MOV #TAB6,R4 
JSR R7,DATVER 
TST COUNT 
BEQ 9$ 
+3 
;UNDERFLOW TRAPS ENABLED 
: 
9$: MOV #2200 ,R2 
LOFPS R2 
MOV #11$ ,@eFPVEC 
MOV oTAB7 .R4 
MOV MBAR 
LOD tri 1 ACO 
ADDD  (R4),ACO 
10$: CFCC 
CALL § @#DETFPA 
+3 
11$:  STFPS R3 
MOV #RECDST ,R1 
STD ACO, (R1) 
CMP #102210,R3 
BEQ 12$ 
CALL §§ aSDETFPA 
ERROR +3 
12$: MOV (SP)+,R5 


;FPP 
;BAD ACO 


;BRANCH IF RETURN ADDRESS IS GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 


ACK 
sPOINT TO EXPECTED DATA 
:VERIFY DATA 


;PRAMICH IF GOOD 
wan FLOATING POINT FAULT. $$$ 


,SETUP_ELOATING POINT STATUS 
ae "REPLACE WILD ate VECTOR 


;*TEST TNS TRUCT I 

;SAVE FPS 

‘ POINT TO RECEIVED DATA TABLE 
; O RESULT 

;VERIFY STATUS 

;BR 


ANCH IF GOOD 
“DETERMINE FLOATING POINT FAULT. $$$ 
SFPP ERROR 


;BAD FPS 
;POINT TO pret res DATA 
;VERIFY DATA 
BRANCH IF GOOD 
;FPP 
‘BAD ACO 
;SETUP FLOATING POINT STATUS 
;LOAD F 


PS 
sREPOSITION TRAP VECTOR 

;POINT TO FSRC DATA 

;POINT TO ACO DATA 

;LOAD ACO WITH TEST DATA 

saTest INSTRUCTION 
corr Y FPP CC 
DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;FAILED TO TRAP ON UNDERFLOW 


;SAVE FPS 
;POINT TO RECEIVED DATA TABLE 
;SAVE ACO SULT 

IFY STATUS 


; BRANCH 6000 
_ SRT SIKE FLOATING POINT FAULT. $$$ 
‘BAD FPS 
;GET ERROR PC 
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SEQ 0235 
FLOATING POINT TESTS 
13291 065104 020527 065046 CMP R5,#10$ ;VERIFY ERROR ADDRESS ON STACK 
13292 065110 001403 BEQ 1 ; BRANCH 
13293 065112 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13294 065116 104003 ERROR +3 FPP E 
1 “BAD ERROR RETURN ON STACK 
1 065120 005726 13$: TST (SP)+ SRESTORE STACK 
13297 065122 012704 003304 MOV STABSA,R4 ;POINT TO EXPECTED DATA 
1 065126 004767 746 JSR R7,DATVER SVERIFY DATA 
13299 065132 005767 115762 TST COUNT 
13300 065136 001403 BEQ 14$ ;BRANCH IF GOOD 
13301 065140 004737 140132 CALL § @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
13302 065144 104003 E +3 PP ERROR 
1330 + BAD ACO 
13 |UNDERFLOW WITH TRAPS DISBLED - NON-ZERO RESULT 
; 

13306 065 012702 000200 i4$: MOV #200 ,R2 ;SETUP FLOATING POINT STATUS 
13307 065152 170102 LDFPS R2 ;LOAD FPS 

065154 012737 000244 MOV SWLDTRP , A8F PVEC SRESTORE TRAP VECTOR 

065162 012704 003714 MOV $TAB41,R4 ; POINT To FSRC DATA 
13310 065166 012701 003724 MOV $TAB42.R ‘POINT TO ACO DATA 
13311 065172 172411 LOD (R1),ACO ;LOAD ACO WITH TEST DATA 
13312 065174 172014 ADDD  (R4).AC , TEST INSTRUCTION 
13313 065176 170203 STFPS R3 ;SAVE FPS 
13314 06 012701 003142 MOV CDST,R1 ‘PCINT TO RECEIVED DATA TABLE 
13315 065204 174011 STD ACO, (RL) ;SAVE ACO RESULT 
13316 06 022703 000204 CMP #204, “VERIFY STATUS 
13317 065212 001403 BEQ 15$ ;BRANCH IF GOOD 
13318 065214 004737 140132 CALL §§ @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
13319 065220 104003 ERROR +3 sFPP ERROR 

; 

13321 065222 012704 003314 15$: MOV STAB6,R4 :POINT TO EXPECTED DATA 
13322 065226 004767 JSR R7,DATVER SVERIFY DATA 
13323 065232 005767 115662 TST COUNT 
13324 065236 001403 BEQ 16$ ;BRANCH IF GOOD 
3325 06 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13326 065244 104003 ERROR +3 PP ERROR 
3327 +BAD ACO 
13328 |UNERFLOW WITH TRAPS ENABLED - NON-ZERO RESULT 
3329 H 
13330 065246 012702 102200 16$: MOV #102200 ,R2 SETUP FLOATING POINT STATUS 
13331 065252 170102 LOFPS ;LOAD F 
13332 065254 012737 065306 000244 MOV #18$, BOF PVEC ‘RESTORE TRAP VECTOR 
13333 06 012704 003714 MOV 8TAB41,R4 ;POINT TO FSRC DATA 
13334 06 012701 003724 MOV 8TAB42.R ‘POINT TO ACO DATA 
12335 065272 172411 LOD (R1),ACO ;LOAD ACO WITH TEST DATA 
13336 065274 172014 ADDD  (R4),ACO ,*TEST INSTRUCTION 
13337 065276 170000 17$: CFCC 
13338 065300 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13339 065304 104003 a FPP 
13340 ;NO TRAP ON UNDERFLOW 
13341 065306 170203 18$:  STFPS R3 ; SAVE 

065310 012701 003142 MOV @RECDST,R ‘POINT TO RECEIVED DATA TABLE 
13343 065314 174011 STD ACO CRIS :SA 0 RESULT 
13344 065316 0 MOV (SP5+,RO ;SAVE STACK CONTENTS 
3345 065320 005726 TST (SP)+ ;CLEAN UP STACK 
13346 065322 022700 065276 CMP $17$,RO RETURN ADDRESS 
13347 065326 001403 BEQ 19$ sBR GOOD 
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FLOATING POINT 


13348 065330 
13349 065334 
350 


13351 065336 


13363 065376 
13364 
13367 
13368 


3370 
13371 065376 
3372 


TESTS 


140132 


003754 
140132 


CALL 
ERROR 


19$: 


20$: MOV 


aeDETFPA 
+3 


#102204 ,R3 
20$ 
-_ 


#TAB43 ,R4 
R7,DATVER 
COUNT 


21$ 
_ 


SEQ 0236 


DETERMINE FLOATING POINT FAULT. $$$ 
FPP E 


‘BAD RETURN ADDRESS 
VERIFY STATUS 


;BRANCH 
RE TERMINE FLOATING POINT FAULT. $88 
rpe errine 
: BAD FPS 
:POINT TO EXPECTED DATA 
‘VERIFY DATA 
SBRANCH IF GOOD 
‘DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;BAD ACO 


;TEST LDCFD, LOCDF 


rs 

MLOC: 

; 

; TRUNCATE 
MOV #300 ,R2 
LOFPS R2 
MOV #TAB45 ,.R4 
MOV TABO,R1 
LOD (R1), ACO 
LDOCFD (R4)+,ACO 
MOV CDST,R1 
STD ACO, (R1) 
CMP $TAB45+4,R4 
BEQ i$ 
CALL § @@DETFPA 
ERROR +3 

1$: MOV 8TAB46,R4 
JSR R7,DA 
TST COUNT 
BEQ 2$ 
CALL § @@DETFPA 
ERROR +3 

;AUTO-INC DOUBLE MODE 

; 

2$: CLR R2 
LOFPS 
MOV $TAB45 ,R4 
MOV #TAB16,R1 
LOD (R1), ACO. 
LOCDF (R4)+ 
CMP R4, eTheds-10 
BEQ 
CALL aQ0ET FPA 


ser FLOATING POINT STATUS 
;LOAD FPS 


;POINT TO FSRC DATA 
;POINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
;#TEST INSTRUCTION 
;POINT TO RECEIVED DATA TABLE 
ACO RESULT 


‘VERIFY AUTO-INC 
‘BRANCH IF GOOD AUTO-INC 
ss ‘DETERMINE FLOATING POINT FAULT. $$$ 
‘BAD AUTO-INC 
:POINT TO EXPECTED DATA 
‘VERIFY DATA 
:BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 
FPP ERROR 
‘BAD ACO 


Ft lla POINT STATUS 
;POINT TO FSRC DATA 


s;POINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
;#TEST INSTRUCTION 
; VERIFY AUTO-INC 
BRANCH IF 


GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD AUTO-INC ON DOUBLE 
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SEQ 0237 
FLOATING POINT TESTS 
13407 065522 170203 3$: STFPS R3 | sSAVE FPS 
13408 065524 012701 003142 MOV @RECDST,R ;POINT TO RECEIVED DATA TABLE 
3409 065530 174011 STD ACO CRIS ;SAVE ACO RESULT 
13410 065532 022703 000000 CMP 00,3 ‘VERIFY STATUS 
13411 065536 001403 BEQ 4$ :BR IF 
13412 065540 004737 140132 CALL § @#DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
13413 065544 104003 ERROR +3 SFPP ERROR 
13414 ;BAD FPS 
13415 065546 012704 004014 4s: MOV $TAB49,R4 ;POINT TO EXPECTED DATA 
13416 065552 004767 052322 JSR R7,DATVER :VERIFY DATA 
13417 065556 005767 115336 TST COUNT 
13418 065562 001403 BEQ S$ ;BRANCH IF GOOD 
13419 065564 004737 140132 CALL §§ @8DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
13420 065570 104003 ERROR +3 FPP 
13421 ;BAD ACO 
1aas8 ;LDCFD GR7 
13424 065572 012702 000200 S$: MOV #200 ,R2 ;SETUP FLOATING POINT STATUS 
13425 065576 170102 LOFPS Re ;LOAD FPS 
13426 065600 005003 CLR R3 
13427 065602 177427 043243 LDCFD #5203,ACO ;*TEST INSTRUCTION 
13428 06 005203 INC R3 
13429 065610 005203 INC R3 
13430 065612 005203 INC R3 ;IF LOCFD WORKED R3 SHOULD=3 
13431 065614 022703 000003 CMP $3,R3 :VERIFY CT PROGRAM FLOW 
13432 065620 001403 BEQ IF Se CDOD 
13433 065622 004737 140132 CALL  @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
13434 065626 104003 ERROR +3 :FPP ERROR 
13435 :BAD PROGRAM FLOW 
i 3436 ;NEGATIVE OPERANDS 
13438 065630 012702 000200 6$: MOV #200,R2 :SETUP FLOATING POINT STATUS 
13439 065634 170102 LDOFPS R2 ;LOAD F 
13440 065636 012704 003764 MOV #TAB47 ,R4 ;POINT TO FSRC DATA 
13441 065642 012701 003744 MOV $TAB45,R1 :POINT TO ACO DATA 
13442 065646 172411 LOD (R1),ACO ;LOAD ACO WITH TEST DATA 
13443 065650 177414 LOCFD (R4).ACO ;*TEST INSTRUCTION 
13444 065652 170203 STFPS 3 ;SAVE FPS 
13445 065654 012701 003142 MOV @RECDST ,R1 ‘POINT TO RECEIVED DATA TABLE 
13446 065660 174011 STD ACO, (RL) ;SAVE ACO jRESULT 
13447 065662 022703 000210 CMP 10,R3 ;VERIFY STA 
13448 065666 001403 BEQ 7$ :BR IF GOOD 
13449 065670 004737 140132 CALL #§ @@DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
13450 065674 104003 ERROR +3 :FPP ERROR 
13451 :BAD FPS 
13452 065676 012704 004004 7$: MOV $TAB48 ,R4 ;POINT TO EXPECTED DATA 
13453 065702 004767 052172 JSR R7, DATVER ;VERIFY DATA 
13454 065706 005767 115206 TST COUNT 
13455 065712 001403 BEQ 8$ ;BRANCH IF GOOD 
13456 065714 004737 140132 CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13457 065720 104003 ERROR +3 FPP 
;BAD ACO 
13459 sLOAD A ZERO 
3460 ; 
13461 065722 012702 000200 8s: MOV #200 ,R2 ;SETUP FLOATING POINT STATUS 
i 170102 LDFPS R2 ;LOAD FP 


3462 065726 
13463 065730 012704 003314 MOV #TAB6 ,R4 ;POINT TO FSRC DATA 


ra 


COKDAFO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 
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SEQ 0235 


13464 065734 012701 004004 MOV #TAB48,R1 ;POINT TO ACO DATA 
13465 065740 172411 OD (R1) ACO ;LOAD ACO WITH TEST DATA 
3466 065742 177414 LDCFD (R4).ACO tSTEST INSTRUCTION 
13467 065744 170203 STFPS R3 ;SAVE F 
13468 065746 012701 003142 MOV #RECDST ,R ;POINT TO RECEIVED DATA TABLE 
13469 065752 174011 STD ACO, cite ;SAVE ACO RESULT 
13470 065754 022703 000204 CMP #204,R sVERIFY STATUS 
13471 065760 001403 BEQ 9$ ;BRANCH IF GOOD 
13472 065762 004737 140132 CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13473 065766 104003 3 ;FPP ERROR 
13474 ;BAD FPS 
13475 065770 012704 003314 9$: MOV STAB6,R4 :POINT TO EXPECTED DATA 
13476 065774 004767 052100 JSR R7,DATVER ;VERIFY DATA 
13477 066000 005767 115114 TST COUNT 
13478 066004 001403 BEQ 10$ ;BRANCH IF GOOD 
13479 066006 004737 140132 CALL § @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
13480 066012 104003 +3 ;FPP ERROR 
13481 ;BAD ACO 
13482 066014 10$: 
13483 ; 
13486 ; 
ee ree eee eee ee eee 
13488 ‘TEST CMPD 
13489 ; 
13490 066014 MCMPD : 
13491 
13492 : (CMPD WITH FRSC=ACO=0 
13494 066014 005037 003030 CLR aeFLAG ;SIGNAL THAT ACO REMAINS CONSTANT 
066020 004767 000152 JSR R7, CMPRTN “ROUTINE TO TEST DATA 
13496 066024 000000 006000 “WORD 0,0,0,0 ;ACO AT START 
066032 000000 
13497 066034 000000 000000 000000 .WORD 0,0,0,0 sFSRC AT START 
066042 000000 
13498 066044 000200 WORD 200 :FPS AT START (D) 
13499 066046 000204 “WORD :FPS AT END 
1 ; CMPD WITH EXPEFSRC =0, EXP[ACO]=0 
13501 066050 012737 000001 003030 MOV at. AG ;SIGNAL THAT ACO WILL = 
1 066056 004767 000114 JSR CMPRTN “ROUTINE TO TEST DATA 
13503 066062 G 000000 000000 WORD 4 79°. 125252 "ACO AT START 
13504 066072 000100 000022 000123 .WORD 100,22,123,123 ;FSRC AT START 
066100 000123 
13505 066102 000200 .WORD 200 ;FPS AT START (D) 
13506 066104 000204 “WORD 204 -FPS AT END 
; CMPD FSRC>EXPLACO]=0 
13508 066106 005037 003030 CLR ar L ;ACO REMAINS UNCHANGED 
13509 066112 004767 JSR R7, CMPRTN ;ROUTINE TO TEST DATA 
13510 066116 000400 012346 012346 “WORD 400,12346,12346,23 ‘ACO AT START 
13511 066126 000200 000000 000000 .WORD  200,0,0,0 ;FSRC AT START 
066134 000000 
13512 066136 000200 WORD ;FPS AT START (D) 
13513 066140 000210 "WORD 210 “FPS AT END 
13514 ; CMPD FSRC=ACO>0 
13515 066142 004767 000030 CMPRTN ;ROUTINE TO TEST DATA 
13516 066146 0 177777 |=177777 “WORD «s- 77777, -1,-1,-1 TACO AT START 


GS 
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FLOATING POINT TESTS 


SEQ 0239 


066154 177777 
13517 066156 077777 177777 177777 WORD 77777,-1,-1,-1 ;FSRC AT START 
066164 177777 
13518 066166 .WORD 200 ;FPS AT START (D) 
13519 066170 000204 -WORD 204 FPS AT END 
poet 066172 000167 000126 JMP HOP44 sHOP OVER SUBROUTINE 
13522 5 XX a KK KKK eK KK eK oe KX eK eX eK eK eX eK XK EK XX eX XK XK XK XK HX 
13523 5 HK AK eX NK AK IK aK ae KK HK aK aX ae Xe eK eK eK aK Ke KKK HK eX KX eX XX 
13524 ; COMPARE ROUTINE DATA TABLES 
13525 : 
13526 ; ACO 
13527 ; FSRC 
13528 ; FPS BEFORE EXECUTION 
13529 ; FPS AFTER EXECUTION 
13530 ; (FEC) 
13531 5 aK ae Kt XK te Ke Ke Ke KX ae Ke KX ae KX ae Ka K se KX te Xe KX te KX eX oe Xe XK eX eX XK eK KX aK eX eK eX eX 
1s KAN HK AK HK KK HK a aK a NN aH ae eX eX ae Xa Xe Xk XXX KX HX HK HX HX 
13534 066176 01260 éMPRTN: MOV (SP)+,R5 - RETURN ADDRESS TO USE AS POINTER 
066200 012702 000200 MOV $200 ,R2 ‘SET TO DOUBLE MODE FOR LOAD 
1 066204 170102 LDFPS ;LOAD 
13537 066206 01 MOV R5,R4 ‘ POINT TO FSRC DATA 
066210 062704 000010 ADD #10,R4 
13539 066214 1 MOV WR ;POINT TO ACO DATA 
13540 066216 172411 LDD (R1),ACO ;LOAD ACO WITH TEST DATA 
13541 066220 016502 000020 MOV 20(R5),R2 ‘GET TEST FPS 
13542 066224 170102 LDFPS Re ;LOAD TEST FPS 
13543 066226 173414 1$: CMPD CR4),ACO ;#TEST INSTRUCTION 
13544 066230 170203 STFPS R3 ; SAVE FPS 
13545 066232 012702 000200 MOV #200 ,R2 ;SET FPP TO DOUBLE 
13546 066236 170102 LDOFPS R2 
13547 066240 012701 003142 MOV #RECDST ,R1 ;POINT TO RECEIVED DATA TABLE 
13548 066244 174011 STD ACO, (R1) ;SAVE ACO RESULT 
13549 066246 026503 000022 22(R5),R3 : VERIFY STATUS 
13550 066252 001403 BEQ 2$ ANCH GOOD 
13551 066254 004737 140132 CALL aeDETFPA * DETERMINE FLOATING POINT FAULT. $$$ 
13552 104003 3 SFPP ERROR 
13553 ;BAD FPS 
13554 005737 003030 2$ TST aeF LAG ;SEE IF ACO REMAINS UNCHANGED 
13555 001403 ; BRANCH IF ACO STAYS THE SAME 
13556 066270 012704 003314 #TAB6 ,R4 ;ACO=0 
13557 066274 i BR 4$ ;G0 VERIFY DAT 
13558 066276 01 3$ MOV RS,R4 sPOINT TO EXPECTED DATA 
13559 004767 051574 4$ SR R7,DATVER sVERIFY DATA 
13560 005767 114610 TST COUNT 
13561 066310 001403 BEQ 5$ ;BRANCH IF GOOD 
13562 0663 004737 140132 CALL @eDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13563 066316 104003 ERROR +3 ;FPP ERROR 
13564 ;BAD ACO 
13565 066320 000165 000024 5$ JMP 24(R5) ’ 
13566 
13567 ; 
13570 
WS7i 00 ee nn ene en ee nee een e-e 
13572 ‘TEST DIVF 


H3 
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13574 066324 
135 


13594 066412 
3595 


012737 
004767 
000100 


000002 
000706 
000027 


003030 


003030 


003030 


003030 


MDIVF : 
;1/EXP[AC]=FSRC=0 
MOV $2, QF LAG 
JSR R7. DVFSUB 
“WORD 100, 
"WORD 0,0 
"WORD 100,27 
"WORD 40000 
"WORD 140000 
"WORD 4 
;2/AC=EXP[FSRC]=0 
; TRAPS ENABLED 
MOV $1, O¢F LAG 
JSR R7. DVFSUB 
“WORD 0,0 
“WORD  100,0 
“WORD 0,0 
“WORD 0 
“WORD 100000 
"WORD 4 
;3/FSRC>ACO=0 
CLR LAG 
JSR R7, OVFSUB 
“WORD 177,234 
"WORD  4100,0 
“WORD 0,0 
"WORD 7400 
"WORD 7404 
;4/ACO>EXPLFSRC)=0 
MOV $1,a0F 
JSR R7.DVFSUB 
WORD 40200 104210 
"WORD 40200, 104210 
“WORD 7557 
“WORD 107557 
"WORD 4 
;5/EXP(AC J=EXPLFSRC) 
CL aeF LAG 
JSR R7, DVFSUB 
“WORD 77760,-1 
“WORD 60,0 
“WORD 40200, 104210 
"WORD 7414 
“WORD 7400 
;6/AC=F SRC 
coh ORT LDVESUB 
“WORD 52525, 
“WORD  52525,52525 
"WORD 40200,0 
‘WORD 7400 
WORD 


; 7400 
;7/FSRC>0<ACO, ROUND 
R avr 


LAG 
R7, OVF SUB 


;NO INTERRUPT, BUT FEC 


;D0 TEST 


;RESULT 
; TEST FPS 
;RESULT FPS 


ERRUPT 
;D0 TEST 


5 
TEST FPS 
;RESULT FPS 


; INTERRUPT 
;D0 TEST 


;ACO 

3F 

;RESULT 

; TEST FPS 
sRESULT FPS 
;FEC 


3;NO INTERRUPT 
;D0 TEST 
;ACO 

;F SRC 

;RESULT 

; TEST FPS 

;RESULT FPS 


;RESULT 
; TEST FPS 
sRESULT FPS 


;NO INTERRUPT 
;D0 TEST 


SEQ 0240 


Lo 


COKDAFO KDJ11-B8 CLUSTER DIAG. 


FLOATING POINT 


13631 066570 
raat 066574 


TESTS 
077777 


125252 
000000 
070707 


003030 
000424 
177777 
000000 
125252 


003030 
000374 


003030 
000 


003030 


‘WORD 77777,125252 
"WORD 40300, 
"WORD  77652,.070707 
"WORD 7400 
"WORD 7400 
;8/AC>0<F SRC 
CLR LAG 
JSR R7,DVFSUB 
"WORD 55377,-1 
"WORD 55300,0 
"WORD  40252,125252 
"WORD O 
"WORD O 
;9/FSRC>AC>0 
CLR aeFLAG 
JSR R7,OVFSUB 
“WORD  64600,1 
"WORD  66600,0 
"WORD  36200,1 
“WORD 0 
"WORD O 
:10/AC>FSRC>0 
CLR LAG 
JSR R7, DVFSUB 
“WORD 12345, 156024 
“WORD 0 
"WORD  44745.156024 
“WORD 
“WORD 
;11/FSRC<O 
CLR 
JSR 
WORD 10101 
"WORD 140511,101010 
“WORD 2.2016 
“ WORD 
" WORD 
:12/AC<0 
CLR @OF LAG 
JSR R7, DVF SUB 
“WORD  160077,101 
"WORD 40417,-1 
"WORD 157651, 143527 
"WORD 7 
"WORD 10 
;13/TRUNCATE TEST 
CLR aor LAG 
JSR R7, DVFSUB 
“WORD  60100,1 
"WORD 40300, 
"WORD 60000,124 
"WORD 40 
"WORD 40 
;14/ROUND TEST 
CLR @eFLAG 
JSR R7, DVFSUB 
“WORD 60100,177 
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;RESULT 
;_ TEST FBS 


;RESULT 
; TEST FPS 
;RESULT 


RESULT 
; TEST FPS 


- RESUL 
; TEST FPS 


RESULT 
; TEST FPS 
:RESULT FPS 


3;NO INTERRUPT 
;D0 TEST 
;ACO 


3F 


. Test Fes” 
IRESULT FPS 


;NO INTERRUPT 
;00 TEST 
;ACO 


SE@ 0241 


em ee LLL LLL 


| seneetnaanton enagtannanmstsespapilntansasncipt 


COKDAFO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


pas 067112 
13702 067114 
137 7122 


ie 067240 


13744 067254 


TESTS 


040300 


012702 
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SEQ 0242 
000000 .WORD 40300,0 ;FSRC 
000125 -WORD 60000, eal 
. WORD ; TEST FPS 
.WORD 0O ;RESULT FPS 
;15/0VERFLOW, INTERRUPTS ENABLED 
000001 003030 MOV #1,30FLAG ; INTERRUPT 
000152 J R7 ,DVF SUB ;D0 TEST 
000000 “WORD  177700,0 ;ACO 
000000 -WORD 200,0 ;F SRC 
000000 "WORD  137700,0 j 
.WORD 1100 ; TEST FPS 
-WORD 101112 ;RESULT 
. WORD ;FEC 
316/0VERFLOW, TRAPS DISABLED 
000002 003030 MOV #2 ,30F LAG ;NO INTERRUPT 
000116 JSR 7,0VF SUB ;D0 TEST 
900000 . WORD 0 ;ACO 
000000 “WORD 177700,0 ;F SRC 
000000 .WORD 0,0 ;RESULT 
. WORD ; TEST FPS 
. WORD sRESULT FPS 
. WORD ;FEC OVERFLOW 
;17/UNDERFLOW, UV RESULT 
000001 003030 MOV ; INTERRUPT 
000062 JSR ;D0 TEST 
000000 . WORD ;ACO 
177777 . WORD 3;F SRC 
000001 . WORD RESULT 
"WORD ; TEST FPS 
. WORD ; T 
. WORD ;FEC 
;18/UNDERFLOW, ROUND 
000001 003030 MOV ; INTERRUPT 
000026 JSR ;D0 TEST 
025252 . WORD ;ACO 
023456 . WORD 7F 
157716 . WORD = 
. WORD ; TEST 
. WORD sRESULT FPS 
. WORD ; 
000242 JMP HOP 10 ;GO0 TO NEXT TEST 
5 &XaXeXaXaXeXeXeXaXaXeX eX aXaXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeX 
5 eX aXeXaXeXaXaXaXeXeXeXeXeXeXeXaXaXeXaXeXeXaXeXeXeXeXeXeXeX 
;DIVF SUBROUTINE : 
; 
5 FSRC 
; FPS BEFORE EXECUTION 
: FPS AFTER EXECUTION 
; (FEC) 
; 
eX aXaXeXaXeXeXeXaXaXeXeXeXeXeXeXaXaXeXaXeXeXaXeXaXeXeXeXexX 
5 aX eX eX aXaXeXeX eX eX aXaXeXeXeXeXeXeXaXeXeXaXaXaXeXaXeXeXeXeX 
bVFSUB: MOV —Ss- (SP), RS , RETURN ADDRESS TO USE AS POINTER 
067326 000244 MOV #50$ , 9@F PVEC ;REDIRECT TRAP VECTOR 
000200 MOV #200 ,R2 SET TO DOUBLE MODE FOR LOAD 


er mamma, I at tl LLL LLL LLL LLL LN, A 


Dissimtme ntgenetpyegmanmeissnmasesot 


KS 
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SEQ 0243 
FLOATING POINT TESTS | 
13745 067260 170102 LDOFPS R2 ;LOAD FPS 
13746 067262 O1 MOV RS. R4 ;POINT TO FSRC DATA 
13747 067264 704 000004 ADD 
13748 067270 172415 LOD crs} 2ACO. ;LOAD ACO WITH TEST DATA 
13749 067272 016502 000014 MOV 14085). ‘GET TEST FPS 
13 067276 170102 LOFPS ;LOAD TEST FPS 
13752 067300 174414 DIVF  (R4),ACO ;*TEST INSTRUCTION 
13753 067302 170001 1$: SETF ;WAIT FOR POSSIBLE FPA TRAP. 
13755 SINSTRUCTION DIDNT TRAP 
3757 06 032737 000001 003030 BIT $1, 8FLAG ; VERIFY A NO TRAP CONDITION 
13758 067312 001426 BEQ ;BRANCH IF GOOD 
13759 067314 004737 140132 CALL § @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
13760 06 104003 +3 ;FPP ERROR 
761 ; INSTRUCTION SHOULD HAVE TRAPPED 
13762 067322 000167 000042 JMP 2$ ;REJOIN CODE 
‘INSTRUCTION TRAPPED 
13765 067326 032737 000001 003030 50$: BIT $1, a@FLAG ;SEE IF EXPECTING A TRAP 
13766 067334 001 BNE 51$ ;BRANCH IF EXPECTING A TRAP 
13767 067336 004737 140132 CALL § @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
13768 06 104003 -3 .FPP ERROR 
13769 INSTRUCTION WASNT SUPPOSE TO TRAP 
13770 067344 000167 000020 UMP 2 ;RE CODE 
13771 06 0 Si$: MOV (SP)+,R4 :SEE IF PC = INSTRUCTION 
13772 067352 005726 TST (SP)+ sCLEAN UP STACK 
13773 067 022704 067302 CMP #1$,R4 
13774 067360 001403 BEQ 2$ ‘BRANCH IF GOOD COMPARE 
13775 06 004737 140132 CALL § @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
13776 067366 104003 ERROR +3 FPP 
gy ;PC WAS INCORRECT 
13779 : COMMON CODE FOR TRAP AND NO TRAP 
13781 067370 170203 bs: STFPS R3 ;SAVE FPS 
13782 067372 012702 000200 MOV #200, R2 :SET FPP TO DOUBLE 
13783 067376 170102 LOFPS R2 
13784 067400 012701 003142 MOV @RECDST Ri ;POINT TO RECEIVED DATA TABLE 
13785 067404 174011 STD 0,(R1) ‘SAVE ACO RESULT 
067 026503 000016 CMP 1eCRS). R3 :VERIFY STATUS 
13787 067412 001403 BEQ 3$ ;BRANCH IF GOOD 
13788 067414 004737 140132 CALL #§ @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
3789 067 104003 ERROR +3 FPP 
790 ;BAD FPS 
13791 067422 010504 3$: MOV R5,R4 ;POINT TO EXPECTED DATA 
067 062704 000010 ADD #10,R4 
13793 067430 004767 4$: JSR R7,DATVFR ; VERIFY DATA 
067434 005767 113460 TST COUNT 
13795 067440 001403 BEQ 5$ BRANCH IF GOOD 
13796 067442 004737 140132 CALL #§ @&DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13797 067446 104003 +3 sEPP emit 
13799 067450 005737 003030 S$: TST @eF LAG ;SEE IF NEED TO CHECK FEC 
13800 067454 001 BNE 6$ ;BRANCH IF NEED TO CHECK 
13801 067456 000165 000020 JMP 20(R5) ;RETURN FROM TEST 


ES SK 


LS 
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SEQ 0244 
FLOATING POINT TESTS | 
13802 067462 170301 6$: STST Ri | ;SAVE FEC 
13803 067464 016504 000020 MOV 20(R5),R4 GET FEC 
13804 067470 020401 CMP R4,R1 :VERIFY FEC 
13805 067472 001403 BEQ 7$ ; IF GOOD 
13806 067474 004737 140132 CALL § a@@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
06 104003 ERROR +3 SFPP ERROR 
13808 ;BAD FEC 
13809 067502 000165 000022 7$: JMP 22(R5) :RETURN FROM TEST 
13811 067506 HOP 10 
13814 ; 
13815 poco crcoewsssesecceeoonsencseesce= 
13816 ;TEST DIVD - 
13817 3 
13818 067506 MDIVD: 
13819 ; 
:1/AC=FSRC=0 TRAPS DISABLED 
13821 067506 012737 000002 003030 MOV #2, 26F LAG ;NO INTERRUPT 
13822 067514 004767 000516 JSR R7 :D0 TEST 
13823 067520 900000 000000 000000 ‘WORD 0,0,0,1 ;ACO 
13824 067530 000100 000000 000000 .WORD  100,0,0,0 ;F SRC 
7536 000000 
13825 067540 000000 000000 000000 .WORD 0,0,0,1 ;RESULT 
7546 000001 
13826 067550 040000 .WORD 40000 ; TEST FPS 
13827 067552 140000 "WORD 140000 ;RESULT FPS 
7554 000004 “WORD 4 FEC 
;2/FSRC=0, TRAPS 
7556 012737 000001 003030 MOV ; INTERRUPT 
13831 067564 004767 000446 JSR :DO0 TEST 
13832 067570 000402 000000 000000 WORD ; 
067576 000000 
13833 067600 000000 000000 000000 . WORD FSRC 
067 000000 
13834 067610 000402 000000 000000 . WORD ;RESULT 
067616 000000 
13835 067620 000200 . WORD ; TEST FPS 
13836 067622 100200 “WORD :RESULT FPS 
13837 067624 000004 . “ WORD FEC 
13839 067626 005037 003030 CLR ;NO INTERRUPT 
7632 004767 JSR ;D0 TEST 
13841 067636 034300 000000 000000 WORD ACO 
13842 067646 140300 000000 000000 WORD ;FSRC 
654 000000 
13843 067656 134200 000000 000000 . WORD ;RESULT 
7664 000001 
7 000200 WORD ; TEST FPS 
13845 067670 000210 “WORD 210 ;RESULT FPS 
;4/ TRUNCATE 
13847 067672 003030 CLR @OFLAG ;NO INTERRUPT 
7676 004767 000334 JSR R7, DVDSUB ;00 TEST 
13849 067702 034300 000000 WORD 34300,0,0,1 ;ACO 
13A59 067712 140300 000000 000000 WORD 140300,0,0,0 ;FSRC 





MS 
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FLOATING POINT 


067720 

13851 067722 

067730 

13852 067732 

13853 067734 
13854 

13855 067736 

13856 067742 

13857 067746 

067754 

13858 yo Lhe» 

13859 067766 

067774 

13860 067776 

13861 070000 
13862 

13863 970002 

13864 070006 

13865 070012 

0020 

13866 070022 


0074 

13875 070076 

070104 

13876 070106 

13877 070110 
13878 

13879 070112 

13880 070120 


TESTS 


003030 
000224 


000000 
177777 


123465 
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003030 
012346 
140000 


SEQ 0245 


WORD  134200,0,0,0  ;RESULT 
.WORD 240 ; TEST FPS 
“WORD 250 ;RESULT FPS 
;5/ROUND NEGATIVE AC, FSRC 
CLR ;NO INTERRUPT 
J R7, DVDSUB ;00 TEST 
‘WORD 177642,0,0,151 ;ACO 
.WORD  166600,0,0,123 ;FSRC 
. WORD 51242,9,0,0 ;RESULT 
.WORD 200 ; TEST FPS 
“WORD ;RESULT FPS 
;6/TRUNCATE NEAGTIVE AC, FSRC 
CLR LAG ;NO INTERRUPT 
JSR R7, DVDSUB :DO TEST 
. WORD 177642 ,0,0,151 ;ACO 
.WORD  166600,0,0,123 ;FSRC 
. WORD 51241,-1,-1,-1 sRESULT 
.WORD 240 ; TEST FPS 
"WORD 240 ;RESULT FPS 
; 7/AC=F SRC 
CLR aeF LAG ;NO INTERRUPT 
JSR R7, DVDSUB ;D0 TEST 
"WORD 55521,47621,100333,-1 ;ACO 
.WORD 55521,47621,100333,-1  ;FSRC 
.WORD 40200,0,0,0 ;RESULT 
.WORD 7717 ; TEST FP 
"WORD 7700 RESULT FPS 
,8/UNDERFLOW TRAPS ENABLED, UV RESULT 
MOV #1, 20FLAG s INTERRUPT 
JSR R7. DVDSUB ;D0 TEST 
“WORD 100200,0,0,0 ACO 
WORD 77777,0,0,0 ;FSRC 
-WORD 140400, 100200, 100200, 100201 ;RESULT 
.WORD 2200 ; TEST FPS 
“WORD 102210 sRESULT FPS 
“WORD 12 FEC 
;9/OVERFLOW TRAPS ENABLED 
MOV $1, @@FLAG INTERRUPT 
JSR R7. DVDSUB ;D0 TEST 
“WORD 77000, 123465, 12346,525 ACO 
.WORD 303,1,140000, 140001 ;FSRC 
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SEQ 0246 
FLOATING POINT TESTS : 

13892 070214 036650 163002 103645 .WORD 36650,163002, 103645 ,64003 ;RESULT 

070222 064003 | 
13893 070224 001700 -WORD 1700 ; TEST FPS 
13894 070226 101702 -WORD 101702 ;RESULT FPS 
tesa 070230 000010 .WORD 10 ;FEC 
13897 070232 000167 000242 JMP HOP1i1 sHOP OVER SUBROUTINE 
138 g XAK AK AKA AN EN HN KO KKK KKK KK AK KK KK KX 
13500 5 HK HK HK HK aK aK HK AK AK eK aK aX ae Xe Nae Ne ee KK eK eK eK eK eK KK KX 
13901 ‘DIVO SUBROUTINE : 
13902 ; ACO 
13903 ; FSRC 
13904 ; FPS BEFORE EXECUTION 
13905 : FPS AFTER EXECUTION 
+3a07 ; (FEC) 
13908 5 XK KK RK RK RK RK KEK KEK EX EK EK XK RK XK HX aK KK EK KEK XX eX HX 
iene w HX HK aK KK KK AK aK eH KA KK aK aX oe ke Xe Ke Ke K eK eK KX HX KEEN 
13911 070236 O1 bvpsus : MOV CSP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 

07 012737 070320 000244 MOV #50$ , BAF PVEC ;REDIRECT TRAP VECTOR 
13913 070246 012702 000200 MOV #200 ,R2 " DOUBLE MODE FOR LOAD 
13914 070252 170102 LDOFPS R2 ‘LOAD F PS 
13915 070254 Ol . MOV R5,R4 ;POINT TO FSRC DATA 
13916 070256 062704 000010 ADD #10,R4 
13917 070262 172415 LOD (R5), ACO ;LOAD ACO WITH TEST DATA 
13918 070264 016502 000030 MOV 30(R5),R2 ;GET TEST FPS 
pith 070270 170102 LDFPS ;LOAD TEST FPS 
13921 070272 174414 DIVD CR4),ACO ;*TEST INSTRUCTION 
13356 070274 170000 i$: CFCC ;WAIT FOR POSSIBLE FPA TRAP. 

; 
taa55 ; INSTRUCTION DIDNT TRAP 
13926 070276 032737 000U01 003030 BIT #1,3¢FLAG ; VERIFY A NO TRAP CONDITION 
13927 070304 001426 BEQ 2s ;BRANCH IF GOOD 
13928 070306 004737 140132 CALL aaDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13929 070312 104003 ERROR +3 3;FPP 
13930 s INSTRUCTION SHOULD HAVE TRAPPED 
1 3aS 070314 000167 000042 JMP 2$ sREJOIN CODE 
; 

ieeka s; INSTRUCTION TRAPPED 
3935 070320 032737 000001 003030 bo: BIT $1,3¢FLAG ;SEE IF EXPECTING A —— 

070326 001005 BNE ;BRANCH IF EXPECTING A 
13937 070330 004737 140132 CALL BeDETFPA DETERMINE FLOATING POINT AFMALT. $$$ 
13938 070334 104003 °3 PP ERROR 

sNSTRUCTION WASNT SUPPOSE TO TRAP 
13940 070336 000167 000020 JMP 2$ ;REJOIN CODE 
13941 070342 012604 51$: MOV (SP)+,R4 ‘SEE IF PC = INSTRUCTION 
13942 070344 005726 TST (SP )+ iCLEAN UP STACK 
943 0 022704 070274 CMP #1$,R4 

13944 070352 001403 BEQ 2 BRANCH IF GOOD COMPARE 
13945 pds op yp fh 140132 CALL _— : DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;PC WAS INCORRECT 





B4 
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FLOATING POINT TESTS 


SEQ 0247 


13948 ; 
13949 “COMMON CODE FOR TRAP AND NO TRAP 
. 
13951 070362 170203 2$: STFPS R3 ;SAVE FPS 
13952 070364 012702 000200 MOV #200, R2 -SET FPP TO DOUBLE 
13953 070370 170102 LOFPS Re 
13954 070372 012701 003142 MOV @RECDST Ri ;POINT TO RECEIVED DATA TABLE 
13955 070376 174011 STD 0, (RL) ;SAVE ACO RESULT 
13956 070400 026503 000032 CMP BSCRS). R3 ‘VERIFY STATUS 
13957 070404 001403 BEQ 3$ ;BRANCH IF GOOD 
13958 070406 004737 140132 CALL § a@#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
13959 070412 104003 ERROR +3 ;FPP ERROR 
13960 ;BAD FPS 
13961 070414 010504 3$; MOV R5,R4 ;POINT TO EXPECTED DATA 
13962 070416 062704 000020 ADD #20,R4 
004767 047452 4$: JSR R7, DATVER ;VERIFY DATA 
13964 070426 005767 112466 TST COUNT 
13965 070432 001403 BEQ S$ ;BRANCH IF GOOD 
13966 070434 004737 140132 CALL §§ a@#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
13967 070440 104003 ERROR +3 JFPP ERROR 
13968 ;BAD ACO 
13969 070442 005737 003030 S$: TST aeFLAG ;SEE IF NEED TO CHECK FEC 
13970 070446 001002 BNE 6$ :BRANCH IF NEED TO CHECK 
13971 070450 000165 000034 JMP 34(R5) :RETURN FROM TEST 
13972 070454 170301 6$: STST Ri ;SAVE FEC 
13973 070456 016504 000034 MOV 34(R5),R4 “GET FEC 
13974 070462 020401 CMP R4,R1 :VERIFY FEC 
13975 070464 001403 BEQ ANCH IF GOOD 
13976 070466 004737 140132 CALL § @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
13977 070472 104003 ERROR +3 FPP 
13978 ;BAD FEC 
13979 070474 000165 000036 7$: JMP 36(RS) ;RETURN FROM TEST 
; 

13981 070500 HOP11: 
13984 
Rt I inlets mite acieen aaiaanp ce imate 
13986 ‘TEST MULF 
13987 : 
13988 070500 MUL 
13990 ‘1/ACO=FSRC=0 -INTERRUPTS DISABLED 
13991 070500 005037 003030 CLR aeF LAG ;NO INTERRUPT 
13992 070504 004767 000564 JSR R7,MLFSUB :D0 TEST 
13993 070510 000000 “WORD 0,0 ACO 
3994 070514 000000 000000 “WORD 0, sFSRC 

07 000000 “ WORD ;RESULT 
13996 070524 007517 "WORD 7517 ; TEST FPS 
13997 070526 007504 "WORD 7504 ;RESULTANT FPS 
13998 ;2/AC>FSRC=0 - INTERRUPTS ON 
13999 070530 005037 003030 CLR aOFLAG ;NO INTERRUPT 
14000 070534 004767 000534 JSR R7,MLFSUB ;D0 TEST 
14001 070540 000200 200,0 ;ACO 

0 000000 000000 "WORD 0,0 
14003 070550 000000 000000 "WORD 0,0 ;RESULT 

07 000013 "WORD 13 ; TEST FPS 
14005 070556 WORD 4 ;RESULTANT FPS 


14006 :3/AC=0 FSRO>0 - 





C4 
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FLOATING POINT 


14016 070614 
0620 


14037 070716 
4038 

14039 070720 
4040 070724 


14060 071024 
pet 071026 
14063 071030 


TESTS 


004767 


003030 


CLR LAG 
JSR R7,MLFSUB 
“WORD 100,0  ;ACO 
"WORD 300.0. ;FSRC 
"WORD 0,0 
"WORD 7500 
"WORD 7504 
:4/AC=1 >FSRC - ROUND 
CLR aeF LAG 
JSR R7, MLFSUB 
“WORD 40200,0 ;ACO 
. WORD 40177,- 
. WORD 40177,-1 
“WORD 0 
"WORD 0 
;5/TRUNCATE 
CLR aeFLAG 
JSR R7,MLFSUB 
“WORD 40177,-1 
. WORD ,0 ;F SRC 
"WORD  40177.-1 
"WORD 40 
“WORD 40 
;6/NORMALIZE 
CLR @eF LAG 
JSR R7,MLF 
-WORD  40100,0 ;ACO 
"WORD 40100.0 ;FSRC 
“ WORD ; 
“WORD 12 
“WORD 0 
; 7/ROUND 
CLR @eFLAG 
JSR R7, MLFSUB 
“WORD  17500,0 ;ACO 
-WORD 23652, 
"WORD 3177,-1 
"WORD 7417 
"WORD 7400 
;8/AC>0>FSRC ROUND 
CLR @eF LAG 
JSR R7,MLFSUB 
WORD 342, -1 
“WORD 6543, 
"WORD 176711,.67324 
. WORD 
‘WORD 7510 
;9/IAC<FSRC<0, ROUND 
ob 
“WORD  144600,0 
“WORD  154000,0 
"WORD  60400,0 
‘WORD 17 
WORD 0 


; 
Pg: 





s;NO INTERRUPT 
;D0 TEST 


;RESULT 
; TEST FPS 
s;RESULTANT FPS 


;NO INTERRUPT 
;D0 TEST 


;FSRC 


; TEST FPS 
‘RESULTANT FPS 


3;NO INTERRUPT 
;D0 TEST 
;ACO 


RESULT 
; TEST FPS 
;RESULTANT FPS 


;RESULTANT FPS 


;NO T 
300 TEST 


;F SRC 

;RESULT 

; TEST FPS 
sRESULTANT FPS 


;RESULT 

; TEST FPS 
;RESULT FPS 
;NO INTERRUPT 


SEQ 0248 


ae 
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FLOATING POINT 
14064 071034 


14077 071106 
14078 
14079 071110 


14107 071242 


tr 071266 
14115 071270 
14116 


TESTS 


000167 


000234 


000000 
177776 
177776 


003030 
000204 


000000 
177776 
177776 


003030 


003030 


003030 


003030 


R7,MLFSUB 





WORD 0 
"WORD 140377,177776 
"WORD 160177,177776 
"WORD 17 
“WORD 10 
;11/AC>0>FSRC, TRUNCATE 
CLR aeF LAG 
JSR R7 ,MLFSUB 
"WORD 
"WORD 140377,177776 
"WORD  160177,177776 
“WORD 7547 
. WORD 
;12/UNDERFLOW, NO INTERRUPTS 
MOV $2, AGF LAG 
JSR R7.MLFSUB 
“WORD  200,1 
‘WORD  200,1 
. WORD a 
"WORD 42117 
“WORD 142100 
“WORD 12 
;13/0VERFLOW, TRAP 
MOV #1, Q0FLAG 
JSR R7, MLFSUB 
“WORD 177777,-1 
"WORD  40300,0 
“WORD  100077,-1 
“WORD 1117 
“WORD 101116 
“WORD 10 
;14/0VERFLOW NO TRAP 
MOV 
JSR 
WORD 
“WORD 
“ WORD 
“WORD 
“WORD 
“ WORD 
; 15/UNDEF INED 
MOV 
JSR 
WORD 
“ WORD 
“WORD 
“WORD 
“ WORD 
“WORD 
; 
JMP 


HOP 12 
5 eX aXaXeXaXaXeXaXeXaXeXaXeXaXeXeXeX eXeX eX aXaXeXaXaXeXeXex eX 
3 eX OX aX eX eX aX eX eX aX en aX aX aX anexeXarXaeXar aXeX eX aX aXaXeXeXeX ex 


ACO 
F SRC 


SEQ 0249 


E4 
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141 
14138 071330 
14139 071332 


14140 
14141 
14142 
14143 071334 
14144 071342 
14145 071344 
14146 071350 


14147 

14148 071352 
14149 

14151 

14152 071356 
141 

14155 071372 
14156 

14157 071374 
14158 071400 
14159 071402 
14160 071404 
14161 071410 


14162 071412 
14163 071416 
14164 


14175 071444 
14176 071450 
14177 


FLOATING POINT TESTS 


071356 
000200 


000004 
000014 


000244 


003030 


003030 


; FPS BEFORE EXECUTION 
— EXECUTION 


; eX aXeXaXaXaXaX aXaXaXaXaXaXeXeXaXeXaXaXeXaXaXaX aXaXaXaXaX aX 
5 BKK HK KK HK KK KK KK KKK KK XK KKK KEK OK OK K OK OK OK 


MLFSUB: MOV (SP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
MOV #50$, AF PVEC ‘REDIRECT TRAP VECTOR 
MOV $200. R2 ;SET 10 DOUBLE MODE FOR LOAD 
LDFPS Re ;LOAD FPS 
LDD (RS), ACO ;LOAD ACO WITH TEST DATA 
MOV R5,R4 :POINT TO FSRC DATA 
ADD #4'R4 
MOV 14(R5),R2 ;GET TEST FPS 
LOFPS R2 ;LOAD TEST FPS 
MULF §_ (R4),ACO ;#TEST INSTRUCTION 
1$: SETF :WAIT FOR POSSIBLE FPA TRAP. 
;INSTRUCTION DIDNT TRAP 
BIT #1, 9@F LAG -VERIFY A NO TRAP CONDITION 
BEQ ;BRANCH IF GOOD 
CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP 
S INSTRUCTION SHOULD HAVE TRAPPED 
UMP 2$ ;REJOIN CODE 
SINSTRUCTION TRAPPED 
dos: BIT #1. @4F LAG SEE IF EXPECTING A TRAP. 
BNE 51$ SBRANCH IF EXPECTING A 
CALL §§ @@DETFPA “DETERMINE FLOATING POINT maT. $$$ 
ERROR +3 FPP 
S INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ ;REJOIN C 
Si¢: MOV (SP)+,R4 ;SEE IF PC = INSTRUCTION 
TST (SP)- CLEAN UP STACK 
CMP #1$,R4 
BEQ ‘BRANCH IF GOOD COMPARE 
CALL SOE TFPA _ DETERMINE FLOATING POINT FAULT. $$$ 
¢ ; 


;PC WAS INCORRECT 
:COMMON CODE FOR TRAP AND NO TRAP 


? 
2$: STFPS R3 ;SAVE FPS 
$200 ,R2 ;SET FPP TO DOUBLE 
LOFPS Re 
MOV @RECDST ,R1 ;POINT TO RECEIVED DATA TABLE 
STD ACO (Ri) ;SAVE ACO RESULT 
CMP 6(R5),R3 ;VERIFY STATUS 
BEQ 3 ;BRANCH IF 
CALL § @#DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 PP ERROR 


‘BAD FPS 





SEG 0250 


F4 
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FLOATING POINT TESTS 


SEQ 0251 


14178 071452 010504 3$; MOV R5,R4 3 ;POINT TO EXPECTED DATA 
14179 071454 062704 000010 ADD #10,R4 
14180 071460 004767 046376 4$: JSR R7, DATVFR ; VERIFY DATA 
14181 071464 005767 111430 TST COUNT 
14182 071470 001403 BEQ S$ ;BRANCH IF GOOD 
14183 071472 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
14184 071476 104003 ERROR +3 [FPP ERROR 
14185 ;BAD ACO 
14186 071500 005737 003030 S$: TST aeFLAG ;SEE IF NEED TO CHECK FEC 
14187 071504 001002 BNE 6$ ;BRANCH IF NEED TO CHECK 
14188 071506 000165 000020 JMP 20(R5) ;RETURN FROM TEST 
14190 -VERIFY ERROR STATUS 
14192 071512 170301 6$: STST Ri ;SAVE FEC 
14193 071514 016504 000020 MOV 20(R5),.R4 :GET FEC 
14194 071520 020401 R4,R1 : VERIFY FEC 
14195 071522 001403 BEQ 7$ ;BRANCH IF GOOD 
14196 071524 004737 140132 CALL § @@DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
14197 071530 104003 ERROR +3 ;FPP ERROR 
14198 ;BAD FEC 
14199 071532 000165 000022 7$: JMP 22(R5) :RETURN FROM TEST 
14200 071536 HOP 12: 
; 
= 8 ele ny ie a emt 
14205 :TEST MULD 
14206 ; 
14207 071536 MMULD : 
14208 ; 
14209 31/AC=0 
14210 071536 005037 003030 CLR @eF LAG ;NO INTERRUPT 
14211 071542 004767 000554 JSR +i MLDSUB ;D0 TEST 
14212 071546 000100 000000 “WORD  100,0,0,0 ;ACO 
071554 000000 
14213 071556 000411 177777 000000 WORD 411,-1,0,1 ;FSRC 
14214 071566 000000 000000 000000 .WORD 0,0,0,0 ;RESULT 
071574 000000 
14215 071576 000200 .WORD 200 ; TEST FPS 
14216 071600 000204 “WORD 204 :RESULTANT FPS 
14217 ;2/FSRC=0 
14218 071602 005037 003030 CLR @OFLAG ;NO INTERRUPT 
14219 071606 004767 000510 JSR R7 ,MLDSUB ;D0 TEST 
1 071612 077777 000000 “WORD 77777,0,0,0 ACO 
1620 000000 
14221 071622 000000 000000 000000 .WORD 0,0,0,0 ;FSRC 
71630 000000 
14222 071632 000000 000000 000000 .WORD 0,0,0,0 ;RESULT 
1640 000000 
14223 071642 007700 .WORD 7700 ; TEST FPS 
71644 007704 sei "WORD 7704 ‘RESULTANT FPS 
a ; = 
14226 071646 005037 003030 CLR @eFLAG ;NO INTERRUPT 
14227 071652 004767 000444 JSR R7,MLDSUB ;00 TEST 
14228 071656 000000 000000 “WORD  40200,0,0,0 ACO 
071664 000000 
14229 071666 000277 177777 177777 .WORD 277,-1,-1,-1  ;FSRC 
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SEQ 0252 
FLOATING POINT TESTS 
071674 177777 
14230 071676 000277 177777 177777 WORD 277,-1,-1,-1 ;RESULT 
071704 177777 
14231 071706 007717 .WORD 7717 ; TEST FPS 
14232 071710 007700 "WORD 7700 SRESULTANT FPS 
14233 4/AC>FSRC>0, TRUNCATE 
14234 071712 005037 003030 CLR avr LAG ;NO INTERRUPT 
14235 071716 004767 000400 JSR R7,MLDSUB ;D0 TEST 
14236 071722 965500 000000 000000 "WORD 65500,0,0,1 ACO 
14237 071732 Osre7 177777 (177777 .WORD 37577,-1,-1,-2 ;FSRC 
071740 177776 
14238 071742 065077 177777 177777 WORD 65077,-1,-1,-1 ;RESULT 
071750 177777 
14239 071752 007717 .WORD 7717 ; TEST FPS 
14240 071754 007700 "WORD 7700 ;RESULTANT FPS 
;5/AC<FSRC<O 
14242 071756 005037 003030 CLR aeFLAG ;NO INTERRUPT 
14243 071762 004767 000334 JSR R7, MLDSUB :D0 TEST 
14244 071766 137577 177777 177777 ‘WORD 137577,-1,-1,-2 ;ACO 
071774 177776 
14245 071776 165400 000000 000000 WORD 165400,0,0,i1  ;FSRC 
072004 000001 
14246 072006 065000 000000 000000 WORD 65000,0,0,0 ;RESULT 
072014 000000 
14247 072016 007717 .WORD 7717 ; TEST FPS 
14248 072020 007700 "WORD 7700 ;RESULTANT FPS 
;6/AC>FSRC>0 
005037 003030 CLR aeFLAG :NO INTERRUPT 
14251 072026 004767 000270 JSR R7,MLDSUB :DO TEST 
14252 072032 017500 000000 WORD  17500,0,0,0 ACO 
14253 073042 123652 125252 125252 WORD  123652,125252,125252, 125252 sFSRC 
14254 072052 103177 177777 177777 WORD 103177,-1,-1,-1 ;RESULT 
072060 177777 
14255 072062 .WORD 200 ; TEST FPS 
14256 072064 000210 "WORD 210 sRESULTANT FPS 
4257 ;7/UNDERFLOW, TRAPS DISABLED 
14258 072066 005037 003030 CLR aeF LAG ;NO INTERRUPT 
14259 072072 004767 000224 J R7,MLDSUB :DO TEST 
14260 072076 000300 000000 000000 ‘WORD  300,0,0,252 ACO 
072104 000252 
14261 072106 000377 000001 000002 WORD 377,1,2,3 ;FSRC 
072114 000003 
14262 072116 000000 000000 000000 WORD 0,0,0,0 ;RESULT 
072124 000000 
14263 072126 005740 .WORD 5740 ; TEST FPS 
14264 072130 005744 "WORD 5744 :RESULT FPS 
14265 ;8/UNDERFLOW, TRAP ENABLED 
14266 072132 012737 000001 003030 MOV $1, 2@FLAG INTERRUPT 
14267 072140 004767 000156 JSR R7.MLDSUB :DO TEST 
14268 072144 100277 000001 000002 “WORD 100277,1,2,-1 ;ACO 
072152 177777 
14269 072154 100500 000001 000001 WORD  100300,1,1,1 sFSRC 
14270 072164 040417 040001 077403 .WORD 40417,40001,77403,0 ;RESULT 
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FLOATING POINT 


072172 
14271 072174 
14272 072176 
14273 072200 
14274 
14275 072202 
14276 072206 
14277 072212 


072220 
14278 rates 


2266 

14286 072270 
14287 072300 
072306 

14288 072310 
14289 072312 
14290 072314 


1 
13538 072316 


14313 072354 
14314 
14315 072356 
14316 072360 
14317 
14318 
14319 
14320 072362 


TESTS 


000000 
002217 
102200 
000012 
005037 


004767 
177777 
177777 


040200 
177777 
000000 
000000 
006740 
006746 
012737 
004767 
157700 
025252 
167700 
000000 
007420 
117777 
001240 
101242 
000010 
000167 


171011 
170011 


032737 


000110 
177777 
177777 
000000 


000001 
000042 
025252 
000000 
017777 


000242 


072404 
000200 


000010 
000030 


000001 
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177777 
177777 
000000 


003030 
025252 
000000 
117777 


000244 


.WORD 2217 ; TEST FPS 


-WORD 102200 ;RESULT FPS 
-WORD 12 ;FEC 
;9/O0VERFLOW, TRAPS DISABLED 
CLR a¢FLAG ;NO INTERRUPT 
JSR R7,MLDSUB ;D0 TEST 
. "36 “*86*pe* ;ACO 
WORD 40200,-1,-1,-1 ;FSRC 
. WORD 0,0,0,0 ;RESULT 
.WORD 6740 ; TEST FPS 
.WORD 6746 ;RESULT FPS 
;10/0VERFLOW, TRAPS ENABLED 
MOV #1,3¢FLAG ; INTERRUPT 
JSR R7, MLDSUB ;D0 TEST 
“WORD 157700,25252, 25252, 25252 ;ACO 
-WORD 167700,0,0,0 ;F SRC 
.WORD 7420,017777,117777,117777 ;RESULT 
-WORD 1240 ; TEST FPS 
-WORD 101242 ;RESULT FPS 
-WORD 10 ; 


JMP HOP13 
5 *XaXaXaXaXaXaXaXeXeXaXaXaXaeXeXeXeXaXaXeXaXaXaXaXaXaXaXaXeX 
5 aXaXeXaXaXaXeXeXeXaXaXaXeXeX aX aX aXaXaXaeXaXeX aX aXeXeXeXeXeX 


FSRC 
FPS BEFORE EXECUTION 
—¥ EXECUTION 


5 eX aXaXeXeXaXaeXaXaeXeXeXaXaXaXaXeX aXe XeXaXeXeXaXaXeXaXeXaXeX 
5 eX aXeXeXaXaXaXaXaXaXeX aX aX eX aX aX eXaXaX aX aXeXaXeXaXaXaXeXeX 


MLDSUB: MOV —s- CSP)+, RS , RETURN ADDRESS TO USE AS POINTER 
MOV «$503 ,a@FPVEC TREDIRECT TRAP VECTOR 
MOV 300; R2 ‘SET TO DOUBLE MODE FOR LOAD 
LOFPS ‘LOAD FPS 
C00. (RS), ACO ‘TOAD ACO WITH TEST DATA 
Ri ‘BOINT TO FSRC DATA 
ADD #10,R1 
MOV R5),R2 :GET TEST FPS 
LOFPS R TOAD TEST FPS 
, MULD (RL). ACO ,4TEST INSTRUCTION 
i$: SETD ‘WAIT FOR POSSIBLE FPA TRAP. 
‘INSTRUCTION DIDNT TRAP 
BIT «#1, @YF LAG .VERIFY A NO TRAP CONDITION 


SEQ 0253 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VO5.03 Friday 28-Mar-86 13:30 
FLOATING POINT 


14321 072370 
14322 072372 
14323 072376 


350 072464 
14351 072470 
14352 072472 
143535 072476 
14354 


14 
14374 072560 
14375 072564 


14 
14379 


TESTS 


004737 
04003 


140132 


140132 


BEQ 2$ 
CALL § @@DETFPA 
ERROR +3 
UMP 2$ 
SINSTRUCTION TRAPPED 
003030 50$: BIT #1, °FLAG 
CALL § @SDETFPA 
ERROR +3 
JMP 2$ 
51$ $ MOV (SP )+ y R4 
TST (SP )+ 
CMP $1$,R4 
BEQ 
CALL § @@DETFPA 
ERROR +3 


Page 14-235 


;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. 


FPP 
; INSTRUCTION SHOULD HAVE TRAPPED 
;REJOIN CODE 


;SEE IF EXPECTING A 
;BRANCH IF EXPECTING. A 


; DETERMINE FLOATING POINT AFAULT. 


;FPP ERROR 
er WASNT SUPPOSE TO TRAP 


N CODE 
; SEE IF PC = INSTRUCTION 
— UP STACK 


; BRANCH IF GOOD COMPARE 


DETERMINE FLOATING POINT FAULT. 


;FPP 
;PC WAS INCORRECT 


; COMMON CODE FOR TRAP AND NO TRAP 


bs: 


STFPS RB 
MOV ,R2 
LOFPS R2 
MOV @RECDST ,R1 
STD ACO, (RL) 
CMP 32(R5),R3 
BEQ 3$ 
CALL §§ @OETFPA 
ERROR +3 
3$: MOV RS,R4 
ADD $20,R4 
43: JSR R7, DATVER 
TST COUNT 
BEQ S$ 
CALL §§ @@DETFPA 
ERROR +3 
S$ TST O¢F LAG 
JMP (RS) 
: VERIFY ERROR STATUS 
6$: STST 1 
MOV 34(R5),R4 
CMP R4,R1 
BEQ 7$ 
CALL OODETFPA 
7$: JMP 36(R5) 
HOP13 


;SAVE FPS 
;SET FPP TO DOUBLE 


;POINT TO RECEIVED DATA TABLE 
ACO RESULT 


‘SA 

‘VERIFY STATUS 

‘BRANCH IF GOOD 
as ‘DETERMINE FLOATING POINT FAULT. 
TBAD FPS 

;POINT TO EXPECTED DATA 

;VERIFY DATA 

SBRANCH IF GOOD 

DETERMINE FLOATING POINT FAULT. 
SFPP ERROR 
;BAD ACO 


;SEE IF NEED TO CHECK FEC 
;BRANCH IF NEED TO CHECK 
;RETURN FROM TEST 


;BAD FEC 
;RETURN FROM TEST 


el a 


F GOOD 
DETERMINE FLOATING POINT FAULT. 


$$$ 


$$$ 


$$$ 


$$$ 


$$5 


$$$ 


SEQ 0254 


J4 
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389 072604 
14390 072610 
14391 072614 
14392 072616 
14393 


14409 04 
14410 072706 


14411 
14412 072710 
14413 072714 
a4aia 


14419 072742 
14420 

14421 072744 
14422 750 


73024 
14436 073030 
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;TEST MODF 
; 
MMOODF : 
;1/AC=0 FSRC=0 
CLR aeF LAG ;NO INTERRUPT 
JSR R7, ;D0 TEST 
“WORD 100,0  ;ACO 
"WORD 12346, - FSRC 
“WORD 0,0 ;FRACTIONAL RESULT 
"WORD 0,0 ;INTEGER RESULT 
"WORD 13 : TEST FPS 
"WORD 4 :RESULTANT FPS 
;2/FSRC=0 
CLR LAG ;NO INTERRUPT 
JSR R7, MDF SUB :DO TEST 
"WORD 12356,-1 ;ACO 
“WORD 0,0 ;FSRC 
“WORD 0,0 ;FRACTIONAL RESULT 
“WORD 0,0 ; INTEGER RESULT 
"WORD 3 ; TEST FPS 
‘WORD 4 ;RESULTANT FPS 
;3/AC=0 
CLR aeFLAG ;NO INTERRUPT 
JSR R7, MDF SUB :DO TEST 
“WORD 0,0 ;ACO 
-WORD -i,-1 3F 
"WORD 0,0 sFRACTIONAL RESULT 
“WORD 0,0 ;INTEGER RESULT 
“WORD 7500 ; TEST FPS 
"WORD 7504 ;RESULT FPS 
;4/AC>FSRC>0 
CLR a0F LAG ;NO INTERRUPT 
JSR R7 , MDF SUB ;D0 TEST 
‘WORD 46252,125252—s ; 
"WORD 40300.0 ;FSRC 
“WORD 0,0 ;FRACTIONAL RESULT 
“WORD  46377,-1 jINTEGER RESULT 
“WORD 13 ; TEST FPS 
"WORD 4 ;RESULTANT FPS 
;5/AC>FSRC>0 
CLR LAG :NO INTERRUPT 
JSR R7 , MOF SUB :D0 TEST 
. WORD 652, ;ACO 
"WORD 40300,0 ;FSRC 
“WORD 0, ;FRACTIONAL RESULT 
"WORD  77777,- INTEGER RESULT 
"WORD ; TEST FPS 
. WORD ;RESULTANT FPS 
3;6/AC>0<FSRC, INTEGERS 
CLR LAG ;NO INTERRUPT 
JSR R7, MDF SUB ;D0 TEST 
WORD 0 ; ACO 
"WORD  147400,25700 sFSRC 
“ WORD 0 ;FRACTIONAL RESULT 
"WORD  170000,25700 jINTEGER RESULT 
"WORD 7400 ; TEST FPS 





SEQ 0255 


IK4 
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FLOATING POINT 


14437 073032 
14438 

14439 073034 
14440 073040 





TESTS 


: 7404 
;7/AC<O<FSRC, FRACTIONAL 
. R OeFL 


g55855°°%5 


10 
;8/AC<O>FSRC, TRUNCATE 
R ar 


g555e8" 
& 


2 
: 


ct 
: 
. 


3;10/T 


a 


5555" 


; 12/ROUND 


a: 
aggro 


WORD 
" WORD 
" WORD 
"WORD 66707,25160 
“WORD 
WORD 
MOV 





;RESULT FPS 


;NO INTERRUPT 
;D0 TEST 
;ACO 


;F SRC 

sFRACTIONAL RESULT 
s INTEGER RESULT 
$ T FPS 


;RESULT FPS 
3;NO INTERRUPT 
+ eae 


;F SRC 

‘FRACTIONAL RESULT 
GER RESULT 

; TEST FPS 


;RESULT FPS 

;NO INTERRUPT 
;00 TEST 
;ACO 


;F SRC 

sFRACTIONAL RESULT 
-— RESULT 

; TEST 


;RESULT FPS 


;NO INTERRUPT 
;D0 TEST 
ACO 


;F SRC 
;FRACTIONAL RESULT 
; INTEGER RESULT 


; TEST FPS 
;RESULT FPS 


;NO 
e 0 
FRACTIONAL RESULT 
; INTEGER RESULT 
; TEST FPS 
;RESULT FPS 
;NO INTERRUPT 
300 TEST 
;ACO 


;F SRC 
sFRACTIONAL RESULT 

ae RESULT 
; TEST F 


S 
;RESULT FPS 
; INTERRUPT 


INTERRUPT 
;00 TEST 


SEQ 0256 


ES KK LT 


4 
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3EQ 0257 









14494 073 004767 000032 JSR R7 , MDF SUB | ;D0 TEST 

14495 073316 076000 000000 “WORD  76000,0 ACO 

14496 073 076000 000000 .WORD 76000,0 FSRC 

14497 073326 000000 .WORD 0,0 ‘FRACTIONAL RESULT 

14498 073332 033600 000000 "WORD  33600,0 ; INTEGER RESULT 

14499 073336 001000 -WORD 1000 ; TEST FPS 

4500 0 101006 -WORD 101006 ;RESULT FPS 

pee 073342 000010 .WORD 10 ;FEC 

Poo 073344 000167 000310 JMP HOP 14 

14505 * aXeXeXeXeXaXeXeXeXeXeXeXexexeXeXeXexXexeXeXeXexeXeXexeXeXex 

itaoe 5 KKK KKK eX KK KK XK KK OK OK KK OK OX OX OX XX 
14508 ; ACO 

14509 ; FSRC 
14510 ; FRACTIONAL RESULT 
14511 ; INTEGER RESULT 
45i2 ; FPS BEFORE EXECUTION 
14513 ; FPS AFTER EXECUTION 
teats ; (FEC) 
14516 ; eXeX aXaXeXeXaXaX eX eXaXeXaXaXeXeXeX aX eXaXeXaXeXeXeXeXeXeXeX 
asia + eX aXe X aX OK eK HX HX SK EX EK EK EX EX OXON EX EK SX EX SXSX OX EX EX EX EX SX OX 
14519 073350 MDF SUB : MOV (SP )+,R5 ; RETURN ADDRESS TO USE AS POINTER 
14520 073352 012737 073440 000244 MOV #503, aeF PVEC REDIRECT TRAP VECTOR 
14521 073360 012702 MOV 8200. R2 ;SET TO DOUBLE MODE FOR LOAD 
14522 073364 170102 LDFPS ;LOAD FPS 
14523 073366 172415 LDD CR5) ~ : LOAD ACO WITH TEST DATA 
14524 073370 012701 073650 MOV ;LOAD KNOWN INTO ACi 
14525 073374 172511 LDD Reh Aci ; 
14526 0 010501 MOV Ri ;POINT TO FSRC DATA 
14527 073400 062701 000004 ADD 
14528 0 016 000020 MOV SotRS) Re ;GET TEST FPS 
Pet 073410 170102 LDOFPS R2 ;LOAD TEST FPS 
; 
1aa3i 073412 171411 MODF (R1),ACO ;#TEST INSTRUCTION 
iene 073414 0001 1s: SETF ;WAIT FOR POSSIBLE FPA TRAP. 
pee INSTRUCTION DIDNT TRAP 
; 

14536 073416 032737 000001 003030 BIT #1,30FLAG ; VERIFY A NO TRAP CONDITION 
14 0 001426 BEQ 2 ;BRANCH IF 
14 0 004737 140132 CALL @eDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
14539 073432 104003 ERROR «3 ;FPP ERROR 
14540 ; INSTRUCTION SHOULD HAVE TRAPPED 
ee ot 073434 000167 000042 JMP 2$ ;REJOIN CODE 
takes s INSTRUCTION TRAPPED 

14545 073440 032737 000001 003030 50: BIT #1,30FLAG ;SEE IF EXPECTING A oo 

0 001005 BNE ;BRANCH IF EXPECTING A 
14547 yLe py yy ob 140132 CALL aperrrn _ DETERMINE FLOATING POINT FAULT. $$$ 
0400 + : 

14549 s INSTRUCTION WASNT SUPPOSE TO TRAP 
14550 073456 000167 000020 JMP 2$ ;REJOIN CODE 








M4 
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SEQ 0258 
FLOATING POINT TESTS | 
14551 073462 012604 5i$: MOV (SP)+,R4 | ;SEE IF PC = INSTRUCTION 
14552 073464 005726 TST (SP)+ ;CLEAN UP STACK 
14553 073466 022704 073414 CMP #1$,R4 
14554 073472 001403 BEQ 2$ ;BRANCH IF GOOD COMPARE 
14555 073474 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
14556 073500 104003 ERROR +3 SFPP ERROR 
14557 ;PC WAS INCORRECT 
14559 “COMMON CODE FOR TRAP AND NO TRAP 
14561 073502 170203 2$: STFPS R3 ;SAVE FPS 
14562 073504 012702 000200 MOV #200 ,R2 “SET FPP TO DOUBLE 
14563 073510 170102 LOFPS Re 
14564 073512 012701 003142 MOV #RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
14565 ;SAVE FRACTIONAL RESULT 
14566 073516 174011 STD ACO, (R1) ;SAVE ACO RESULT 
14567 073520 026503 000022 CMP 22(R5),R3 SVERIFY STATUS 
14568 073524 001403 BEQ 3$ } F 
14569 073526 004737 140132 CALL § @SDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
14570 073532 104003 ERROR +3 SFPP ERROR 
14571 ;BAD FPS 
14572 073534 010504 3$; MOV :POINT TO EXPECTED DATA 
14573 073536 062704 000010 ADD 210, RA 
14574 073542 004767 044314 43: JSR 7 DATVFR ;VERIFY DATA 
14575 073546 005767 107346 TST 
14576 073552 001403 BEQ count ;BRANCH IF GOOD 
14577 073554 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
14578 073560 104003 ERROR +3 SFPP ERROR 
14579 ;BAD ACO 
14580 ;SAVE INTEGER RESULT 
14581 073562 174111 S$: STD ACI, (R1) ;SAVE ACL RESULT 
14582 073564 010504 MOV RS,R4 ;POINT TO EXPECTED 
14583 073566 062704 000014 ADD #14,R4 
14584 073572 004767 044264 JSR R7,DATVFR sVERIFY DATA 
14585 073576 005767 107316 TST COUNT 
14586 073602 001403 BEQ 6$ ‘BRANCH IF GOOD 
14587 073604 004737 140132 CALL § @SDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14588 073610 104003 ERROR +3 sFPP ERR 
; 
14590 073612 005737 003030 6$: TST @OFLAG ;SEE IF NEED TO CHECK FEC 
14591 073616 001002 BNE 7$ ;BRANCH IF NEED TO CHECK 
14592 073620 000165 000024 JMP 24(R5) ;RETURN FROM TEST 
14593 073624 170301 7$: STST Ri ;SAVE FEC 
14594 073626 016504 000024 MOV 24(R5),R4 “GET FEC 
14595 073632 020401 CMP R4,R1 ‘VERIFY FEC 
14596 073634 001403 BEQ 8$ ;BRANCH IF GOOD 
14597 073636 004737 140132 CALL § @@DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
‘ieee 073642 104003 ERROR +3 ;FPP ERROR va 
14600 073644 00165 000026 8s: UMP ss 26(RS) RETURN FROM TEST 
° 
14602 073650 177777 177777 177777 MODGAR: .WORD -1,-1,-1,-1 ;KNOWN DATA FOR ACL 
073656 177777 
14603 073660 HOP14: 
14604 


14607 ; 
14608 





COKDAFO KDJ11-8 CLUSTER DIAG. 


14610 
14611 073660 
14612 
14613 
14614 073660 
14615 073664 
14616 073670 
073676 
14617 de as 
14618 073710 
073716 
14619 073720 
073726 
14620 073730 
14621 073732 
14622 
14623 073734 
14624 073740 
14625 073744 
073752 
14626 073754 
073762 
14627 073764 
073772 
14628 073774 
074002 
14629 074004 
tants 074006 
14632 074010 
14633 074014 
14634 074020 
074026 
14635 074030 
14636 074040 
4046 


4102 

14644 074104 

074112 

14645 074114 

074122 

14646 074124 

074132 

14647 074134 

14648 074136 
14649 


FLOATING POINT TESTS 


003030 
001164 
177777 
000000 
000000 
000000 


003030 
001110 
000000 


177777 
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177777 
000000 
000000 
000000 


125252 
000000 
000000 
177777 


000000 
133572 
000000 
162531 


; TEST MODD 


;1/AC>FSRC=0 
CLR 
JSR 


;2/AC=0<FSRC 
J 


s5 55 5 3 


;3/ACOF 


5: 


2 
%S 


y 


;4/AC<O>F 


Siti BEE 


;5/AC>FSRC> 


o 


a#F LAG ;NO INTERRUPT 
R7,MDDSUB ;D0 TEST 
12345,-1,-1,-1 ;ACO 

100,0,0,0 sFERC 

0,0,0,0 ;FRACTIONAL RESULT 
0,0,0,0 ; INTEGER RESULT 

200 ; TEST FPS 

204 ;RESULTANT FPS 

avF LAG ;NO INTERRUPT 
R7,MDDSUB ;D0 TEST 
0,0,0,0 ;ACO 

1234,-1,0,0 ;FSRC 

0,0,0,0 ; INTEGER RESULT 

7717 ; TEST FPS 

7704 ;RESULTANT FPS 

OF LAG ;NO INTERRUPT 

R7 ,MODSUB DO TEST 
56252, 125252,125252,125250  ;ACO 
40300,0,0,9 ;F SRC 

0,0,0,0 sFRACTIONAL RESULT 
56377,-1,-1,-4 ; INTEGER RESULT 
213 ; TEST FPS 

204 ;RESULTANT FPS 

OeF LAG ;NO INTERRUPT 
140240,0,0,0 ;ACO 

63714, 146314, 133572,167737 ;FSRC 
0,0,0,0 ;FRACTIONAL RESULT 


163777, -1,162531, 125726 


210 
204 


; TEST FPS 
;RESULTANT FPS 


; INTEGER RESULT 


SEQ 0259 
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FLOATING POINT 


14650 074140 
14651 074144 
14652 074150 
074156 

14653 oostes 
14654 074170 
074176 

14655 074200 
74206 


0 
14656 074210 
taake 074212 


146 
14659 074214 
14660 074220 


14670 074300 
4306 
14671 074310 
074316 
14672 074320 
14673 074 
0743 
14674 074340 
14675 074342 
14676 
14677 074344 
14678 074350 
14679 074354 
362 
14680 074364 
4372 
14681 074374 
4402 


TESTS 


003030 
000704 
000000 


000000 


003030 
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177777 


CLR aeFLAG NO INTERRUPT 
JSR R7 ,MDDSUB ;D0 TEST 
“WORD 56200,0,0,1 ACO 
WORD  40340,0,0,0 ;FSRC 
.WORD 0,0,0,0 ;FRACTIONAL RESULT 
WORD 56340,0,0,1 ;INTEGER RESULT 
.WORD 213 ; TEST FPS 
"WORD 204 ;RESULTANT FPS 
;6/TRUNCATE 
CLR aeFLAG ;NO INTERRUPT 
JSR R7 ,MDDSUB DO TEST 
"WORD 56252, 125252, 125252, 125252 SACO 
.WORD 40300,0,0,0 ;FSRC 
.WORD 0,0,0,0 ;FRACTIONAL RESULT 
WORD 56377,-1,-1,-1 ; INTEGER RESULT 
.WORD 253 ; TEST FPS 
"WORD 244 ;RESULT FPS 
;7/TRUNCATE FRACTION 
CLR @eFLAG ;NO INTERRUPT 
JSR R7,MDDSUB DO TEST 
"WORD 23252, 125252, 125252, 125252 SACO 
.WORD  40300,0,0,0 ;FSRC 
. WORD 23377,-1,-1.-1 ;FRACTIONAL RESULT 
.WORD 0,0,0,0 ;INTEGER RESULT 
.WORD 253 ; TEST FPS 
.WORD 240 sRESULT FPS 
;8/ROUND INTEGER 
CLR aéFLAG sNO INTERRUPT 
JSR R7, MDDSUB :D0 TEST 
. WORD 76600 ,0,0,125252 ;ACO 
.WORD 40300,0,0,0 ;FSRC 
.WORD 0,0,0,0 ;FRACTIONAL RESULT 
. WORD 76700,0,0,-1 ; INTEGER RESULT 
.WORD 200 ; TEST FPS 
"WORD 204 ;RESULT FPS 
;9/ROUND THROUGH FRACTION 
CLR @0FLAG ;NO INTERRUPT 
JSR R7 ,MDDSUB ;00 TEST 
“WORD 41525,052525,52525, 52525 ACO 
.WORD  40300,0,0,0 ;FSRC 





SEQ 0260 


EK — 
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FLOATING POINT 


074446 
14690 074450 

0744 
14691 074460 

074466 
14692 074470 
14693 074472 
14694 


14695 074474 


4514 
14698 074516 
074524 
14699 oneree 
14700 074536 
074544 
14701 074546 
14702 074550 
14703 074552 
14704 
14705 074554 
14706 074560 
14707 074564 
074572 
14708 074574 
074602 
14709 074604 
074612 
14710 074614 
074622 
14711 074624 
14712 074626 
4713 
14716 074642 
4650 
14717 074652 
14718 phe 
14719 074672 
074700 
14720 074702 
14721 074704 
14722 074706 
14723 
14724 074710 
14725 074716 
14726 074722 
074730 
14727 074732 
074740 
14728 074742 
074750 


TESTS 
000000 
040177 
177740 
041636 
000000 
007700 
007700 
012737 
177777 


177777 
000000 
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177777 
000000 


003030 
177777 


177777 


177777 


003030 


40177,-1,-1,177740 





. WORD ;FRACTIONAL RESULT 
. WORD re ; TEST FPS 
-WORD 7700 sRESULT FPS 
; /OVERFLOW, TRAPS ENABLED 
MOV #1,30FLAG ; INTERRUPT 
JSR 7, .MDDSUB ;D0 TEST 
. WORD ee es ;ACO 
. WORD 40400 ,0,0,0 ;F SRC 
. WORD 0,0,0,0 ;FRACTIONAL RESULT 
-WORD 100177,-1,-1,-1 ; INTEGER RESULT 
.WORD 7700 ; TEST FPS 
-WORD 107706 ;RESULT FPS 
.WORD 10 ;FE 
; INTEGER CHOPPED TO 56 BITS 
CLR ape ;NO INTERRUPT 
JSR MDDSUB ;D0 TEST 
. WORD 56700.0.0,-1 ;ACO 
. WORD 44440,-1,-1,-1 ;F SRC 
.WORD 0,0,0,0 sFRACTIONAL RESULT 
.WORD 63161,100000,1,40775 ; INTEGER RESULT 
-WORD 200 ; TEST FPS 
-WORD 204 ;RESULT FPS 
;/OVERFLOW, TRAPS DISABLED 
MOV #2, 30F LAG ;NO INTERRUPT 
JSR R7 ,MDDSUB ;D0 TEST 
-WORD 66600,0,0,0 ;ACO 
. WORD 66600 ,0,0,0 ;F SRC 
. WORD 0,0,0,90 ;FRACTIONAL RESULT 
. WORD 15200,0,0,0 ; INTEGER RESULT 
-WORD 47700 ; TEST FPS 
-WORD 147706 ;RESULT FPS 
-WORD 10 iF 
;/UNDERFLOW, TRAPS DISABLED 
MOV ps Bs LAG ;NO INTERRUPT 
JSR MDOSUB ;D0 TEST 
ORO 100277-1,2,-1 sACO 
. WORD 100300,1,1.1 ;F SRC 
. WORD 0,0,0,0 ;FRACTIONAL RESULT 


— SEQ 0261 


14729 074752 
074760 
14730 074762 
14731 074764 
14732 074766 
14733 
14734 074770 
14735 074776 
14736 075002 


75010 
14737 075012 


14769 075114 
14770 


14771 075116 
erie 075120 


TESTS 


032737 
001426 
004 


COKDAFO KDJ11-B CLUSTER DIAG. 
FLOATING POINT 


000000 


075144 
000200 


073650 


000010 
000040 


000001 
140132 
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000000 


077403 


000244 


003030 


.WORD 0,0,0,0 - INTEGER RESULT 
.WORD 5200 ; TEST FPS 
“WORD 5204 ;RESULT FPS 
-WORD 10 ; 
; /UNDERFLOW TRAPS ENABLED, UV AS RESULT 
MOV $1, a@F LAG ; INTERRUPT 
JSR R7, MDDSUB ;D0 TEST 
“WORD 100277,1,2,-1 ; ACO 
.WORD 100300,1,1,1 sFSRC 
-WORD 40417,40001,77403,0 sFRACTIONAL RESULT 
.WORD 0,0,0,0 ; INTEGER RESULT 
.WORD 2200 ; TEST FPS 
“WORD 102200 ;RESULT FPS 
.WORD 12 ;FEC 
UMP 


HOP 15 ; JUMP OVER SUBROUTINE 
5 eXaXeXaXeXaXeXeXaXeX eX aXeXaXaXaX eX aX eXaXeXeXaXeXaXeXeXeXeX 
5 *XaXeXaXeXeXaXeXeXaXeX eXeXeXaXeX eX aXeXaXeXaXaXeXaXeXeX aX eX 


ACO 

FSRC 

FRACTIONAL RESULT 
INT RESUL 





(FEC) 


EGER T 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


: eX eX aX SX HX OX SX NEN ENENEXEX SX HX HX EK HX EXON SX EN HX GX HX SX EX SK EX 
5 eXaXaXaXaXeXeXeXaeXeXaXaXaXeXeXeXaXeXeXeXeXaXaXeXeXeXeXeXeX 


MDDSUB: MOV (SP)+,R5 
MOV #508 , QF PVEC 
MOV $200 .R2 
LOFPS 2 
LDD (RS), ACO 
MOV 
LOD Ri), ACL 
po yr 
MOV qOcRS) RO 
LOFPS Re 

' MoDD « (R1), ACO 

i$: SETD 

‘INSTRUCTION DIDNT TRAP 

, BIT «#1, @@F LAG 
BEQ 
CALL § @@DETFPA 
ERROR +3 


; RETURN ADDRESS TO USE AS POINTER 
;REDIRECT TRAP VECTOR 

;SET TO DOUBLE MODE FOR LOAD 

;LOAD FPS 

sLOAD ACO WITH TEST DATA 

;LOAD KNOWN INTO AC1 

;POINT 10 FSRC DATA 


;GET TEST FPS 
;LOAD TEST FPS 


;#TEST INSTRUCTION 
;WAIT FOR POSSIBLE FPA TRAP. 


VERIFY A NO TRAP CONDITION 
;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 


FPP 
; INSTRUCTION SHOULD HAVE TRAPPED 


SEQ 0262 
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SEQ 0263 


14781 075140 000167 000042 JMP 2$ ;REJOIN CODE 
; 

14783 SINSTRUCTION TRAPPED 
14785 075144 032737 000001 003030 50$: BIT #1, 20F LAG ;SEE IF EXPECTING A TRAP 
4786 075152 001005 BNE S51$ ;BRANCH IF EXPECTING A 
14787 075154 004737 140132 CALL § @@DETFPA ;DETERMINE FLOATING POINT AFAULT. $$$ 
14788 075160 104003 +3 FPP 
4789 S INSTRUCTION WASNT SUPPOSE TO TRAP 
14790 075162 000167 000020 JMP 2$ ;REJOIN C 
14791 075166 012604 Sis: MOV (SP)+,R4 :SEE IF PC = INSTRUCTION 
14792 075170 005726 TST (SP)+ CLEAN UP STACK 
14793 075172 022704 075120 CMP $1$.R4 
14794 075176 001403 BEQ 2$ ‘BRANCH IF GOOD COMPARE 

0 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
147% 075204 104003 ERROR +3 ;FPP 
14797 ;PC WAS INCORRECT 
14799 “COMMON CODE FOR TRAP AND NO TRAP 
14801 0 170203 2s: STFPS RB ;SAVE FPS 
14802 075210 012702 000200 MOV #200, R2 -SET FPP TO DOUBLE 
14803 075214 170102 LOFPS 
14804 075216 012701 003142 MOV @RECDST,R1 ;POINT TO RECEIVED DATA TABLE 

;SAVE FRACTIONAL RESULT 

0 174011 STD ACO CRI) ;SAVE ACO RESULT 
14807 075224 026503 000042 CMP 42(R5),R :VERIFY STATUS 
14808 075230 001403 BEQ ;BRANCH IF 
14809 075232 004737 140132 CALL BQ0ETFPA DETERMINE FLOATING POINT FAULT. $$% 
14810 075236 104003 ERROR +3 SFPP ERROR 
14811 ;BAD FPS 
14812 075240 010504 3$: MOV RS,R4 ;POINT TO EXPECTED DATA 
14813 075242 062704 000020 ADD R4 
14814 075246 004767 042626 4s: JSR R7,DATVER ;VERIFY DATA 
14815 075252 005767 105642 TST COUNT 
14816 075256 001403 BEQ $ ;BRANCH IF GOOD 
14817 075260 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
14818 075264 104003 ERROR +3 SFPP ERROR 
14819 ;BAD ACO 
14820 ;SAVE INTEGER RESULT 

0 174111 és; STD —ACA, (RID SAVE ACL RESULT 
14823 075270 010504 MOV RS, R4 sPOINT TO EXPECTED 
14824 075272 062704 000030 ADD #30 ,R4 
14825 075276 004767 042576 R7, DATVER :VERIFY DATA 
14826 0 005767 105612 TST COUNT 
14827 0 001403 6$ ‘BRANCH IF GOOD 
14828 075310 737 140132 CALL  @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
14829 075314 104003 +3 FPP 
1 ;BAD ACL 
14831 075316 005737 003030 6$: TST @eFLAG ;SEE IF NEED TO CHECK FEC 
14832 075322 001002 BNE 7$ ;BRANCH IF NEED TO 
14833 0 000165 000044 JMP 44(RS) ;RETURN FROM TES 
14834 0 170301 7$: STST RI ;SAVE FEC 
14835 075332 016504 000044 MOV 44(R5),R4 FEC 
14836 ‘Rl ;VERIFY FEC 


PS 
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FLOATING POINT 
14838 075342 


14839 075346 


75366 

14855 075370 
075376 

14856 075400 
14857 075402 


14870 

14871 075464 

14872 075470 
075476 

14873 olanee 


14874 075510 
14875 075512 


TESTS 


004737 
104003 


000165 


140132 


000046 


000170 


000140 
177777 
177777 


000120 
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177777 


100000 


125252 


MSFD: 
;1/AC=0 


;2/AC>0, 


;5/AC<0, 


B55 55 5 


% 


;4/AC=-0 


;5/AC<0 


a5 5 5" 


rit, 


Page 14-245 


;DETERMINE FLOATING POINT FAULT. $$$ 


aeDETFPA 
+3 ;FPP 
BAD FEC 

46(R5) SRETURN FROM TEST 
R7, SFDSUB :D0 TEST 
0177,0,0,1 ;ACO 
0,0,0,0 ;RESULT 

47557 ; TEST FPS 
mae sRESULT FPS 

R7, SFDSUB ;D0 TEST 

77577, -1,-1,-1 ;ACO 
77577,-1,0,0 ;RESULT 
7540 ; TEST FPS 

7540 sRESULT FPS 

R7, SFDSUB ;D0 TEST 
100377, -1,100000,0 ACO 
100377,-1,0,0 ;RESULT 

7517 ; TEST FPS 

7510 ;RESULT FPS 

R7, SFDSUB DO TEST 
100000,0,0,0 ACO 
0,0,0,0 ;RESULT 

7757 ; TEST FPS 

7744 ;RESULT FPS 

R7, SFDSUB DO TEST 
128252, 125252, 125252, 125252 
125252, 125252,0,0 ;RESULT 
0 ; TEST FPS 

10 ;RESULT FPS 


;ACO 


HOP 16 ;GET OVER SUBROUTINE 
5 KKK RK HK HK KK eK KK eK KK KX XK KKK XX KOK SKS KS KX 
5 aXe Xe XaeXeXaX eX aX eX HX HX HK HX eX EK AX HX SX HX HX EXE RX EX RX HX SKS EX 


;STCFD 


SEQ 0264 
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SEQ 0265 


14887 ; ACO 
14888 RESULT 
14889 ; FPS BEFORE EXECUTION 
14890 : FPS AFTER EXECUTION 
14892 ‘THERE CAN BE NO TRAPS WITH THE STCFD INSTRUCTION 
14893 © RX RK RXR ANKE HK RK NRK KAN KAN HH IK HO HX BK KX KX 8K XX 
14894 5 mK HK AK aK aK NHK AK KK aK eK ae ae Ke ae Ke Ke Ke KK eK KK KK HX HX 
14896 075550 012605 éFDSUB: MOV (SP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
14897 075552 012737 075656 000244 MOV #50$ , AF PVEC -REDIRECT TRAP VECTOR 
075560 012702 000200 MOV #200,R2 ;SET TO DOUBLE MODE FOR LOAD 

14899 075564 170102 LOFPS Re ‘LOAD FPS 
14900 075566 172415 LOD (R5), ACO ‘LOAD ACO WITH TEST DATA 
14901 075570 012701 003142 MOV #RECDST,R1 ;POINT TO RESULT AREA 
14902 075574 016502 000020 MOV 20(R5), "et ‘GET TEST FPS 
14903 075600 170102 LOFPS ;LOAD TEST FPS 
14905 075602 176011 40$:  STCFD ACO,(R1) ;*TEST INSTRUCTION 

; 
14907 SINSTRUCTION DIDNT TRAP 
14908 :VERIFY STATUS 

; 
14910 075604 170203 2$: STFPS ;SAVE FPS 
14911 075606 016502 000022 MOV 22(R5),R2 -GET EXPECTED STATUS 
14912 075612 3 CMP 2,R3 SVERIFY $TATUS 
14913 075614 001403 BEQ 3§ :BRANCH IF GOOD 
14914 075616 004737 140132 CALL §§ @DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
4915 07 104003 o3 FPP 
14916 ;BAD FPS 
14917 075624 010504 3$: MOV RS,R4 :POINT TO EXPECTED DATA 
14918 0 062704 000010 ADD #10,R4 
14919 075632 004767 042242 43: JSR R7, DATVER ;VERIFY DATA 
14920 0 005767 105256 TST COUNT 
14921 075642 001403 BEQ S$ ;BRANCH IF GOOD 
14922 0 004737 140132 CALL § @#DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
14923 075650 104003 ERROR +3 oF PP ERROR 

; 

14925 075652 000165 000024 S$: JMP 24(R5) RETURN FROM TEST 

; 
14927 SINSTRUCTION TRAPPED 
14929 075656 004737 140132 bos: CALL © @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14930 075662 104003 ERROR +3 PP ERROR 

31 sENSTRUCTION WASNT SUPPOSE TO TRAP 

14932 075664 000165 000024 JMP 24(R5) ;RETURN FROM TEST 

; 
14934 075670 HOP16 
4937 
14939 ia 

; S 
14940 , 
14941 075670 MSOF : 
14942 ; 
14943 31/AC=0 
14944 075670 005037 003030 CL @aeFLAG :NO INTERRUPT 
14945 075674 004767 000220 JSR R7, SDF SUB :DO TEST 





————— eee 


HS 


COKDAFO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 
14946 075700 000177 000000 
075706 000000 
14947 075710 000000 000000 
14948 075714 
14949 075716 000204 
14950 
14951 075720 005037 003030 
14952 075724 004767 000170 
14953 075730 100000 000300 


75736 
14954 075740 000000 000000 


14961 075770 055555 055555 
14962 075774 000240 
tenes 075776 000240 


1 

14965 076000 012737 000001 

14966 076006 004767 000106 

14967 076012 077777 177777 
076020 000000 

14968 076022 000000 000000 

14969 076026 001200 

ped 076030 101206 


14971 
14972 076032 005037 003030 
14973 076036 004767 000056 


14974 076042 125252 125252 
76050 125252 

4975 076052 125252 125253 

14976 076056 007700 


000024 

14981 076074 O77777 177777 
076102 000000 

14982 076104 000000 000000 
14983 076110 006700 
phe 076112 006706 


1 
pte 076114 000167 000232 
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000000 


000200 


177777 


003030 
100000 


125252 


003030 
177777 


WORD  177,0,0,0 3 ;ACO 
.WORD 0,0 ;RESULT 
"WORD 200 ; TEST FPS 
"WORD 204 ;RESULT FPS 

;2/AC=-0 
CLR aeFLAG ;NO INTERRUPT 
JSR R7, SDFSUB ;D0 TEST 
“WORD 100000, 300,200, 100 3A 
.WORD 0,0 ;RESULT 
"WORD 7777 ; TEST FPS 
"WORD 7744 ;RESULT FPS 

;3/AC>0, TRUNCATE 
CLR aeF LAG ;NO INTERRUPT 
JSR R7, SDF SUB :DO0 TEST 
“WORD  55555,55555,-1,-1 ACO 
.WORD 55555,55555 ;RESULT 
“WORD 240 ; TEST FPS 
“WORD 240 ;RESULT FPS 

;4/AC<0, ROUND TO UNDEFINED VARIABLE 
MOV #1, 28F LAG s INTERRUPT 
JSR R7. SDF SUB :DO TEST 
“WORD 77777,-1,100000,0 ACO 
.WORD 0,0 ;RESULT 
“WORD ; TEST FPS 
“WORD 101206 ;RESULT FPS 

;5/AC<0, ROUND 
CLR @eF LAG ;NO INTERRUPT 
JSR R7, SDF SUB :DO TEST 
“WORD 125252, 125252, 125252, 125252 ;ACO 
.WORD  125252,125253 jRESULT 
“WORD 7700 ; TEST FPS 
"WORD 7710 ;RESULT FPS 

;6/ROUND TO UV, TRAPS DISABLED 
MOV #2, BOF LAG s INTERRUPT 
JSR R7, SOF SUB :DO TEST 
“WORD 77777,-1,-1,0 ;ACO 
.WORD 0,0 ;RESULT 
"WORD 6700 ; TEST FPS 
"WORD 6706 ;RESULT FPS 
JMP HOP17 ;GET OVER SUBROUTINE 


5 RX HK RK KK KKK KKK EK XK KX KOK EX KEN EX XEN X HX AK HK HX 
aera 
; 

$ ACO 


; RESULT 
; FPS BEFORE EXECUTION 
: FPS AFTER EXECUTION 
; 
; 


A TRAP CAN ONLY OCCUR IF ROUNDING CAUSES OVERFLOW 


SEQ 0266 
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4 
15007 976150 
15009 076152 
15010 076154 
15011 076156 
15012 

15015 

15014 

15015 076160 
15016 076166 
15017 076170 
pote 076174 


15020 076176 
15021 


15050 07627 
15051 076276 
15052 07 
15053 076304 





FLOATING POINT TESTS 


076202 
000200 


003142 
000014 


140132 
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000244 


003030 


003030 


5 eX eXaXeXaXeXaXeXaXeXaX eX aXeXaXeXaXaXaXeXaX aXeX eXeX aX aX eX aX 
5 #XaXaXaXaXaXaXaXaXaXeXaX aX aXaXeXaXaXaXaXaXaXaXaeXaXaXeXaXexX 


épFSUB: MOV (SP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
MOV #50$, @OF PVEC ;REDIRECT TRAP VECTOR 
MOV 200 .R2 ;SET TO DOUBLE MODE FOR LOAD 
LOFPS R2 ‘LOAD FP 
LOD (RS), ACO ;LOAD ACO WITH TEST DATA 

#RECDST ,R1 ;POINT TO RESULT AREA 

MOV 14(R5),R2 ‘GET TEST FPS 
LOFPS ;LOAD TEST FPS 

‘ 

40$:  STCOF ACO (R1) ;*TEST INSTRUCTION 

i$: STST pc). ;WAIT FOR POSSIBLE FPA TRAP. 
WORD ‘STORE STATUS HERE. 


| INSTRUCTION DIDNT TRAP 


BIT ‘#1, @#F LAG :VERIFY A NO TRAP CONDITION 
BEQSté2?S ;BRANCH IF GOOD 
CALL SHOETFPA cpp ceegETERMINE FLOATING POINT FAULT. +88 
* ; 
INSTRUCTION SHOULD HAVE TRAPPED 
uMP tS ;REJOIN CODE 
; 
‘INSTRUCTION TRAPPED 
dos: BIT 41, OF LAG ,SEE IF EXPECTING A TRAP 
BNE 518 SBRANCH IF EXPECTING A TRAP 
CALL 8 cop cReAETERMINE FLOATING POINT FAULT. $48 
‘INSTRUCTION WASNT SUPPOSE TO TRAP 
ump tS sREJOIN CODE 
sis: HOV (SP )+,Re ‘SEE IF PC = INSTRUCTION 
TST (SP) ‘CLEAN UP STACK 
CHP 0 s«1$.R4 
BEQ tél ‘BRANCH IF GOOD COMPARE 
CALL  @@DETFPA cane TERMINE FLOATING POINT FAULT. $¢8 
ERROR +3 SFPP 
‘PC WAS INCORRECT 
> 
‘COMMON CODE FOR TRAP AND NO TRAP 
‘VERIFY STATUS 
bs, «STEPS «sR .SAVE FPS 
MOV. ©: 16CRS),R2 GET EXPECTED STATUS 
2,R3 ;VERIFY STATUS 
BEQStié38 ‘BRANCH IF GOOD 
CALL  @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP 
;BAD FPS 
33: MOV RS,R4 ;POINT TO EXPECTED DATA 
ADD #10,R4 
4$: JSR R7, DATVFR ; VERIFY DATA 
TST COUNT 
BeEaSté‘é‘*S$ ;BRANCH IF GOOD 
CALL  @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 


SEQ 0267 


ES SK 
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FLOATING POINT 


15054 076310 
15055 

15056 076312 
15057 076316 
15058 076320 
1505 

15060 

15061 

15062 076324 
15063 076330 
15064 076332 
15065 076336 
15066 076340 
15067 076344 
15068 

15069 076346 
15071 076352 
15074 

15075 

15076 

15077 

serre 076352 


15086 076372 
15087 076374 
15088 076400 
15089 

15090 076402 
15091 076406 
15092 076410 
15093 076414 


15094 
15095 076416 
15096 


15100 

15101 

15102 

tates 076416 
15105 076416 
15106 076422 
15107 076426 
15108 076430 
15109 076432 
15110 076436 
15111 076440 
15112 076442 


15113 076446 
15114 076452 





TESTS 
104003 
005737 
001002 
000165 


ERROR 
S$: TST 

BNE 

JUMP 
VERIFY FEC 


+3 

aeF LAG 

7$ 

20(R5) 
#RECFEC ,R4 


(R4) 
(R4),#10 


_- 


20(R5) 


;FPP ERROR 


;SEE IF NEED TO CHECK FEC 
;BRANCH IF NEED TO CHECK 
;RETURN FROM TEST 


;BAD ACO 


;POINT TO FEC AREA 
;SAVE FEC 
- -VERIFY FEC FOR OVERFLOW 


ANCH 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR FEC 


BAD 
;RETURN FROM TEST 


;TEST STCFD - USING ILLEGAL ACCUMULATOR 


MSFDI: 
; 


1$: 


;DISABLE INTERRUPTS 


‘*TEST ILLEGAL INSTRUCTION 

i SAVE STATUS 

:VERIFY FER SET 

“BRANCH IF ERROR RECEIVED 

DETERMINE FLOATING POINT FAULT. $$$ 


;FPP 
;FER BIT NOT SET ON ILLEGAL INST. 
;VERIFY FEC = FLOATING OPCDOE ERROR 


‘BRANCH IF GOOD 
i ‘DETERMINE FLOATING POINT FAULT. $$$ 
“FEC INCORRECT 





STEST CLRO 
MCLRD: 


JSR 
TST 


;POINT TO DATA 

;SET FPP STATUS TO DOUBLE 

:POINT TO DATA BUFFER 
GARBAGE 


; STORE 
‘CLEAR DATA by 
; VERIFY BUFFER = 


SEG 0268 


K5 
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SEQ 0269 
FLOATING POINT TESTS | 


15115 076456 001403 BEQSti‘éidLS ;BRANCH I RECDST = 0 
15116 076460 004737 140132 CALL  @@DETFPA 3 agit ERMINE FLOATING POINT FAULT. $$$ 
15117 076464 104003 ERROR +3 FPP E 
15118 TRECDST NOT CLEARED 
15119 076466 170202 1s: STFPS 2 ;SAVE STATUS 
15120 076470 020227 000204 CMP RD, #204 ‘VERIFY STATUS 
15121 076474 001403 BEQtiéi? ‘BRANCH IF GOOD 
15122 076476 004737 140132 CALL  @@DETFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
15123 076502 104003 ERROR +3 SFFP ERROR 
1 ‘BAD STATUS 
15125 076504 2$: 
15128 . 
— Se 
15150 ‘TEST CLRD, ILLEGAL ACCUMULATOR 
15132 076508 HCLRI: 

076504 012704 040200 MOV «#40200. R4 ;DISABLE INTERRUPTS 
15135 076510 170104 LOFPS R4 ‘LOAD STATUS 
5136 076512 170406 R6  aTEST INSTRUCTION WITH ILLEGAL ACC 
15137 076514 170203 STFPS RB :SA TUS 
5138 076516 170305 STST. RS 

76520 022703 140200 CMP —s« #140200. R3 ‘VERIFY ERROR 
15140 076524 001403 BEQ ‘BRANCH IF FER SET 
15141 076526 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15142 076532 104003 ERROR «3 SFPP ERROR 
15143 “ERROR IN FPS 
15144 076534 022705 000002 i$: CMP — @2,R5 ‘VERIFY FEC =2 OPCODE ERROR 
15145 076540 001403 BEQStiétdS ‘BRANCH IF 
15146 076542 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15147 076546 104003 ERROR +3 SFPP ERROR 
15148 :BAD FEC 
15149 076550 2$: 
15152 ; 
15153 eo tcihcchcheieteetehahchebeietedebehebeiaaieiaietetetetetate 
15154 :TEST LDFPS, STFPS MODE 1 
ate ; 
15156 076550 MmS1: 
15158 076550 012704 003162 MOV _—=s- #TSTLOC.R4 :POINT R4 TO RAM 
15159 076554 012714 147757 MOV « #147757.(R4) ‘SETUP EXPECTED STATUS 
15160 076560 012701 003132 @RECST Ri ;SET BUFFER FOR RECEIVED STATUS 
15161 076564 012737 076650 000244 #105, ‘SETUP TRAP VECTOR 
15162 076572 170114 (R4) SaTEST INSTRUCTION 
15163 076574 170211 (RI) ‘sTEST INSTRUCTION 
15164 076576 020427 003162 R4. STSTLOC ‘VERIFY R4 
15165 076602 001403 ‘BRANCH IF 
15166 076604 004737 140132 BODETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15167 076610 104003 ; SFPP ERROR 

; 

15169 076612 020127 003132 1s: R1, @RECST ;VERIFY R12 
15170 076616 001403 2$ ‘BRANCH IF GOOD 
15171 076620 004737 140132 DSDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15172 076624 104003 .2 SFPP ERROR 


151 
15174 076626 023727 003132 147757 2$: 
15175 076634 001412 





;BAD Ri 
@ORECST , 0147757 ;VERIFY STATUS 
3$ ;BRANCH F GOOD 
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FLOATING POINT 


15176 076636 
15177 076642 


15178 
15179 076644 
15180 
15181 
15182 
15183 076650 









15211 076736 


1 

15213 076740 
15214 076746 
15215 





1 
ie 076774 
15236 076774 





TESTS 


004737 
104003 


000167 


012600 


012605 
004737 
104003 


012704 


140132 


000012 


140132 


140132 


003162 


145557 


CALL @eDETFPA 
ERROR +3 


JMP 3$ 

[UNEXPECTED TRAP 

ios: MOV _—s (SP)+, RO 
MOV (SP)+.R5 
CALL § @@DETFPA 
ERROR +3 

3$: 


STEST LDFPS, STFPS MODE 2 





mse: 
MOV = @TSTLOC.R4 :POINT R4 TO RAM 
MOV #145557, (R4) ;SETUP EXPECTED 
MOV «- @RECST, 
MOV -« #10$ .@aF PVEC ‘SETUP TRAP VECTOR 
LOFPS (R4)- :#TEST INSTRUCTION 
STFPS (Ri)- TeTEST INSTRUCTION 
CMP =—s«aRA, BTSTLOC-2 ; VERIFY 
BEQStiédLSS IF GOOD 
CALL § @8DETFPA DETERMINE FLOATING POINT FAULT. 
ERROR +3 :FPP ERROR 
1s: CMP sa, @RECST+2 :WERTEY Ri 
BEQStiéi?dS GOOD 
CALL § @SDETFPA pe cree nN FLOATING POINT FAULT. 
ERROR <3 sFPP ER 
2$: CMP —«s @@RECST, 6145557 :VERIFY STATUS 
BEQ 3$ ; r 
CALL § @@DETFPA 
ERROR +3 ;FPP 
;BAD STATUS 
eT .GET OVER TRAP 
SUNEXPECTED TRAP 
; 
i0$: MOV SAVE PC 
MOV ;SAVE PS 
CALL DETERMINE FLOATING POINT FAULT. 
ERROR [FPP ERROR 
. “UNEXPECTED TRAP 


:TEST LOFPS, STFPS MODE 3 


MS3: 


MOV —s- @TSTLOC..R4 


| ;DETERMINE FLOATING POINT FAULT. 
;BAD STATUS 
;GE 


;SAVE PC 

;SAVE PS 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;UNEXPECTED TRAP 


DETERMINE FLOATING POINT FAULT. 


;POINT R4 TO RAM 


T OVER TRAP 


$$$ 


$$$ 


$$$ 


MS 
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SEQ 0271 
FLOATING POINT TESTS 
15237 077000 012737 003166 003162 MOV STSTLOC+4, @@TSTLOC ;TSTLOC= DEFERRED ADDRESS 
15238 077006 012737 147501 003166 MOV #147501, @éTSTLOC+4 ;SETUP EXPECTED STATUS 
15239 077014 012701 003172 MOV STSTLOC-+10,R1 :;R1 POINTS TO TSTLOC+10 
15240 077020 012737 003132 003172 MOV @RECST . @@TSTLOC+10 ;SET DEFERRED BUFFER FOR RECEIVED STATUS 
15241 077 012737 077112 000244 MOV $10$, @FPVEC :SETUP TRAP VECTOR 
15242 077034 170134 LOFPS a(R4)-+ ;#TEST INSTRUCTION 
15243 077036 170231 STFPS a(R1)+ ;#TEST INSTRUCTION 
15244 077040 7 003164 CMP R4, #TSTLOC+2 ;VERIFY R 
15245 077044 001403 BEQ 1$ ; BRANCH iF GOOD 
077 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15247 077052 104003 +3 :FPP ERROR 
15249 077054 020127 003174 1$: CMP R1, @TSTLOC+12 ;VERIFY Ri 
077 001403 BEQ 2$ ;BRANCH IF GOOD 
15251 077062 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
5252 077066 104003 +3 sFPP ER 
15254 077070 023727 003132 147501 2%: CMP @ORECST , #147501 ; VERIFY STATUS 
15255 077076 001412 BEQ $ ;BRANCH F GOOD 
15256 077100 004737 140132 CALL §§ @8DETFPA “DETERMINE FLOATING POINT FAULT. $$$ 
15257 077104 104003 +3 FPP 
15258 ;BAD STATUS 
15259 077106 000167 000012 UMP 3$ ;GET OVER TRAP 
1536 1 ;UNEXPECTED TRAP 
5263 077112 012600 10$: MOV (SP )+.RO ;SAVE PC 
15264 077114 012605 MOV (SP)+,R5 ;SAVE PS 
15265 077116 004737 140132 CALL  @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15266 077122 104003 ERROR +3 SFPP ERROR 
15267 | UNEXPECTED TRAP 
15268 077124 3$: 
15271 ; 
= ss—s—<“‘“—=it*t*st ier a tt i ie et 
15273 ‘TEST LOFPS, STFPS MODE 4 
15274 
15275 077124 MLS4: 
; 
15277 077124 012704 003164 MOV STSTLOC+2,R4 ;POINT R4 TO RAM 
15278 077130 012737 147757 003162 MOV $147757 , @@TSTLOC ‘TSTLOC= STATUS ADDRESS 
15279 077136 012701 003134 MOV @RECST+2,R1 ;SET BUFFER FOR RECEIVED STATUS 
15280 077142 012737 077226 000244 MOV $105, @eFPVEC :SETUP TRAP VECTOR 
15281 077150 170144 LDFPS -(R4) ‘eTEST INSTRUCTION 
077152 170241 STFPS -C(R1) ;#TEST INSTRUCTION 
15283 077154 020427 003162 CMP R4, 8TSTLOC ;VERIFY R4 
15284 077160 001403 BEQ ;BRANCH IF GOOD 
15285 077162 004737 140132 CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
077166 104003 33 PP ERROR 
15288 077170 020127 003132 1s: CMP R1, #RECST ;VERIFY R1 
15289 077174 001403 BEQ 2 ;BRANCH IF GOOD 
15290 077176 004737 140132 CALL §§ @@DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
15291 077202 104003 ERROR +3 F R 
S292 ; 
15293 077 023727 003132 147757 2¢$: CMP @ORECST , #147757 ;VERIFY STATUS 
15294 077212 001412 BEQ $ ;BRANCH F GOOD 
15295 077214 737 140132 CALL § @@DETFPA SDETERMINE FLOATING POINT FAULT. $$$ 
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13e% 077220 
15298 077222 
5299 


1aaee 077236 
15307 077240 
153 

15311 

153 


153 
13315 077240 


077 
15327 077316 


1 

15329 077320 
15330 077324 
15331 077326 
15332 077332 
15334 077334 
15335 077342 
15336 077344 
15337 077350 
15338 

15339 077352 
15340 

15341 

15342 

15343 077356 
15344 077360 
15345 077362 
aS 077366 
15348 077370 
15351 

1 

1 

15354 

15355 077370 
15356 





FLOATING POINT TESTS 


000167 


000012 


140132 


140132 
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003162 
003166 


003172 
000244 


147501 


ERROR +3 ;FPP ERROR 
sBAD STATUS 
JMP 3$ ;GET OVER TRAP 
; UNEXPECTED TRAP 
ios: MOV (SP)+,RO ;SAVE PC 
MOV (SP)+,R5 ;SAVE PS 
CALL §§ @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 sFPP ERROR 
;UNEXPECTED TRAP 
3$: 
;TEST LDFPS, STFPS MODE 5 
5 
MLSS: 
MOV STSTLOC+2,R4 ;POINT R4 TO RAM 
MOV #TSTLOC+4, aéTSTLOC ; TSTLOC= 
MOV #147501, abTSTLOC 4 ;SETUP EXPECTED STATUS 
MOV $TSTLOC+12,R ;R1 POINTS TO 4 
MOV SRECST , @@TSTLOC+10 ;SET DEFERRED BUFFER FOR RECEIVED STATUS 
MOV #10$ , QF PVEC ;SETUP TRAP VEC 
LDFPS a@-(R4) PxTEST INSTRUCTION 
STFPS a@-(R1) ;&TEST INSTRUCTION 
CMP R4, #TSTLOC ;VERIFY R4 
BEQ i$ ;BRANCH IF GOUD 
CALL § @#DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 SFPP ERROR 
1s: CMP R1,#TSTLOC+10 ;VERIFY Ri 
BEQ 2$ ;BRANCH IF GOOD 
CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;BAD R1 
2$: CMP @ORECST , 147501 ;VERIFY STATUS 
BEQ $ ;BRANCH F GOOD 
CALL BADE TFPA ‘DETERMINE FLOATING POINT FAULT. $$$ 
‘BAD STATUS 
JUMP 3$ :GET OVER TRAP 
; 
;UNEXPECTED TRAP 
2 
10$: MOV (SP)+,RO ;SAVE PC 
MOV (SP)+,R5 ;SAVE PS 
CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 sFPP ERR 
- ;UNEXPECTED TRAP 


sTEST LOFPS, STFPS MODE 6 


MLS6: 
» 


COKDAFO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


15357 077370 


15366 077436 
15367 

15368 077440 
15369 077444 
15370 077446 
15371 077452 
15372 

15373 077454 
15374 077462 
15375 077464 
15376 077470 


15377 
15378 077472 
15379 


15381 
task 077476 
1539 
15394 077510 
15395 


15396 077510 
15397 077514 
15398 077522 


15413 
15414 077610 
15415 077616 


TESTS 


003162 
140001 
003272 
077476 
000004 
177700 
003162 


140132 


003272 
140132 


003172 
140132 


000012 


140132 
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003166 


140001 


003162 
003166 


003164 
000244 


MOV STSTLOC,R4 :POINT R4 TO RAM 
MOV #140001 .a¢TSTLOC+4 ;SETUP EXPECTED STATUS 
MOV eTSTLOC +110, R1 ‘R1 WILL POINT TO TESTLOC+10 
MOV $10$, AGF PV ;SETUP TRAP VECTOR 
LOFPS 4(R4) teTEST INSTRUCTION 
STFPS -100(R1) ys TesT INSTRUCTION 
CMP R4,#TSTLOC ; VERIFY 
BEQ 1$ ;BRANCH IF GOOD 
CALL § @DETFPA DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
1$: CMP R1,#TSTLOC+110 ;VERIFY Ri 
BEQ 2$ ;BRANCH IF GOOD 
CALL § a#DETFPA ‘DETERMINE FLOATING POINT FAULT. 
+3 oD ERROR 
; 
2$: CMP @eTSTLOC+10, #140001 ;VERIFY STATUS 
BEQ ; BRANCH 
CALL SSE TFPA ~ DETERMINE FLOATING POINT FAULT. 
‘BAD STATUS 
JMP 3$ ;GET OVER TRAP 
3 
;UNEXPECTED TRAP 
; 
10$: MOV (SP)+,RO ;SAVE PC 
MOV (SP}+,R5 ;SAVE PS 
CALL § @@DETFPA ;DETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 
33 ;UNEXPECTED TRAP 


TEST LOFPS, STFPS MODE 7 


MLS7: 


1$: 


145501 2$: 


BEQ 
CALL 
ERROR 


CMP 
BEQ 


&TSTLOC+100,R4 ;POINT R4 TO RAM 
#TSTLOC+4, @@TSTLOC ‘TSTILOC= DEFERRED ADDRESS 
#145501, @6TSTLOC+4 ;SETUP EXPECTED STATUS 
#TSTLOC-70,R1 Rd POINTS TO TSTLOC+10 
8TSTLOC+10, @8TSTLOC+2 
$10$ , BOF PVEC ‘SETUP TRAP VECTOR 
@-100(R4) ;#TEST INSTRUCTION 
a72¢ Ri) ;«TEST INSTRUCTION 
R4, éTSTLOC+100 SVERIFY R4 
1$ ;BRANCH IF GOOD 
@SDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
.3 FPP ERROR’ 
R1, @TSTLOC-70 ;VERIFY Ri 
;BRANCH IF 


-_ 


ee 


;VERIFY STATUS 
;BRANCH F GOOD 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0275 
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SEQ 0274 


15416 077620 004737 140132 CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ | 
15417 077624 104003 ERROR +3 FPP 
15418 ;BAD STATUS 
15419 077626 000167 000012 JMP 3$ ;GET OVER TRAP 

; 
13421 SUNEXPECTED TRAP 
15423 077632 012600 10$: MOV (SP)+,RO ;SAVE PC 
15424 077634 012605 MOV (SP}+.R5 ;SAVE PS 
15425 077636 004737 140132 CALL § @@DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
15426 077642 104003 +3 ;FPP ERROR 
15427 ;UNEXPECTED TRAP 
15428 077644 3$: 
15431 
15432 peenecagsuemmenenessnesinconssens 
154 sTEST LDCLD MODE 27 
15434 
teake 077644 MLDC2: 

; 
15437 077644 1 CLR R1 ;INIT Ri 
15438 077646 012704 007700 MOV $7700,R4 ;FPS=DOUBLE, LONG 
15439 077652 170104 LOFPS ; 
15440 077654 012737 077714 MOV $10$ , Q@FPVEC ;SETUP WILD TRAP 
15441 077662 177027 LOCLD (R7)+,ACO ;#TEST INSTRUCTION 
15442 077 005201 INC 1 ; 
15443 077 005201 INC Ri ; 
15444 077670 005201 INC Ri , 
15445 077672 005201 INC 1 
15446 077674 020127 000003 CMP R1, #3 ‘ VERIFY 
5447 077700 001412 BEQ ;BRANCH IF GOOD 

077702 004737 140132 CALL FPA DETERMINE FLOATING POINT FAULT. $$$ 
15449 077706 104003 ERROR <3 PP ERROR 
NS TRUCTION FAILED 

15451 077710 000167 000012 JMP 1$ ; JUMP OVER WILD TRAP 
1 077714 012600 10$: MOV (SP)+,RO ;SAVE PC 
15453 077716 012605 MOV (SP)+,R5 ;SAVE PS 
15454 077720 004737 140132 CALL § @@DETFPA DETERMINE YE OATING POINT FAULT. $$$ 
15455 077724 104003 ERROR +3 
5456 ;WILD TRAP ON INSTRUC 
15457 077726 012704 003324 1$: MOV STABGA,R4 TED DATA 
15458 0 012701 003142 MOV @RECDST RI :POINT TO DATA BUFFER 
15459 077736 174011 STD ACO, (R1) SVERIFY DATA 
5460 077740 004767 040134 JSR 7,0A 
15461 077744 005767 103150 TST COUNT 
5462 077750 001403 BEQ 2$ ;BRANCH IF GOOD DATA 
15463 077752 004737 140132 CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15464 077756 104003 ERROR +3 ;FPP 
15465 ;BAD DATA 
15466 077760 2%: 
15469 , 
me  -§ j-§§ = in tii etalalaatieecnen ernemaNCEe ven 
15471 TEST LOCIF, LDCLF 
15472 
15473 077760 MLCF: 

; 
15475 ;1/INT=0 
15476 077760 004767 000500 JSR R7,LCFSUB ;D0 TEST 





————— ae 
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15477 077764 
15476 077770 
15479 077774 


5531 1 
1 100210 
i 100214 


TESTS 


000460 
177777 
000000 


000320 


000300 


;2/INT=0, - 


;3/LONG 


;4/INT= : 


;5/LONG= 


;6/INT=P 


;7/INT=- 


;8/INT=- 


;9/INT=P 


;10/LONG 


“$588 


3 


Sane” 


5558" 


val” 


esas 


= 
3 


e5588 


555" 


oo 


© 77Oo2 2ooo°d 
a 


B800- 
9 
S 


z ongs2 
ee 
cog 


>) 
- 


ri 
=a 


Qn 
a 


Page 14-256 


GF SRC 


;RESULT 
; TEST FPS 
;RESULT FPS 


;D0 TEST 
;F SRC 


;RESULT 
; TEST FPS 
sRESULT FPS 

;D0 TEST 
;F SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 


;D0 TEST 
;F SRC 


;RESULT 
; TEST FPS 
sRESULT FPS 


;D0 TEST 
;F SRC 


;RESULT 
; TEST FPS 
sRESULT FPS 

;D0 TEST 
ft my ; 
; 
; fest FPS 
;RESULT FPS 

;D0 TEST 
;F SRC 

aaa 
; TEST F 
sRESULT FPS 

;D0 TEST 
;F SRC 

RESULT 
, TEST FBS 
;RESULT FPS 

;D0 TEST 

3F 

RESULT 
; TEST FPS 
sRESULT FPS 


;D0 TEST 
;F SRC 


;RESULT 
; TEST FPS 


SEQ 0275 
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FLOATING POINT 


15534 100216 
15535 


TESTS 
000100 
004767 
000000 


040200 
007557 
7540 


000160 
177777 
000000 


000060 
000100 
000000 


5555" 


;12/LONG=PATTERN 
R7 ,LCF SUB 


5555" 


oS .@ Be 
"3558" 

i 

© 


;14/LONG=- 


5555 


- 
ui 
: 
" 
v 
DP 
~ 
3 


oi 
147652 , 125253 


5558" 


g 
= 
By 
3 





;17/LONG= 





5558"55885 


;18/LONG= »100 - TRUNCATE 
SUB 


*abbbs 25585" 


SEQ 0276 


- sRESULT FPS 


;D0 TEST 
;F SRC 


;RESULT 
; TEST FPS 
;RESULT FPS 


;D0 TEST 
;F SRC 


;RESULT 
; TEST FPS 
;RESULT FPS 
3 TEST 
1° 


; TEST pies 
sRESULT FPS 


;D0 TEST 
;F SRC 


;RESULT 
; TEST FPS 
sRESULT FPS 


sRESULT FPS 
300 TEST 
3F SRC 


; TEST FPS 
SRESULT FPS 


;00 TEST 
; 


;RESULT 
; TEST 4s. 
sRESULT FPS 

;D0 TEST 

;F SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 

108 TEST 

tH 


; TEST igo 
sRESULT F 


;D0 TEST 


FO 
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SEQ 0277 


1339) 100444 100000 000000 .WORD 100000,0 ;F SRC 
1 100450 150000 000000 -WORD 150000, = 
15593 100454 000107 -WORD 107 ; TEST FPS 
12aos 100456 000110 -WORD 110 ;RESULT FPS 
tease 100460 000167 000126 JMP HOP 18 ;GET OVER SUBROUTINE 
| 
15598 5 &XaXaXeXaXaXeX aXaX eXaXaX aXaXaXaXaX aX aXaXaXaXeXaXaXeXeX aX eX 
15599 5 eX aX eX aX aX aX aX aX aXaXaXaX aX eX aX aX eXaXeXeXaXaXaXaX eX eX eX eX eX 
15600 ;LOCIF, LDOCLF 
15601 ; 
15602 ; 
15603 3 RESULT 
15604 ; FPS BEFORE EXECUTION 
15605 3 FPS AFTER EXECUTION 
15606 ; 
15607 ;NO TRAP CAN OCCUR 
15608 5 eX aXaX eX aX aXeX eXaXaX eX aXaeX eX aX aXeX aX aX aXaX aX aX aXaX aX aX aX eX 
iret 5 &XaXeXaXaXeX aX aXeX aX eXaXaXaXaXaXaeXaXaXaX eXaXaXeXaX aX aXaXeX 
15611 100464 012602 LCFSUB: MOV CSP)+,R2 ; RETURN ADDRESS TO USE AS POINTER 
15612 1 012737 100574 000244 MOV #505 , O¢F ;REDIRECT TRAP VECTOR 
15613 100474 012701 003142 MOV #RECDST Ri sPOINT TO RESULT A 
15614 1 016200 000010 MOV 10(R2),RO ;GET TEST FPS 
15615 100504 170100 LDFPS ;LOAD TEST FPS 
Ete. 100506 010204 MOV R2,R4 ;POINT TO TEST DATA 
tenis 100510 177014 40$: LOCIF CR4),ATO ;*TEST INSTRUCTION CACCORDING TO MODE) 
; 
15620 ;VERIFY STATUS 
15621 ; 
1 100512 170203 2$: STFPS R3 ;SAVE FPS 
15623 100514 012700 000200 MOV #200 ,RO ;SET FPP STATUS TO DOUBLE 
100520 170100 LDFPS RO ; 
1 100522 174011 STD ACO, CR1) ;SAVE TEST RESULT INTO RECOST 
100524 016200 000012 MOV (R2),RO GET EXPECTED STATUS 
15627 100530 020003 CMP RO,R3 ; VERIFY STATUS 
1 1 001403 BEQ 3$ ;BR IF GOOD 
15629 100534 004737 140132 CALL @eDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15630 1 104003 +3 3FPP 
15631 ;BAD FPS 
15632 1 010204 3$: MOV R2,R4 sPOINT TO EXPECTED DATA 
15633 100544 062704 ADD #4 ,R4 
1 004767 037306 4$: JSR R7 ,DATVFR ; VERIFY DATA 
15635 100554 005767 102340 TST COUNT 
1 001403 BEQ 5$ ;BRANCH IF GOOD 
15637 100562 004737 140132 CALL @eDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
1 104003 ERROR +3 1s4 ACO 
taeat 100570 000162 000014 5$: JMP 14(R2) ;RETURN FROM TEST 
5 ; INSTRUCTION TRAPPED 
15644 100574 012600 bos: MOV — (SP)+,RO ;SAVE PC 
15645 100576 012605 MOV (SP )+ ;SAVE P 
1 004737 140132 CALL @aDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15647 100604 104003 ERROR +3 ;FPP ERROR 


EE KK TT 
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FLOATING PCINT 


15698 101012 
1020 
15699 101022 





TESTS 


000167 


177756 


000120 
000001 


000074 
177776 
000000 


_ INSTRUCTION WASNT SUPPOSE TO TRAP 
; CONTINUE 


; TEST LDCID, LDCLO 


MLCD: 


;1/LONG=0 
J 


;2/INT= 


;3/INT= 


3;4/INT= 


;5/LONG= 


5 55" 


0 
J 


gs 55° 


ag 


BS 555 


* 


55 55 


;6/LONG=1 


;7/LONG=- 


Cj 


55°55 5 


R7,LCDSUB 
0,0 

0.0,0,0 
7313 

7304 

R7 ,LCDSUB 
40200,0,0,0 


7757 
7740 


R7 LCOSUB 
43600,0,0,0 
7617 

7600 
R7,LCDSUB 
-40000, -1 
143600.0,0,0 
7600 

7610 
R7,LCDSUB 
47600,0,0,0 


7757 
7740 


R7,LCDSUB 
0,1 
40200,0,0,0 


; TEST FPS 
;RESULT FPS 


;D0 TEST 
;RESULT 


; TEST FPS 
;RESULT FPS 


300 TEST 
;RESULT 


;_ TEST FPS 
;RESULT FPS 


;00 TEST 
;RESULT 


; TEST FPS 
;RESULT FPS 


;D0 TEST 
;RESULT 


; TEST FPS 
;RESULT FPS 


;D0 TEST 

;RESULT 
; TEST FPS 
;RESULT FPS 


;F SRC 


;F SRC 


;F SRC 


300 TEST 
;RESULT 
; TEST FPS 


;FSRC 


SEQ 0278 


HO 
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SEQ 0279 
FLOATING POINT TESTS 
15700 101024 007310 . WORD 7310 ~sRESULT FPS 
15701 ;8/INT=PATTERN 
15702 101026 004767 000050 JSR R7,L_CDSUB ;D0 TEST 
15703 101032 123456 176543 “WORD 123456,176543 sF SRC 
15704 sot ons 143661 122000 000000 .WORD 143661,122000,0,0 ;RESULT 
15705 101046 -WORD 200 ; TEST FPS 
15706 101050 000210 .WORD 210 sRESULT FPS 
15707 ;9/LONG=PATTERN 
15708 101052 004767 000024 JSR R7,LCDSUB ;D0 TEST 
15709 101056 125252 -WORD 125252,125252 ;F SRC 
15710 tts 3 147652 125252 126000 -WORD 147652,125252,126000,0 ;RESULT 
15711 101072 000 .WORD 300 ; TEST FPS 
12348 101074 000310 .WORD 310 ;sRESULT FPS 
aS 101076 000167 000126 JMP HOP 19 ;GET OVER SUBROUTINE 
15716 5 eXaXaXaXaXaXeXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaX aX aX eX aX eX 
15717 w KX KK HK KKK HK KKK aK KX KEKE K AX KEK KEK OX HK KEK EX HX 
15718 ;LOCID, D 
15719 ; 
15720 ; FSRC 
15721 ; 
15722 ; FPS BEFORE EXECUTION 
tasas ; FPS AFTER EXECUTION 
15725 ;NO TRAP CAN OCCUR 
15726 5 eX aXaXaXaXaXaXaXeXaXeXeXeX aX aX eX ax aX aXeXaXeXaX aX aX aeXeXaX eX 
ed 5 *XaXaXaXaXeXeXaXeXeXeXeX aX eXaXeXaXeXeXeXaXeXeXeXeXeXaXeXeX 
; 
15729 101102 012602 LCDSUB: MOV (SP)+,R2 ; RETURN ADDRESS TO USE AS POINTER 
15730 101104 012737 101212 000244 MOV #50$ , @4F PVEC sREDIRECT TRAP VECTOR 
15731 101112 012701 003142 MOV T,R1L ;POINT TO RESULT AREA 
15732 101116 016200 000014 MOV 14(R2),RO ;GET TEST FPS 
15733 101122 170100 LDFPS RO ;LOAD TEST FPS 
pltes 101 010204 MOV R2,R4 ;POINT TO TEST DATA 
; 
ple 101126 177014 40$: LOCID (R4),ACO ;#TEST INSTRUCTION CACCORDING TO MODE) 
; 
lt. ;VERIFY STATUS 
5739 ; 
15740 101130 170203 2$: STFPS R3 ;SAVE FPS 
15741 101132 012700 000200 MOV #200 ,RO ;SET FPP STATUS TO DOUBLE 
15742 101136 170100 LOFPS RO 3 
15743 101140 174011 STD ACO, (Ri) ;SAVE TEST RESULT INTO RECDST 
15744 101142 016200 000016 MOV 16(R2),RO GET EXPECTED STATUS 
15745 101146 020003 CMP 6 s«RO, RB ;VERIFY $TATUS 
15746 101150 001403 BEQ 3$ ;BRANCH IF GOOD 
15747 101152 004737 140132 CALL @eDETFPA DETERMINE FLOATING POINT FAULT. $$$ 
15748 101156 104003 ERROR +3 ;FPP 
15749 ;BAD FPS 
101160 010204 3$: MOV R2,R4 ;POINT TO EXPECTED DATA 
15751 101162 062704 000004 ADD . 
01166 004767 036706 4$: JSR R7,DATVER ; VERIFY DATA 
15753 101172 005767 101722 TST COUNT 
15754 101176 001403 BEQ 5$ ;BRANCH IF GOOD 





I _ — 
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FLOATING POINT 


TESTS 


004737 
104003 


140132 


001102 
070123 


070123 


003030 
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100000 


100000 


033333 


033333 


177777 


CALL 
ERROR 


3FPP E 
;BAD ACO 
S$: JMP 20(R2) ;RETURN FROM TEST 
SINSTRUCTION TRAPPED 
50$: MOV (SP)+,RO ;SAVE PC 
MOV (SP)+.R5 SSAVE PS 
CALL §§ @#@DETFPA 
ERROR +3 FPP ERROR 
INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP S$ ; CONTINUE 
HOP19 
; 
soc i... 
; DOUBLE 
MLXP : 
;1/EXP=10 - AC=NEG 
CLR aeFLAG NO INTERRUPTS 
JSR R7,LXPSUB DO T 
"WORD 123456 ,67012,25252,171717 ' 
.WORD 10 EXP 
‘WORD  142056,67012,25252,171717 
.WORD 7757 ; TEST FPS 
"WORD 7750 RESULT FPS 
:2/EXP=177 - ACO=POS 
CLR NO INTERRUPTS 
JSR R7,LXPSUB D0 TEST 
“WORD 23456, 70123, 100000, 1 ; 
WORD 177 EXP 
"WORD 77656,70123, 100000, 1 sRESULT 
WORD 7700 ; TEST FPS 
"WORD 7700 RESULT FPS 
; 3/EXP=56 
CLR NO INTERRUPTS 
JSR R7, LXPSUB ;D0 TEST 
"WORD 55555,44444, 33333, 22222 ACO 
.WORD 56 EXP 
"WORD 53555, 44444, 33333, 22222 ;RESULT 
.WORD 7757 ; TEST FPS 
"WORD 7740 ;RESULT FPS 
;4/EXP=-151, ACO=UV 
CLR agFLAG ;NO INTERRUPTS 
JSR R7,LXPSUB D0 TEST 
100077, -1,-1,-2 ACO 


= 


;DETERMINE FLOATING POINT FAULT. $$$ 


;RESULT 


SEQ 0280 





JO 


COKDAFO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 
15807 101402 177623 
15808 101404 104677 
101412 177776 
15809 101414 007757 
taeit 101416 007750 
15812 101420 005037 003030 


101424 000750 
15614 eae 000177 177777 


177777 


177777 


000001 
01464 004767 000710 
15822 101470 030131 032334 
1476 07303 


77600 
15824 tit 000131 032334 


01514 
oH 101516 
15899 101520 012737 000001 
1 101526 004767 000646 
15831 101532 000123 

101540 
15832 101542 100000 
15833 soraes 


1 
15834 101554 


000123 


101614 
15843 101616 002217 
fas HES? ae 
iat 
15847 etry 
15848 101 
15849 101636 123456 012346 
101644 
15850 101646 
15851 101650 
101656 000000 
15852 101660 005700 
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177777 


177777 


177777 


003030 
035363 


035363 


003030 
000456 


000456 


003030 





.WORD -155 EXP 
. WORD 104677,-1.-1.-2 ;RESULT 
.WORD 7757 ; TEST FPS 
"WORD 7750 ;RESULT FPS 
;5/EXP=-177 
CLR @eFLAG ;NO INTERRUPTS 
JSR R7 LXPSUB :DO TEST 
‘WORD 177,-1,-1,-2 ;ACO 
.WORD  -177 sEXP 
. WORD 377,-1,-1,-2 ;RESULT 
.WORD 7700 ; TEST FPS 
"WORD 7700 ;RESULT FPS 
:6/EXP=-200, UNDERFLOW 
MOV #1, 98FLAG ; INTERRUPTS 
JSR R7_LXPSUB D0 TEST 
"WORD 30131, 32334, 35363, 73031 ;ACO 
"WORD 131,32334,35363, 73031 ;RESULT 
.WORD 7740 ; TEST FPS 
"WORD 107744 ;RESULT FPS 
"WORD 12 FEC 
;7/EXP=LARGEST NEGATIVE 
MOV 1, 00° L AG ;EXPECT INTERRUPTS 
JSR R7, 300 TEST 
“WORD 0,123,456,1 ;ACO 
.WORD 100000 EXP 
. WORD 40000 , 123 ,456,1 ;RESULT 
.WORD 2200 ; TEST FPS 
“WORD 102200 ;RESULT FPS 
.WORD 12 :FEC 
;8/EXP=-200, NEG. ACO 
MOV $1, 0F LAG ; INTERRUPTS 
JSR R? ;D0 TEST 
“WORD 111111, 100000, 100000, -1 ;ACO 
.WORD  -200 EXP 
"WORD 100111, 100000, 100000, -1 SRESULT 
WORD 2217 ; TEST FPS 
"WORD 102214 ;RESULT FPS 
-WORD 12 3FEC 
;9/EXP=-1743, FIU=0 
MOV #2, QF LAG ;NO INTERRUPTS 
JSR R7_.LXPSUB ;D0 TEST 
WORD 128456, 12346, 12346, 123 ACO 
WORD -1743 EXP 
. WORD 0,0,0,0 ;RESULT 
.WORD 5700 ; TEST FPS 


SEG 0261 


—_—— ae ————— 


K6 
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FLOATING POINT TESTS 
15853 101662 005704 
15854 101664 
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-WORD 5704 ;RESULT FPS 
. WORD ;FEC 
;10/EXP =-16616, FID=1 
003030 MOV #2, 96F LAG ;NO INTERRUPTS 
JSR R7,LXPSUB ;D0 TEST 
065432 .WORD 377,123456,65432,1 ;ACO 
.WORD -16616 EXP 
065432 "WORD 74577, 12345665432, 1 ;RESULT 
.WORD 47700 ; TEST FPS 
.WORD 147700 iR al FPS 
-WORD 12 Pits 
;11/€XP=177, ACO=UNDEFINED VARIABLE 
CLR vr ;NO INTERRUPTS 
JSR LXPSUB ;D0 TEST 
177777 WORD 100177 -1,-1,-1 ;ACO 
-WORD i177 ;EXP 
177777 . WORD -1,-1,-1,-1 ;RESULT 
. WORD ; TEST FPS 
. WORD ;RESULT FPS 
;12/EXP=150 ACO 
CLR ;NO INTERRUPT 
JSR ;D0 TEST 
000200 . WORD ~ 100,200,300 ;ACO 
-WORD 150 af” 
000200 -WORD 72000,100,200, ;RESULT 
.WORD 7717 ; TEST FPS 
.WORD 7700 ;RESULT FPS 
;13/EXP=200, ACO=NEG 
003030 MOV #1,20F LAG 
JSR R7,_XPSUB ;D0 TEST 
177777 . WORD x oye ae Oe 1 ;ACO 
-WORD 200 EXP 
177777 .WORD 100177,-1,-1,-1 ;RESULT 
-WORD 7705 ; TEST FPS 
-WORD 107716 ;RESULT FPS 
-WORD 10 FEC 
;14/ExXP=400, FID 
003030 MOV @2 , 30F LAG ; INT T 
JSR 27, LXPSUB ;D0 TEST 
177776 .WORD 555,-1,-2,-3 ;ACO 
-WORD 400 ;EXP 
177776 . WORD 40155,-1,-2,-3 ;RESULT 
.WORD 47700 ; TEST FPS 
-WORD 147702 ;RESULT FPS 
.WORD 10 ;FEC 
;15/EXP=11011 FIU=0 
003030 MOV $0, @0FLAG ;NO INTERRUPT 






SEQ 0282 





COKDAFO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 


15900 102136 004767 000236 

15901 102142 177773 177777 
102150 177775 

15 102152 011011 

159035 102154 000000 000000 
102162 000000 

15904 102164 006700 

15905 102166 006706 


15906 
15907 102170 012737 000001 
15908 102176 004767 


102210 000200 
15910 102212 077777 
15911 102214 137656 000100 
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177776 


0c 3030 


003030 
000345 


000345 














JSR R7,LXPSUB DO TEST 
"WORD «177773. -1,-2,-3 ‘ACO 
\WORD 11011 EXP 
. WORD 0,0,0,0 ;RESULT 
.WORD 6700 ; TEST FPS 
"WORD 6706 ;RESULT FPS 
;16/EXP=LARGEST POSITIVE 
MOV $1, a¢FLAG ; INTERRUPT 
JSR R7_LXPSUB :D0 TEST 
“WORD 123456, 100,100,200 ;ACO 
.WORD 77777 EXP 
"WORD 137656, 100,100,200 ;RESULT 
.WORD 7740 ; TEST FPS 
"WORD 107752 ;RESULT FPS 
.WORD 10 ;FEC 
;17/FLOATING 
CLR :NO INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
“WORD  123456,23465,555,444 ;ACO 
.WORD 50 EXP 
"WORD 152056,23465,555,444 RESULT 
‘asin T FPS 
re 
eR OORT R? CPSs ‘DO TEST 
. WORD 444 555. 666 ;ACO 
-200 ;EXP 
133,444,555, 666 ;RESULT 
7500 ; TEST FPS 
107504 ;RESULT FPS 
; 12 ;FEC 
;19/FLOATING OVERFLOW 
MOV $1. @0F LAG . INTERRUPT 
JSR LXPSUB ;00 TEST 
"WORD  12346,123,345,456 ;ACO 
.WORD 400 sEXP 
"WORD  40146,123,345,456 ;RESULT 
.WORD 7400 ; TEST FPS 
“WORD 107402 ‘RESULT FPS 
-WORD 10 ;FEC 
; MP 


HOP 20 ;GET OVER SUBROUTINE 
5 eXeXeXeXeXeXeXeXeXeXeXeXaXeXeXeXexexeXeXekexexeXexeXeXeXeX 
 XeXaXeXeXaXeXeXaXeXeXeXeXeXexeXeXeXeXeXeXeXeXeXeXeXeXeXex 


ACO 


SEQ 0283 


M6 
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FLOATING POINT TESTS 


102470 
003142 


000022 
000010 


140132 


000024 


000244 


003030 


003030 


RESULT | 
FPS BEFORE EXECUTION 
crecy EXECUTION 


5 eX aXaXaXaXeXeX aXaXeXaXeXaXaXeXeXaX aX eXeXaXaXaXaXaXeXeXeXeX 
XK aK EK EK EK EK EK aK EK OX OK OX OK EK HX EX KEK EK EK EX EK EX EK AK OX S KOK 


ixPSUB: MOV (SP)+,R2 
MOV #50$ , BOF PVEC 
MOV #RECDST,R1 
MOV -RO 
LOFPS 
MOV 
LOD chi), ACO 
MOV 2(R2),RO 
LOFPS 
MOV 10(R2),R4 

40$: LDEXP R4,ACO 

1$: STST (PC) 
“WORD O 

; 

s INSTRUCTION DIDNT TRAP 
BIT $1, 20F LAG 
BEQ 
CALL § @@DETFPA 
ERROR +3 
UMP 2$ 

y 

SINSTRUCTION TRAPPED 

bos: BIT #1, @0FLAG 
BNE 513 
CALL FPA 
ERROR +3 
UMP 2$ 

51$ $ MOV (SP )+,R4 
TST (SP)+ 
CMP #1$,R4 
BEQ 2$ 
CALL § @#DETFPA 
ERROR +3 


; RETURN ADDRESS TO USE AS POINTER 
‘REDIRECT TRAP VECTOR 
;POINT TO RESULT AREA 
_ FPS TO DOUBLE 


‘ POINT TO ACO DATA 


,GET Test FPS 
;LOAD TEST F 
‘POINT TO TEST DATA 


OTT INSTRUCTION f oe TO MODE ) 
FOR POSSIBLE F 
; STORE STATUS HERE 


-VERIFY A NO TRAP CONDITION 
/BRANCH iF 
DETERMINE FLOATING POINT FAULT. $$$ 


FPP 
INSTRUCTION SHOULD HAVE TRAPPED 
;REJOIN CODE 


;SEE IF EXPECTING A i 
;BRANCH IF EXPECTING A 
DETERMINE FLOATING POINT NT FAULT. $$$ 


;FPP 
feeediea x WASNT SUPPOSE TO TRAP 


‘SEE IF PC = INSTRUCTION 
:CLEAN UP “STACK 


| BRANCH IF GOOD COMPARE 
_ DETERMINE FLOATING POINT FAULT. $$$ 
; 


;PC WAS INCORRECT 


CODE FOR TRAP AND NO TRAP 


* COMMON 
iVERIFY STATUS 
3s: STFPS 


R3 
#200 ,,RO 


ACO cha, 
24(R2) 


IGET “RESULT 
;GET EXPECTED STATUS 


SEQ 0284 
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FLOATING POINT 


16048 

16049 103710 
16050 102720 
10a 102724 
102726 


16058 734 
16059 102756 


TESTS 


140132 


000012 
035304 
100320 


140132 


003030 
000026 
003122 
000026 
140132 


000030 


003030 
000610 
000000 


177777 
003030 
000560 


177777 


003030 


177777 


CMP RO,R3 
BEQ 
CALL aeDETFPA 
ERROR +3 

3$: MOV R2,R4 
ADD #12 ,R4 

4$: JSR R7,DATVER 
TST COUNT 
BEQ 5$ 
CALL QeDETFPA 
ERROR +3 

5$: TST aeFLAG 
BNE 7$ 
JMP 26(R2) 

; VERIFY FEC 

7$: MOV #RECFEC ,R4 
STST CR4) 
CMP (R4),26(R2) 
BEQ 8$ 
CALL aeDETFPA 
ERROR +3 

8$: JMP 30CR2) 

; 

HOP20 


STEST STCDI, STCDL 
; 


MSCD: 
4 
;1/ACO=0, INT 
CLR aOFLAG 
JSR R7, SCDSUB 
“WORD 0177,0,0,0 
. WORD 0,-1 
“WORD 7640 
“WORD 7 
;2/ACO=-0, LONG 
CLR OtFLAG 
JSR R7, SCDSUB 
. WORD 100177,-1,-1,-1 
.WORD 0,0 
“WORD 7700 
“WORD 7704 
;3/EXP=100, LONG 
CLR OIF LAG 
JSR R7, SCDSUB 
“WORD 20000,0,0,0 
.WORD 0,0 
“WORD 300 
“WORD 304 


; VERIFY STATUS 
;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 
SFPP ERROR 
;BAD FPS 
sPOINT TO EXPECTED DATA 
; VERIFY DATA 
;BRANCH IF GOOD 
DETERMINE FLOATING POINT FAULT. $$$ 
SFPP ERROR 
;BAD ACO 
;SEE IF NEED TO CHECK FEC 
;BRANCH IF NEED TO CHECK 
;RETURN FROM TEST 
sPOINT TO FEC AREA 
;SAVE FEC 
; VERIFY FEC FOR OVERFLOW 


; BRANCH 
Epp £ sDETERMINE FLOATING POINT FAULT. $$$ 
; 


BAD FEC 
sRETURN FROM TEST 


; INTERRUPT 


RE 
; TEST FPS 
RE FPS 


SEQ 0285 





COKDAFO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


6104 
16105 103216 
3224 


16106 1st 
16107 1032 
16108 103234 
16109 


TESTS 


003030 
000500 


003030 
000450 
075757 
173757 
003030 
000420 
000000 
000001 
000366 
000000 


000000 


177777 


014000 
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000001 


157737 


003030 


SEQ 0286 
;4/EXP=200, BAISED 0, INT, ROUND 
CLR aeF LAG ; INTERRUPT 
JSR ;D0 TEST 
"WORD 140177,177777,1,.1 ACO 
.WORD 0,0 ;RESULT 
"WORD 7700 ; TEST FPS 
"WORD 7704 ;RESULT FPS 
;5/LONG 
CLR aeFLAG ; INTERRUPT 
JSR R7, SCDSUB DO TEST 
"WORD 47667, 75757, 157737, 167773 SACO 
.WORD 55675,173757 RESULT 
‘WORD 7717 ; TEST rbg” 
. WORD ;RESULT FPS 
;6/LONG, EXP=2e«32 
CLR LAG ;NO INTERRUPT 
JSR R7, SCDSUB :DO TEST 
“WORD 46400,0,0,0 ACO 
.WORD  1000,0 ;RESULT 
‘WORD 7700 ; TEST FPS 
"WORD 7700 ;RESULT FPS 
;7/LONG, EXP>2ee32 
MOV #1, Q0FLAG ; INTERRUPT 
JSR R7, SCDSUB ;D0 TEST 
. WORD 77607 ,0,0,0 ;ACO 
.WORD 0,0 ;RESULT 
"WORD 7700 ; TEST FPS 
“WORD 107705 ;RESULT FPS 
;8/INT, EXP=20015 
CLR OPFLAG ;NO INTERRUPTS 
JSR SCDSUB ;D0 TEST 
WORD 43300-0-0,0 ACO 
. WORD 10000, -1 aa. 
“WORD 7600 ; TEST FPS 
. WORD sRESULT FPS 
;9/INT, EXP> peels 
MOV #1, Q0FLAG ; INTERRUPT 
JSR i i TEST 
“WORD «-77777,-1,-1,-1 ;ACO 
.WORD 0,-1 ;RESULT 
“WORD 7 ; TEST FPS 
“WORD 107605 ;RESULT FPS 
;10/INT, EXP>2ee15, FID 
MOV . ;NO INTERRUPT 
JSR R7. SCDSUB ;D0 TEST 
“WORD 43300,0,0,0 ACO 
WORD 14000 ;RESULT 
“WORD o3400 ; TEST FPS 
“WORD 47700 ;RESULT FPS 
;11/INT, EXP>2e015, FIC=0 





C7 


COKDAFO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


16110 103236 
16111 103244 
16112 103250 

103256 


16113 103260 

16114 103264 

16115 103266 

16116 

16117 103270 

16118 103276 
302 


103320 


161 

16131 103354 

16132 103360 

16133 103364 
103372 

16134 103374 

16135 103400 

16136 103402 

16137 

16138 103404 


16139 103410 
16140 103414 


16141 103424 
16142 103430 
16143 103432 
16144 
16145 103434 
16146 103440 
16147 103444 
3452 
16148 103454 
16149 103460 


TESTS 


000000 
000220 
177777 
163741 


000002 
000166 
000000 
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003030 
177777 


003030 


177777 


177777 


177777 


177777 


MOV #0, OF LAG 
JSR R7, SCDSUB 
“WORD 143300,-1,-1,-1 
WORD -1,163741 
‘WORD 7300 
"WORD 7310 
312/LONG, EXP>2*e32, FID 
MOV #2, @OF LAG 
JSR R7, SCDSUB 
“WORD 50100,0,0,0 
.WORD 0,0 
"WORD 47700 
“WORD 147705 
;13/LONG, EXP>2ee32, FIC=0 
MOV #0, OF LAG 
JSR R7, SCDSUB 
"WORD 50377,-1,-1.,-1 
.WORD 0,0 
“WORD 7300 
.WORD 7305 
;14/LONG, EXP<0 
be 
“WORD 100200 
.WORD 0,0 
“WORD 7 
“WORD 7744 
;15/INT, EXP<0 
CLR @OF LAG 
JSR R7, SCDSUB 
"WORD 37700,-1,-1.,-2 
WORD 0,-1 
"WORD 7600 
“WORD 7604 
;16/INT, EXP=10 
CLR 
JSR R7, SCDSUB 
. WORD 4377,-1,-1.-1 
WORD 0,-1 
"WORD 7600 
“WORD 7604 
UMP 


HOP21 ;GET OVER SUBROUTINE 
5 eXaXeXeXaXaXeXeXeXeXeXaXaXeXaXaXaX eXeXaXeXaXeXaXaXeXeXeX eX 
5 #XaXeXaXeXeXaX aXeXaeXeXaXeXeXeXaXaXeXeXaXaXaXeXeXeXeXeXaXeX 
;STCDI, STCDL, STCFI, STCFL 


;NO INTERRUPT 
47 TEST 
; 


RESULT 
, TEST FPS 
‘RESULT FPS 


; INTERRUPT 
;D0 TEST 
;ACO 


;RESULT 
; TEST FPS 
;RESULT FPS 


;NO INTERRUPT 
> aed 
: 


;RESULT 

; TEST FPS 
sRESULT FPS 
;NO INTERRUPTS 


300 TEST 
;ACO 


;RESULT 
; TEST FPS 
;RESULT FPS 


;NO INTERRUPTS 
;00 TEST 
;ACO 


;RESULT 
; TEST FPS 
;RESULT FPS 


;NO INTERRUPTS 
;D0 TEST 
;ACO 


;RESULT 
; TEST FPS 
sRESULT FPS 


SEQ 0287 





RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 





SK 
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FLOATING POINT TESTS 


103564 
003144 
177777 
177777 


000014 


140132 


000016 


140132 


000244 


003030 


003030 


SEQ 0288 


; (FEC) 


‘ TRAP ON CONVERSION FAILURE 
5 XaX aXaXaXaXaXeXaXaXaXaXeXaXeXeXeXaXaXaXaXaeXaXaXeXaeXaXeXer 
5 KK aK aX XX XK KOK EK OK KX KX KX XK XXX EX HX KEK EX OX AX 


écpsuB: MOV (SP)+,R2 ; RETURN ADDRESS TO USE AS POINTER 
MUV #50$, @OFPVEC ;REDIRECT TRAP VECTOR 
MOV @RECDST +2,R1 ;POINT TO RESULT AREA 
MOV #-1,(R1) ;PRELOAD RECEIVE DATA BUFFER 
MOV #-1. -(Ri) ; 
MOV $200 ,RO ;SET FPS TO DOUBLE 
LDOFPS RO ; 
MOV R2,R4 ;POINT TO ACO DATA 
MOV 14(R2),RO ;GET TEST FPS 
LOFPS RO ;LOAD TEST FPS 
; 
40$:  STCDI ACO,(R1) ;#TEST TNSTRUCTION( ACCORDING TO MODE) 
L$: STST (PC)+ ;WAI POSSIBLE FPA TRAP 
WORD 0 :STORE STATUS HERE. 
; 
s INSTRUCTION DIDNT TRAP 
BIT $1, 00FLAG VERIFY A NO TRAP CONDITION 
BEQ ;BRANCH IF GOOD 
CALL §§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 FPP 
s INSTRUCTION SHOULD HAVE TRAPPED 
JUMP 23 ;REJOIN CODE 
S INSTRUCTION TRAPPED 
50¢$: BIT #1, 80FLAG ;SEE IF EXPECTING A TRAP 
BNE 513 ;BRANCH IF EXPECTING A 
CALL OGDETFPA = ;DE TERMINE FLOATING POINT WT FAULT. $$$ 
"INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ ;REJOIN CODE 
Sis: MOV (SP)+,R4 >SEE IF PC = INSTRUCTION 
TST (SP)+ :CLEAN UP STACK 
CMP #1$,R4 
BEQ 2¢ ‘BRANCH IF GOOD COMPARE 
CALL § @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 FPP 


;PC WAS INCORRECT 


‘COMMON CODE FOR TRAP AND NO TRAP 
VERIFY STATUS 


3s: STFPS RS ;SAVE FPS 
MOV 16(R2),RO ;GET EXPECTED STATUS 
CMP RO,RS ; VERIFY STATUS 
BEQ 3$ ;BRANCH IF 
CALL ev DETERMINE FLOATING POINT FAULT. $$$ 


;F PP 
;BAD FPS 


ee EK — 





E/ 
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FLOATING POINT 


16218 103646 
16219 103650 
16220 103654 


16235 103726 
16237 103730 
16239 103734 
16240 


16250 103734 
16251 103740 
16252 103744 
103752 
16253 103754 
16254 103760 
16255 103762 
16256 
16257 103764 
16258 103770 
16259 103774 
104002 
1 104004 
16261 104010 
104012 
16264 104014 
04022 


TESTS 


003030 


003030 
177412 
000000 


177777 


177777 


003030 


177777 


177777 


3$: MOV 
ADD 
4$: JSR 
TST 
BEQ 
CALL 
E 
S$ TST 
JMP 
-VERIFY FEC 
7$: MOV 
STST 
CMP 
BEQ 
CALL 
8$: JMP 
HOP21 


#10 R4 
7. DATVFR 
COUNT 


S$ 
_ 


wus 
20(R2) 
#RECFEC ,.R4 
(R4) 
(R4) , #6 


@eDETFPA 
+3 


20(R2) 


;POINT TO EXPECTED DATA 
;VERIFY DATA 


BRANCH IF GOOD 

DETERMINE FLOATING POINT FAULT. $$$ 
FPP candy 

‘BAD ACO 


;SEE IF NEED TO CHECK FEC 

;BRANCH IF NEED TO CHECK 

;RETURN FROM TEST 

;POINT TO FEC AREA 

;SAVE FE 

; VERIFY FEC FOR OVERFLOW 

* DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


;BAD FEC 
;RETURN FROM TEST 


STEST STCFI, STCFL 


MSCF : 
: 
;1/LONG EXP =30 
CLR ;NO INTERRUPTS 
JSR R7, SCDSUB ;D0 TEST 
“WORD 44541,52525,-1,-1 ;ACO 
.WORD 3,102525 
"WORD 7517 . test Fis 
"WORD 7500 ;RESULT FPS 
;2/INT, EXP<0 
CLR @eOF LAG ;NO INTERRUPTS 
JSR R7, SCDSUB :DO TEST 
“WORD 2300,-1,-1,-1 ACO 
WORD 0,-1 ;RESULT 
"WORD 7400 ; TEST FPS 
"WORD 7404 :RESULT FPS 
;3/LONG, EXP 
MOV $1, QF LAG ; INTERRUPT 
JSR R7. SCDSUB :DO TEST 
“WORD 70000,-1,-1,-1 ;ACO 
.WORD 0,0 ;RESULT 
“WORD ; TEST FPS 
"WORD 107545 ;RESULT FPS 
,4/INT,EXP=5, FIC=0, FID=1 
CL aeF LAG ;NO INTERRUPTS 
JSR R7, SCDSUB ;D0 TEST 
“WORD 52000,0,-1,-1 ;ACO 


a TT, TS i -—————— —ee 


SEQ 0289 


F7 
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FLOATING POINT 


TESTS 
177777 


000000 
047000 
047005 


177777 


000154 
000000 


000132 
177777 


000110 
177777 


000066 
000000 


000022 
177777 


000120 


Page 14-271 
SEQ 0290 
WORD 0,-1 ;RESULT 
"WORD 47000 ; TEST FPS 
"WORD 47005 ;RESULT FPS 
:TEST STEXP 
' 
MSXP: 
;1/EXP=100 
JSR R7, SXPSUB :D0 TEST 
000000 . WORD 20000 ” 0 r) 0 + 0 ; ACO 
.WORD -100 ;RESULT 
"WORD 7740 ; TEST FPS 
"WORD 7750 sRESULT FPS 
:2/EXP=201 FLOAT, NEG 
JSR R7, SXP ;DO TEST 
177777 "WORD 140377,-1,-1,0 ACO 
.WORD il sRESULT 
"WORD 7500 ; TEST FPS 
"WORD 7500 ;RESULT FPS 
;3/EXP=-177 
JSR R7, SXPSUB :DO TEST 
177777 "WORD «= 177,-1,-1,-1 ACO 
.WORD 177600 ;RESULT 
-WORD 7700 ; TEST FPS 
"WORD 7710 SRESULT FPS 
;4/EXP=-100 
JSR R7, SXPSUB ;D0 TEST 
177777 “WORD ©, -4.°8 ;ACO 
.WORD -100 ;RESULT 
“WORD ; TEST FPS 
‘WORD 40210 ;RESULT FPS 
;5/EXP=200 
JSR R7, SXPSUB ;D0 TEST 
000000 “WORD 40000,0,0,0 ACO 
WORD ;RESULT 
‘WORD 7700 TEST FPS 
‘WORD 7704  ;RESULT FPS 
;6/EXP=0 
JSR R7, SXPSUB ;DO0 TEST 
177777 {77.-3,-3.-8 ACO 
.WORD 177600 ;RESULT 
"WORD 0 ; TEST FPS 
"WORD 10 SRESULT FPS 


JMP HOP22 ;GET OVER SUBROUTINE 
5 eX aXe Xa aKa KEK eK KK aX aX EX HEX EX NHK EX RK NHN HX RX HN SX HX AX OX EX 
5 RK RK RK XX KK mK KK KK KKK KX KK XX AK XX XX HX OX HX 


ee ela, EN tt tt LLL LLL LLL LLL LLL 


G/ 
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SEQ 0291 
FLOATING POINT TESTS 
16326 ;STEXP 
16327 ; ACO 
16328 EXPONENT RESULT 
16329 FPS BEFORE EXECUTION 
16330 : FPS AFTER EXECUTION 
; 
16332 ;NO TRAPS CAN OCCUR 
16333 5 XK te Ke Xo XX eK oe Kae KX eK oh Ke KX eX oe Ko Ko XK eK eK eX eK eK eX eK eX XK HX 
1etes 5 HK HK HK KK NN KKK HK aK aK ae Kae Xe ee KK eK eK eK eK aK eK KX XX 
6336 104256 012602 éxpsuB: MOV (SP)+,R2 ; RETURN ADDRESS TO USE AS POINTER 
16337 104260 012737 104360 000244 MOV #50$ , aaF PVEC ‘REDIRECT TRAP VECTOR 
012701 003142 MOV #RECDST,R1 ;POINT TO RESULT AREA 
16339 104272 012700 000200 MOV #200 ,RO :SET FPS TO DOUBLE 
16340 104276 170100 LOFPS 
16341 104300 010204 MOV R2,R4 ‘ POINT TO, ACO DATA 
16342 104302 172414 LOD (R4),ACO iL ACO 
16343 104304 016200 000012 MOV 12(Re), RO ;GET TEST FPS 
16344 104310 170100 LOFPS ;LOAD TEST FPS 
16346 104312 175011 40$:  STEXP ACO,(R1) ;*TEST INSTRUCTIONCACCORDING TO MODE) 
16348 ;VERIFY STATUS 
16350 104314 170203 2$: STFPS R3 ;SAVE FPS 
16351 104316 016200 000014 MOV 14(R2),RO “GET EXPECTED STATUS 
16352 104322 020003 CMP RO,R3 ;VERIFY STATUS 
16353 104 001403 BEQ 3$ ;BRANCH IF GOOD 
16354 104 004737 140132 CALL § @@DETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
16355 104332 104003 +3 FPP 
16356 ;BAD FPS 
16357 104334 016204 000010 3$: MOV 10(R2),R4 ;POINT TO EXPECTED EXPONENT 
16358 1 020437 003142 CMP R4, @ORECDST ; VERIFY EXPONENT 
16359 104344 001403 BEQ :BR GOOD 
16360 104 004737 140132 CALL #§ @@DETFPA DETERMINE FLOATING POINT FAULT. $$$ 
16361 104352 194003 ERROR +3 FPP 
16362 ;BAD ACO 
16363 104354 000162 000016 S$: JMP 16(R2) ;RETURN FROM TEST 
16365 ; INSTRUCTION TRAPPED 
16367 104360 012600 50$: MOV (SP)+,RO ;SAVE PC 
16368 104362 012605 MOV (SP)+,R5 ‘SAVE OLD PS 
16369 104 004737 140132 CALL § @@DETFP DETERMINE FLOATING POINT FAULT. $$$ 
16370 104370 104003 ERROR +3 FPP 
16371 ;WILD TRAP DURING STEXP 
16372 104372 000167 177756 JMP S$ ;REJOIN CODE 
16374 104376 HOP22: 
16377 
16378 AMA 
16379 "SBTTL TEST - CHECK REGISTER ACCESS 
16380 :CHECK REGISTER ACCESS - THIS TEST WILL VERIFY EACH OF THE THREE 
16381 ;CACHE MEMORY SYSTEM REGISTERS CAN BE ACCESSED WITHOUT A TRAP TO 
16382 ‘LOCATION 4(NON-EXISTANT ADDRESS TRAP) OCCURRING. THE REGISTERS TO 
16383 :BE TESTED ARE: 


— CACHE CONTROL 17777746 


eee ee ee | 
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SEQ 0292 


TEST - CHECK REGISTER ACCESS 
16385 MEMORY SYSTEM ERROR 17777744 
16386 HIT/MIS 777752 
1655 SEACH REGISTER WILL BE ACCESSED WITH A WRITE CYCLE. 
16389 ;BGNTST 
16390 ;SAVE CONTENT OF LOCATION 4 
16391 ;LET en 4 POINT TO ERROR ROUTINE 
16392 ; INITIALIZE R TO TOP OF ADDRESS TABLE 
16393 ;D0 UNTIL FOR ALL REGISTERS 
16394 $e TEST REGISTER UNDER TEST 
16395 $e IF TIMEOUT DID HAPPEN 
16396 Ss . ERROR 
16397 S. ENDIF 
16398 ;ENDDO 
16399 ;RESTORE CONTENTS OF LOCATION 4 
16400 “ene TST 
16401 
16402 S ADDRESS TABLE : Lrnas 
16403 ; 177777 
16404 : 1 TTTS2 
16405 ; 
16406 ;ENDTST 
16407 ;ERROR ROUTINE: SET TIMEOUT FLAG 
pays ; RETURN 
16410 5 EREAEAEEEREEAARERSESAEREEEAEE EASES EEE ERERESESSSEREEREEEEES ESE SS 
104376 000004 i$t2: SCOPE 
16412 104402 005737 003032 TST CCHPAS have done enough inclusi ? 
; inclusive passes 
16413 104406 001002 BNE 99$ ; not yet 
16415 104410 000240 NOP $ aid 
16416 104412 000453 BR TST3 ;;G0 TO NEXT TEST 
16417 104414 000240 99$: NOP 
16418 104416 012737 137542 000004 MOV #TOUT, 904 
16419 1 013737 000004 003012 MOV arse SLOCOO ;SAVE CONTENTS OF VECTOR 4 
16420 104432 012737 104536 000004 MOV #ERROUT , ;LET VECTOR 4 POINT TO ERROR ROUTINE 
16421 104440 1 CLR Ri ;CLEAR TIME FL 
1 005737 177746 1$: TST CCR ;READ REGISTER UNDER TEST 
16423 104446 005701 TST R1 ; TIMEOUT? 
16424 104450 001 BEQ 23 
16425 104452 012737 177746 001122 MOV #CCR, $BDADR ;STORE LOCATION 
1 104130 ERROR +130 ; TIMEOUT ACCESING CCR 
16427 104462 1 2s: CLR Ri ;CLEAR TIMOUT FLAG 
1 005737 177744 TST MSER ;READ MSER 
16429 104470 005701 TST Ri ; TIMEOUT ? 
30 1 001 BEQ 3$ 
16431 104474 012737 177744 001122 MOV #MSER , $BDADR ;STORE LOCATION 
3 104 104130 ERROR +130 ; TIMEOUT ACCESSING MSER 
16433 104504 005001 3$: CLR Ri ;CLEAR TIMEOUT FLAG 
6434 104 005737 177752 TST HITMIS ;ACCESS HIT/MISS 
35 1045 005701 TST Ri ; TIMEOUT? 
16436 104514 001404 BEQ $ 
16437 104516 012737 177752 001122 MOV #HITMIS, $BDADR ;STORE LOCATION 
6438 104 04130 ERROR 130 ; TIMEOUT SCE SSIS HIT/MISS 
16439 104526 013737 003012 000004 4%: MOV SLOCOO, S RESTORE VECTOR 4 
16440 104534 BR TST3 ;3:;G0 TO NEXT TEST 
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TEST - CHECK REGISTER ACCESS 


16441 

16442 104536 ERROUT : 

16443 104536 005201 INC R1 
16444 104540 000002 RTI 


SEQ 0293 


;FLAG TIMEOUT 


——— ee 
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TEST - CCR REGISTER BIT TEST 


16447 .SBTTL TEST - CCR REGISTER BIT TEST 

16448 ;CCR RECTSTER BIT TEST - THIS TEST WILL VERIFY THAT EACH READ/WRITE ol . OF 
;THE CACHE CONTROL REGISTER CAN BE SET AND CLEARED INDIVIDUALLY AND T 

:BITS 15 - 11 AND BIT & ARE ALWAYS READ AS ZEROS. 


:BGNT ST 
; INITIALIZE GOOD DATA TO #1 
;CLEAR CCR 


SEQ 0294 





;CLEAR 
;D0 UNTIL ALL BITS TESTED 
; WRITE GOOD DATA TO CCR 
; READ CCR 
; - CCR NOT EQUAL TO GOOD DATA THEN 
i IF CCR EQUAL TO ZERO THEN 
“ : . IF GOOD DATA NOT EQUAL TO BIT 15-11 OR BIT 8 THEN 
3. ‘ ; ERROR IN READ/WRITE BITS OF CCR 
; ‘ . ENDIF 
; ENDIF 
; UPDATE TO NEXT BIT 
;ENDDO 
;ENDTST 
eee naraennenenenenennpenen enon imaannetosateS 
"NOP 
003032 CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet - ; 
; S 
5:G0 TO NEXT TEST. 
Ri ; INITIALIZE GOOD DATA TO #1 
;CLEAR CCR 
#1000 ,BCSR ;DISABLE HALT 
CCR ; GOOD DATA TO CCR 
Ri s;IF CCR NOT EQUAL GOOD “ 
" HIF CCR EQUAL TO ZERO 
ae Ri TF GOOD DATA NE TO BIT 15-11 OR BIT 8 
‘ERROR IN IN READ/WRITE BITS OF CCR 
;UPDATE TO 
1 ;00 UNTIL ALL BITS TESTED 
#1000 ,BCSR ;ENABLE HALT ON BREAK 


(EEA ARR ORE ee Pea I LE ———— 


TEST 


KK 7 
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- FORCE MISS TEST 


SEQ 0295 


.SBTTL TEST - FORCE MISS TEST 

;sFORCE MISS TEST - THIS TEST WILL VERIFY THAT ALL REFERENCES MADE 
SWITH EITHER BIT<3> OR BIT<2> OF THE CCR SET CAUSE A CACHE MISS ha 
;LEAVE THE CACHE ENTRY UNCHANGED. FIRST ar. A TEST ADDRESS WITH 
;BITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA ao ae, 
;INTO THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME SS WITH 
;NEW DATA. NEXT CLEAR BrTS<Ss 2> AND READ THE TEST ADDRESS, THE DATA 
;SHOULD EQUAL TO PATTERN 1. FINALLY READ THE TEST ADDRESS WITH ght 
;SET, THE DATA SHOULD EQUAL PATTERN 2. A LAST WRITE MUST BE DONE WITH 
;BOTH FORCE BITS CLEARED BECAUSE THE CACHE AND MAIN MEMOR 
sDIFFERENT DATA. 


; 
;BGNTST 
‘WRITE TEST ADDRESS ITH PATTERN 1 
;SET CCR BITS<3:2> 
;WRITE TEST ADDRESS arte PATTERN 2 
;CLEAR CCR BIT<3> 
;READ TEST ADDRESS 
: SAVE HIT/MISS REGISTER DATA 
ARE RECEIVED DATA TO PATTERN 1 
:TF P OATA NOT EQUAL 
IF DATA EQUAL TO PATTERN 2 THEN 
IF HIT THEN 


ERROR FORCE MISS WRITES TO CACHE 





"s ELSE 

;. IF PARITY ERROR INDICATORS EQUAL O THEN 

:. es ERROR FROCE MISS INVALIDATES CACHE 

:. IF ALL PARITY INDICATORS SET THEN 

:. sain ERROR PARITY ARORT AFTER FORCE MISS 
* IF TAG PARITY ERROR THEN 

:. ae ERROR TAG PARITY ERROR AFTER FORCE MISS 
IF BO AND B1 ERROR THEN 

;. Si ERROR DATA PARITY ERROR AFTER FORCE MISS 
;. IF 80 PARITY ERROR THEN 

. ren ERROR LOW BYTE PARITY ERROR 
i IF 81 PARITY ERROR THEN 

;. ERROR HIGH BYTE PARITY ERROR 
Be : ‘ ENDIF 

'? , ‘ ENDIF 

a ‘ . ENDIF 

:. ' ENDIF 

? ELSE 

. ERROR IN DATA PATH 

3. > ENDIF 

sENDTE CCR<3:2> = 1,0 

+ ; = 

READ TEST 

: SAVE Bee ey : 

IF DATA wh tot bom. 

“s IF RECTEVED "DATA EQUAL TO PATTERN 1 THEN 


ES KK TT 


L/ 
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TEST - FORCE MISS TEST 





003032 


177477 
000300 


$14 


99%: 


101$: 


102$: 


103$: 


~4 
wn 
=u 


Bi he ic 8 


IF HIT THEN 
bn on ERROR FORCE MISS READS FROM CACHE 
— ERROR FORCE MISS READS FROM CACHE AND MISS 


ERROR IN DATA PATH 





SS 
SSESSSSSSSSSSESSSSESEEESSESSESSSESEESE SESE SESS EEESSESSEESEESESESESCESCHSESESES 
CCHPAS have done enough inclusive passes? 
99$ ; not - 
; a 
TST5 ;;G0 TO NEXT TEST 


;SAVE CONTENTS OF VECTOR 114 









ae114 
SFMPARR, Thre 

R3 

iN 

#177777 ,aeTSTLOC 


/MISS DA 
;ENABLE HALT ON BREAK 
; COMPARE 
‘IF DATAS NOT 


1 EQUAL THEN 
:IF DATA EQUAL TO PATTERN 2 

106$ ; THEN 

' ‘IF HIT 

. ‘FORCE MISS WRITES TO CACHE 

0 ‘IF PARITY INDICATORS EQUAL 0 

“6 iF ORCE MISS WRITE INVALIDATES CACHE 
‘IF ALL PARITY INDICATORS SET 

102 ; THEN 

7 SPARITY ABORT AFTER FORCE MISS 

1$ 3 

TOS, R3 :IF TAG PARITY ERROR 

103$ ; THEN 

+ py PARITY ERROR AFTER FORCE MISS 

R3 COPY MSER INTO REG 4 

8177477 ,R4 ;MASK FOR BO AND Bl DATA 

300, RA ;IF 80 AND B1 DATA 

; THEN 


;SETUP PARITY VECTOR TO POINT TO HANDLER 
CLEAR MSER SAVE LOCAT 


RECEIVED DATA TO PATTERN 1 






SEQ 0296 





M7 
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- FORCE MISS TEST 


TEST 





011637 
013703 
000002 


177746 
177520 


177520 


000114 
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SES 0297 
ERROR +11 ;DATA PARITY ERROR AFTER FORCE MISS 
BR i$ ;ELSE 
104$: BIT #100, R3 ;I1F BO ERROR 
BEQ 105$ ; THEN 
+12 ;LOW BYTE PARITY ERROR AFTER FORCE MISS 
105$: BIT #200, R3 ;IF Bi ERROR 
BEQ 1$ ; THEN 
+13 ;HIGH BYTE PARITY ERROR AFTER FORCE MISS 
BR i$ ; ENDIF 
106$: +14 ;ERROR DATA 
1$: CLR R3 ;CLEAR MSER SAVE STER 
BIS #BITO3, CCR ;SET CCR BITS <3:2> = 1,0 
BIC #1000 ,BCSR ;DI HALT 
MOV @éTSTLOC,R1 ;READ TEST LOCATION 
MOV @eHITMIS ,R2 ;SAVE HIT/MISS REGISTER DATA 
BIS #1000, 8CSR SENABLE HALT 
CMP Ri, 177777 ;COMPARE RECEIVED DATA TO PATTERN 2 
BEQ 2s : IF DATAS NOT EQUAL THEN 
TST Ri ;1F RECIEVED DATA EQUAL TO PATTERN 1 
BNE 108$ ‘THEN 
BIT #BITO1, R2 VIF HIT 
BEQ 107$ ; THEN 
_ = a MISS READS Fe, i CACHE 
; 
107$: - 33° aie MISS READS FROM CACHE AND MISS 
; 
1083: ERROR +14 ; IN DATA PATH 
2$: MOV OCOO, 38114 ;RESTORE VECTOR 
CLR : CCR BITS<3:2> 
CLR aeéTSTLOC ;WRITE TES 
BR TSTS ;;GO TO NEXT TEST 
FMPARR: MOV (SP), $8DADR ;SAVE ADDRESS THAT CAUSED ABORT 
MOV MSER, R3 ;SAVE CONTENTS OF MEMORY SYSTEM ERROR 
RTI sREGISTER AND RETURN 
.SBTTL TEST 


- HIT/MISS REGISTER TEST PART 1 
;HIT/MISS REGISTER TEST PART 1 - THIS TEST THA HIT 
;REGISTER wa LOGS HITS AND MISSES.FIRST WRITE A TEST ADDRESS WITH 
;BITS<3: 2> TO ALLOCATE CACHE AND a 

eT CLEAR THEN SET BIT<2> ny Rg le 


; SHOULD LOGGED A FT 
;HIT/MISS REGISTER SHOULD HAVE LOGGED A MISS. 
; 


; 
;BGNTST 
‘WRITE TEST ADDRESS WITH PATTERN 1 
;SET CCR BITS<3:2> = 0,1 
T ADDRESS WITH PATTERN 2 
;CLEAR CCR BIT<3> 
:READ TEST ADDRESS 
F HIT/MISS REGISTER BIT 1 NOT SET THEN 
- ERROR IN RECORDING HITS IN HIT/MISS 


SO OE TT 


N7 
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SEQ 0298 

TEST - HIT/MISS REGISTER TEST PART 1 

1 ;READ TEST ESS + 20000(8) 

1666 ;IF HIT/MISS GISTER BIT 1 SET THEN 

16664 3. ERROR IN RECORDING HITS IN HIT/MISS 

16665 ; ENDIF 

16666 ;ENDTST 

16668 Pettitt tttttttttt titi tt ttt titi tii rit i rere ee eee Tt eo 

16669 107° 000004 TSTS: | SCOPE 

16670 105230 000240 NOP 

16671 105232 005737 003032 TST CCHPAS shave done enough inclusive passes? 

16672 105236 001002 BNE 99$ ; not . 

16673 105240 000240 NOP 

16674 105242 000463 BR TST6 ;;G0 TO NEX XT T st’? 

16675 105244 000240 99$: NOP 

16676 105246 013737 000114 003012 MOV a#114, SLOCOO ;SAVE CONTENTS OF VECTOR 114 

16677 105254 012737 105404 000114 MOV #HMPARR , 2114 ;SETUP PARITY VECTOR TO POINT TO HANDLER 

16678 105262 005037 003162 CLR aeTSTLOC ;WRITE TEST LOCATION WITH PATTERN 1 

16679 105266 012737 000004 177746 MOV #BITO02, CCR ;SET CCR BITS<3:2> = 0,1 

16680 105274 012737 177777 003162 MOV 2177777 ,ASTSTLOC ;WRITE TEST LOCATION WITH PATTERN 2 

16681 105302 012737 000200 177746 MOV #200 CCR ;CLEAR CCR BIT 3 AND SET PARITY ABORTS 

10606 105310 042737 001000 177520 BIC #1000 ,BCSR ;DISABLE HALT ON BREAK 

16683 105316 013701 003162 MOV a#TSTLOC Ri ;READ TEST ADDRESS 

16684 105322 013737 177752 114150 MOV HITMIS ,RECDAT ; STORE REGISTER 

16685 105330 032737 000004 114150 BIT #B1TO2 ,RECDAT ;I1F HIT/MISS REGISTER BIT 1 NOT SET 

16686 105336 001001 BNE 1$ ;T 

16687 105340 104045 ERROR +45 ;ERROR IN RECORDING HITS IN HIT/MISS 

16688 105342 013701 023162 1$: MOV @eTSTLOC+8192. ,R1 ;READ TEST LOCATION + 20000(8) 

16689 105346 013737 177752 114150 MOV HITMIS ,RECDAT ;STORE REGISTER 

16690 105354 032737 000004 114150 BIT #BITO2 ,RECDAT ;IF HIT/MISS REGISTER BIT 1 SET 

16691 105362 001401 BEQ 2s : THEN 

16692 105364 104045 ERROR +45 ;ERROR IN RECORDING HITS IN HIT/MISS 

16693 105366 013737 003012 000114 2$: MOV SLOCOO, #114 ;RESTORE VECTOR 114 

16694 105374 052737 001000 177520 BIS  #1000,BCSR ;ENABLE HALT ON BREAK 

1eae 105402 000403 BR TST6 ;;GO0 TO NEXT T 

1 013703 177744 HMPARR: MOV MSER,  R3 ;SAVE CONTENTS el SYSTEM ERROR 


6697 105404 
pets 105410 000002 RTI ;REGISTER AND RE 
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SEQ 0299 
TEST - HIT/MISS REGISTER TEST 

16701 .SBTTL TEST HIT/MISS REGISTER TEST 
167 ;HIT/MISS REGISTER TEST - THIS TEST WILL VERIFY THAT THE HIT/MISS 
16703 :REGISTER CORRECTLY LOGS CACHE HITS AND he IT WILL ALSO VERIFY 
16704 THAT ae BIT OF THE REGISTER IS UNIQUE. BE BY 
16705 ‘FLOATING A THROUGH A ao © OF ONES. THe ROTATING BE 
16706 ;BY EXECUTING A TST @¢HM CWHERE HM IS THE SS OF THE HIT/MISS 
16707 REGISTER) AT SUCCESSIVE POSITIONS IN A SET OF EIGHT NOPS. THE READ 

67 THE I/0 PAGE ADDRESS OF THE HIT/MISS REGISTER SHOULD CAUSE A 
16709 ‘MISS TO BE RECORDED. 
16710 : 
16711 ;BGNTST 

6712 INITIALIZE LOGP INDICATOR 
16713 ; INITIALIZE EXPECTED DAT 
16714 ;D0 UNTIL LOOP INDICATOR = SEVEN 
16715 3. PUT GROUND DATA INTO EXECUTION BUFFER 
16716 ¥ PUT TST INSTRUCTION INTO TEST LOCATION 
16717 - JUMP TO EXECUTE BUFFER 
16718 "a IF EXPECTED DATA NE RECEIVED DATA THEN 
16719 i. a: ERROR IN RECORDING HITS IN HIT/MISS 

6720 be ENDIF 
16721 Ra INCREMENT LOOP INDICATOR 
16722 3. UPDATE EXPECTED DATA 
16723 ; 
16724 s;EXIT TST 
16725 : 
167 ;BACKGROUND DATA:NOP 
16727 ; NOP 
167 ; NOP 
16729 ; NOP 
16730 ; NOP 
16731 ; NOP 
1orae ; NOP 
1673 : NOP 
16734 : MOV @eHM ,R2 
16735 ; RTS PC 
16736 ;ENOTST 
16737 RARREREREREERAEESERSESRESAREREERE EEE AESEEEEEEEEEEEEEEEESEEEEE ED 

1 000004 $16: SCOPE 
16739 108416 005737 003032 TST CCHPAS have done enough inclusi ? 
shave inclusive passes 

740 1 001002 BNE 99$ . not. yet 
16741 105424 NOP aid 

742 1 000511 BR TST7 3;GO TO NEXT TEST 
16743 105430 000240 99$: NOP 

6744 105432 005037 003154 CLR LOOPIN ; INITIALIZE LOOP INDICATOR 
16745 105436 013737 02 001162 MOV @FTSTLOC+20022, $TMP1 SAVE FOR LATER 
16746 1 012703 003164 MOV #TSTLOC+2,R3 ; §5 OF EXE 
16747 105450 012704 i MOV #EXP "Ra ;GET ADDRESS OF EXPECTED DATA TABLE 
16748 i 012705 i MOV #HITMIS,RS ;PUT SS OF HIT/MISS REGIS IN GPR 
16749 105460 042737 001000 177520 BIC #1000, BCSR ‘DISABLE HALT ON BREAK 
16 1 023727 003154 000007 i$: CMP LOOPIN, #7 ;D0 UNTIL LOOP INDICATOR EQUALS 7 
16751 105474 001440 BEQ T ; EXIT 
16 105476 012702 000013 MOV $13 R2 
16 1 012700 105606 MOV #BACDAT,RO ;PUT BACKGROUND DATA INTO 
tt as itaaee yey Sas 003162 7 cae fAbyo Chi) ;EXECUTION BUFFER 
16756 105514 0677202 SOB R2, $ ;LOOP FOR TEN WORDS 





TEST 


C8 
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- HIT/MISS REGISTER TEST 


023727 
001004 
013737 
000404 


012723 
SieThs 


003154 


114150 


000006 
023204 


177520 


3$: 
4$: 


BACDAT: 


EXPTBL : 


255 
PAIIISS SBESESSSESS 


Pp ®) 
= 
w 


LOOPIN, #6 
$THP1 , @eTSTLOC 20022 
(R3)+ 
#HITMIS , (R3) 

PC, TSTLOC 

RA), RECDAT 

(R4), $GDDAT 


),RECDAT 


;;G0 TO 


SEQ 0500 


31S wes LOOP 
VINVALIDATE FETCH OF “RECDAT” 


; MOVE “TST” INSTRUCTION BUFFER 
;MOVE HIT.MISS a ADD. TO BUFFER 


;sRECEIVED DATA 

; SAVE EXPECTED PATTERN 

;ERROR IN RECORDING HITS IN HIT/MISS 

; INCROMENT POINTER TO EXPECTED PATTERN 
; INCREMENT LOOP COUNTER 


;ENABLE HALT ON BREAK 
NEXT TEST 


;SAVE CONTENTS OF HIT/MISS REGISTER 


eT Se — - Eg omer 0 SSeS 


TEST 
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- BYTE ALLOCATION TEST 


.SBTTL TEST - BYTE ALLOCATION TEST 
;BYTE ALLOCATION TEST - THIS TEST WILL VERIFY THAT THE ss SYSTEM CORRECTLY 
WRITE ACCESS WHICH 


BE : 
; THE LOCATION WILL BE READ. THE WRITE BYTE SHOULD NOT HAVE gl be 
NEXT THE TEST WILL VERIFY = feet are BYTE ACCESS IS A 


;10 T T LOC 

;IF THE HIGH BYTE OF THE TEST LOCATION IS EQUAL TO THE 

tare. WAS UPDATED. THE SECOND TEST WILL BE REPEATED TO TEST LOW BYTE 
i 


; 

;BGNTST 

; SAVE VECTOR 114 

;LET VECTOR 114 POINT TO BYTE PARITY ROUTINE 
;SET PARITY ABORT BIT Z CACHE CONTROL REGISTER 
;READ TEST LOCATION + 

;WRITE LOW BYTE TO Test. ADDRESS 

READ LOW BYTE OF TEST ADDRESS 


‘IF HIT/MISS REGISTER BIT 1 SET THEN 
ss ERROR WRITE BYTE ALLOCATES THE CACHE 


; ENDIF 

;WRITE PATTERN 1 TO TEST LOCATION 

;WRITE BYTE PATTERN 2 TO TEST LOCATION+1 
SETIN HIT/MISS REGISTER THEN 


;I1F BIT1I NOT 
3. IF BO PARITY ERROR THEN 
. ERROR LOW BYTE PARITY ERROR ON WRITE BYTE HIT 


IF Bi PARITY ERROR THEN 
i os ERROR HIGH BYTE PARITY ERROR ON WRITE BYTE HIT 


WRITE BYTE HIT DOES NOT RECORD A HIT 





ENDIF 
READ TEST LOCATION 
IF RECIEVED DATA NOT EQUAL TO EXFCCTED DATA THEN 


IF BYTE DATA 
bs os ERROR BYTES REVERSED ON WRITE CYCLES 
: IF HIGH BYTE DATA ZERO THEN 

i os ERROR IN WRITING TO HIGH BYTE 
‘ P ERROR IN WRITING TO HIGH BYTE 
. ENDIF 
ENDIF 


ENDIF 
;ENDIF 

SWRITE PATTERN 1 TO TEST LOCATION 

;WRITE BYTE PATTERN 2 TO TEST LOCATION LOW BYTE 
;IF BIT1 NOTSETIN HIT/MISS REGISTER THEN 

3. IF BO PARITY ERROR THEN 

rr bn os ERROR LOW BYTE PARITY 

3. 

i. . IF Bil PARITY ERROR THEN 


i eae EL LLLRL_ — LL 


SEQ 0301 
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TEST - BYTE ALLOCATION TEST 


SEQ 0302 


16852 ERROR HIGH BYTE PRITY 
16853 ELSE 
16854 ; WRITE BYTE HIT DOES NOT RECORD A HIT 
16856 ;. ENDIF 
16857 ;ELSE 
16858 ** READ TEST LOCATION 
16859 ; IF RECIEVED DATA NOT EQUAL TO EXPECTED DATA THEN 
16860 ; IF BYTE DATA REVERSED THEN 
16861 ; ERROR BYTES REVERSED 
16862 ; ELSE 
16863 ; IF LOW BYTE DATA ZERO THEN 
16864 : ERROR IN DATA PATH 
16865 : ELSE 
16866 ; ERROR IN DATA PATH 
16867 ENDIF 
16868 ENDIF 
16869 ENDIF 
16870 ; ENDIF 
16871 :CLEAR CACHE CONTROL REGISTER 
16872 ;RESTORE VECTOR 114 
16873 sEXIT TST 
16874 
16875 ‘BYTE PARITY ROUTINE: SAVE MSER 
16876 ; RETURN 
16877 ;ENDTST 
16878 
16879 5 RRERREESRESSEREEEEESAEREREEEEEERESEEE EEE EEEESSESESEEERES SEES EE EES 
1 TST7: SCOPE 
16880 105654 000240 NOP 
16881 105656 005737 003032 TST CCHPAS shave done enough inclusive passes? 
1 105662 001002 BNE 99$ ; not yet 
1 105664 NOP ; aid 
16884 105666 000517 BR TST10 ;;GO TO NEXT TEST 
16885 105670 000240 99$: NOP 
16886 105672 013737 000114 MOV a#114, SLOCOO ;SAVE VECTOR 114 
16887 105700 012737 106114 000114 MOV @BYPARR , a0114 ;LET VECTOR 114 POINT TO ABORT ROUTINE 
06 005003 CLR CLEAR SA TER 
16889 105710 012737 000200 177746 MOV @B1T07, CCR ‘SET PARITY ABORT BIT IN CCR 
16890 105716 005737 023162 TST TSTLOC+8192. ;READ TEST LOCATION + 4K TO CAUSE MISS 
16891 105722 042737 001000 177520 BIC #1000, BCSR ;DISABLE HALT AK 
105730 105037 003162 CLRB  TSTLOC ‘WRITE LOW BYTE OF TEST LOCATION 
1 105734 105737 003162 S18 © TSTLOC ;READ LOW BYTE OF TEST LOCATION 
16894 105740 013737 177752 114150 MOV HITMIS , RECDAT STORE REGISTER 
16895 105746 032737 000004 114150 BIT #81T02,RECDAT TF BITi OF HIT/MISS REGISTER SET 
168% 105754 001401 BEQ i$ 
16897 105756 104020 ERROR +20 ‘WRITE BYTE ALLOCATES CACHE 
16898 105760 005037 003162 1$: CLR TSTLOC ;WRITE PATTERN 1 TO TEST LOCATION 
16899 105764 152737 000377 003163 BISB $377, @@TSTLOC+1 ‘URITE PATTERN 2 TO HIGH BYTE 
16900 105772 013737 177752 114150 MOV HITMIS, T :$ STER 
16901 106000 032737 000004 114150 BIT @B1T02 .RECDAT ‘IF BIT1 NOTSETIN HIT/MISS REGISTER 
16902 106006 001002 BNE 2$ ; THEN 
16903 106010 104021 101$: ERROR +21 WRITE BYTE HIT DOES NOT RECORD HIT 
16904 106012 000405 BR 3$ 
16905 106014 022737 177400 003162 23%: CMP #177400, @#TSTLOC ‘IF TEST LOCATION NOT EQUAL TO 


16906 106022 001401 BEQ 3$ ;PATT 2 THEN 
16907 106024 104022 ERROR +22 ;BYTES REVERSED ON WRITE CYCLES 





F8 
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TEST 


ease 
16923 106114 
16924 106120 
16925 106124 
16926 


005037 


011637 
013703 
000002 


- BYTE ALLOCATION TEST 


003162 
000377 
177752 
000004 
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3$: CLR TSTLOC : 
003162 BISB $377, a#TSTLOC 
114150 MOV HITMIS,RECDAT 
114150 BIT #81702 ,RECDAT 
BNE 4$ 
ERROR +12 
003162 4%: CMP #377,  a@eTSTLOC 
BEQ S$ 
ERROR +22 
S$: CLR CCR 
177520 BIS #1000, BCSR 
000114 MOV SLOCOO, a#114 
BR TST10 
BYPARR: MOV (SP),  $BDADR 
HOV MSER,  R3 


SEQ 0303 


WATTE ath. 1 TO TEST LOCATION 
WRITE PATTERN 2 TO LOW BYTE 

| STORE REGISTER 

iTF BIT1 NOTSETIN HIT/MISS REGISTER 


;LOW BYTE PARITY ERROR ON WRITE BYTE HiT 
;IF TEST LOCATION NOT EQUAL TO 


;PATTERN 2 THEN 
;BYTES REVERSED ON WRITE CYCLES 
;CLEAR CCR BEFORE EXIT 


;ENABLE HALT ON BREAK 
;RESTORE VECTOR 114 


;;GO TO NEXT TEST 


;SAVE ADDRESS THAT CAUSE ABORT 
;SAVE CONTENTS OF MSER 
;RETURN 
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TEST - POR BIT15 (BYPASS) TEST 


16983 106164 


003032 


136574 
003162 
177777 001124 
100000 172300 


.SBTTL__ TEST PDR BIT15 (BYPASS) TEST 
;PDR BIT15 (BYPASS) TEST - THIS TEST WILL VERIFY THAT WHEN BIT<15> IS SET 
;IN A PDR AND AN AC T MAPPED BY THE SELECTED PDR 


; CESS IS MADE TO A LOCA 

; THAT D Y CA A CA ACCESS, THE CACHE IS BYPASSED (I.E. THE 

; IS INVALIDATED AND A MAIN Y IS 

;BY FIRST WRITING A TEST LOCATION WITH A KNOWN PATTERN TO ALLOCATE THE ADDRE 

; WILL BE WRITTEN AGAIN WITH THE MMU AND BIT <15> SET 


; THE LOCATION 

;IN THE CONTROLING POR WITH A NEW PATTERN. THE LOCATION WILL THEN BE READ 
;AND A MISS SHOULD BE LOGGED IN THE HIT/MISS REGISTER. THIS READ WILL ALSO 
;BRING VALID DATA INTO ws FROM MEMORY. THE MMU WILL AGAIN BE ENABLED 
;WITH BIT <15> SET AND A READ CYCLE DONE. THIS SHOULD INVALIDATE THE CACHE. 
;NEXT THE MMU WILL BE DISABLED AND THE LOCATION READ FOR A THIRD TIME. THIS 
;WILL BE DONE WITH BIT<15> STILL SET. A MISS SHOULD ALSO BE LOGGED. LASTLY 
;B11<15> WILL BE CLEARED AND THE MMU ENABLED AND THE LOCATION AGAIN READ. 
;THIS TIME A CACHE HIT SHOULD BE LOGGED. 

; 

; 

;SETUP MMU REGISTERS 

;WRITE TEST LOCATION WITH PATTERN 1 

;SET BIT<15> IN POR FOR TEST LOCATION 

sENABLE MMU 

;sWRITE TEST LOCATION WITH PATTERN 2 

;DISABLE MMU AND CLEAR BIT<15> IN PDR 

sREAD TEST 


LOCATION 
F HIT/MISS REGISTER BIT<1> SET THEN 
i. ERROR CONDITIONAL BYPASS DOESN'T INVALIDATE CACHE 


; ENDIF 

;SET BIT<15> IN PDR FOR TEST LOCATION 

;ENABLE MMU 

READ on (SHOULD INVALIDATE CACHE) 

sREAD TEST LOCATION 

;IF HIT/MISS REGISTER BIT<1> SET THEN 

i. ERROR CONDITIONAL BYPASS DOESN‘T INVALIDATE CACHE 


; ENDIF 
: CLEAR BIT<15> IN PDR 
ON MMU 


READ TEST LOCATION 

;IF HIT/MISS REGISTER BIT<i> NOT SET T 

— ERROR IN RECORDING HITS IN HIT/MISS 

TURN OFF MMU 

;ENDTST 

KKAEERAEAAREREREREA AEE RARE AE EREREEEEREEARER REESE SER EERE ES EERE SS 

f§T10: SCOPE 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet. 
NOP ; aid 
BR TSTil ;;GO TO NEXT TEST 

99%: NOP 
JSR PC INITMM ;SETUP MEMORY MANAGEMEMT REGISTERS 
Se Se TOC cont AMITTE TERT LOCATZON METH PATTERN 1 
BIS @B1T15, KIPDRO ;SET BIT1S IN PDR FOR TEST LOCATION 


SEQ 0304 





TEST 


16984 106172 
16985 106176 
16986 


16987 106210 
16988 


17009 106352 
17010 106354 
17011 106362 
17012 
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- POR BIT1S5 (BYPASS) TEST 


000001 
001000 
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INC SRO | 
003162 MOV #177777, a#TSTLOC 
CLR SRO 
172300 BIC #BIT15, KIPDRO 
177520 BIC #1000,8CSR 
MOV aeTSTLOC,R1 
114150 MOV HITMIS ,RECDAT 
114150 BIT #BITO2 .RECDAT 
BEQ 2$ 
ERROR +23 
172300 2%: BIS #B1T15, KIPDRO 
INC SRO 
TST TSTLOC 
172300 BIC #BIT15, KIPDRO 
CLR SRO 
MOV @éTSTLOC,R1 
114150 MOV HITMIS , RECDAT 
114150 BIT #BITO2,RECDAT 
BEQ 3$ 
+23 
3$: INC SRO 
TST aéTSTLOC 
114150 MOV HITMIS, RECDAT 
114150 BIT #B1T02 .RECDAT 
——_ 
177572 4$: BIC #BIT00 
177520 BIS #1000, acer. 


SEQ 0305 


; TURN ON MEMORY MANAGEMENT 
At oy TEST LOCATION WITH PATTERN 2 


;CLEAR BIT1S_IN PDR FOR TEST LOCATION 
HALT ON BREAK 

;SAVE _HIT/MISS REGISTER 

;IF HIT/MISS REGISTER BIT 1 SET 


; THEN 
; CONDITIONAL BYPASS DOESN‘T INVALIDATE CACHE 
sSET BITiS IN PDR FOR TEST LOCATION 

MEMORY MANAGEMENT 


URN ON 
;READ TEST LOCATION 
;CLEAR RY IN PDR 


; TURN OFF 
READ TEST LOCATION 
;STORE HIT/MISS TO REGISTER 2 
sIF HIT/MISS REGISTER BIT 1 SET 
| CONDITIONAL BYPASS DOESN’T INVALIDATE 0 CACHE 
OCATION ONE MORE TIME 
; STORE O REGISTER 2 
4 HIT/MISS REGISTER BIT 1 NOT SET 
sERROR RECORDING HITS IN HIT/MISS 
; ENABLE HALT ON BREAK 


_ acm, cammmmmmmmmmcmsaets Ct tt CT LLL LLL LLL LLL LLL 
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TEST - FLUSH CACHE TEST 


17068 
17069 106432 


003032 


172354 


.SBTTL TEST - FLUSH CACHE TEST. 

;FLUSH CACHE TEST - THIS TEST WILL VERIFY THAT WHCN CCR BIT<8> IS 
;SET, THE ENTIRE CACHE IS INVALIDATED. FIRST 8K B\TES OF B+ * 
;WILL BE READ TO ALLOCATE CACHE. THEN THE CACHE WILL BE FLUSHED. 
;THE SAME SET OF ADDRESS WILL THEN BE READ AND THE HIT /MISS REGISTER 
s CHECKED AFTER EACH READ FOR A MISS TO BE LOGGED. 


;BGNTST 

;GET FIRST ADDRESS OF 8KB BUFFER 

; INITIALIZE LOOP COUNTER TO 4KWORD COUNT 
:D0 UNT ey COUNTER = 0 


; + 


/GET FIRST ADDRESS OF 8KB BUFFER 
; INITIALIZE LOOP COUNTER TO 2KWORD COUNT 
1 hee MISS COUNT TO 4KWORD COUNT 


;FLUSH 
— UNTIL LOOP COUNTER = 0 
READ + 


ICREMENT ADDRESS TO READ EVERY 2WORDS 
IF HIT/MISS REGISTER BIT<1> SET THEN 
DECREMENT MISS COUNT 


ENDIF 


ENDDO 

;GET FIRST ADDRESS OF 8KB BUFFER 

; INITIALIZE LOOP COUNTER TO 4KWORD COUNT 
;D0 UNTIL a. COUNTER = 0 


. RE + 







; 
;GET LAST ADDRESS OF 8KB BUFFER 
S INITIALIZE LOOP COUNTER TO 2KWORD COUNT 
;FLUSH_ CACHE 
;D0 UNTIL LOOP COUNTER = 0 
3. READ @ADDRE 
DECREMENT ADDRESS TO READ EVERY 2WORDS 
IF HIT/MISS REGISTER BIT<1> SET THEN 
DECREMENT MISS COUNT 

ENDIF 

ENDDO 
TF ress ON METS RECOR TO 4096. THEN 

, ERROR HITS RECORDED AFTER FLUSHING CACHE 


ENDIF 
sENDTST 
STTTTT TTT TTT TTT TTT TTT TT TTT TTT 

iit Til: sco 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet. 
NOP ; aid 
BR TSTi2 ;;GO TO NEXT TEST 

99$: NOP 
HOV 1600 KPA TT TTARG-POINT TO LOW 28K 
nV #140000, ‘GET ADDRESS OF 8K BYTE BUFFER 


MOV 34096. R2 


ENABLE MMU 
SINIT LOOP COUNTER TO 4K WORD COUNT 


SEQ 0306 
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TEST 
17070 106436 


17098 106570 


17094 106572 
17095 106600 


17096 106606 
17097 106610 
17098 106612 


- FLUSH CACHE TEST 
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1$: TST (R1)+ 
SOB R2, 1$ 
MOV #140000,R1 
MOV #2048., R2 
MOV #4096... R3 
177746 MOV #400, CCR 
177520 BIC #1000, BCSR 
2s: TST (R1)+ 
114150 MOV @eHITMIS ,RECDAT 
114150 BIT #B1T02,RECDAT 
BEQ 3$ 
DEC R3 
3$ : ADD we Py Ri 
SOB R2, 2 
177520 BIS #1000,BCSR 
MOV #140000 ,R1 
4$: TST CR1)+ 
SOB R2,4$ 
MOV #2048. ,R2 
MOV #160000 ,R1 
177746 MOV #400,CCR 
177520 BIC #1000, 8CSR 
S$: TST -(R1) 
114150 MOV aeHITMIS RECDAT 
114150 BIT #BIT02,RECDA 
BEQ $ 
DEC 3 
6$: SUB #2,R1 
SOB R2,5$ 
177520 BIS #1000, BCSR 
CL SRO 
CMP , R3 
BEQ 8$ 
+24 
8$: 
BR TST12 


SEQ 0307 
;READ ADDRESS TO ALLOCATE CACHE 

‘DO UNTIL ALL LOCATIONS ALLOCATED 

‘GET ADORESS OF SK BYTE BUFFER 

‘INIT LOOP COUNTER TO 2K 

VINITZALIZE MISS COUNT’ TO 4k 

DISABLE HALT ON BREAK 

i STORE REGISTER 

F HIT/MISS REGISTER NOT EQUAL 


DO FOR 4K 

;STARTING WITH 0 
;ALLOCATE IN CACHE 

;D0 FOR 4K 

;DO FOR THE 2ND HALF 
sSTART WITH LAST LOCATION 


;F CACHE 
OO aD a ON BREAK 


; STORE REGISTER 
;IF HIT/MISS REGISTER NOT EQUAL 


; TURN OF 
;IF MISS COUNT NOT EQUAL TO 4K WORDS 
‘HITS RECORDED AFTER FLUSHING CACHE 


;;G0 TO NEXT TEST 


K8 
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SEQ 0308 
TEST - UNCONDITIONAL BYPASS TEST 
17108 .SBTTL TEST - UNCONDITIONAL prenss | 
17109 ; UNCONDITIONAL BYPASS TEST - THIS est” BILL VERIFY THAT WHEN CCR 
17110 ;B1T<9> IS SET Y REFERENCE IS FORCED TO MAIN MEMORY. THIS 
17111 ;WILL ALSO SERIFY THAT READ AND WRITE HIT INVALIDATE THE CACHE 
17tt¢ ; LOCATIONS WHEN BYPASS IS SET. 
1711 ; 
17114 
sotta ;BGNTST 
17117 READ TEST LOCATIONS TO SETUP POSSIBILITY OF HIT 
aoTiS sSET CCR BIT<9> 
17120 READ FIRST TEST LOCATION 
17121 ad HIT/MISS REGISTER BIT<1> NOT SET THEN 
17is6 ERROR IN RECORDING HITS IN HIT/MISS 
r3iks i ENDIF 
17125 WRITE SECOND TEST LOCATION 
17126 ;IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
17127 © ERROR IN RECORDING HITS IN HIT/MISS 
17128 ; ENDIF 
17129 ;CLEAR CCR BIT<9> 
17130 ; 
17131 ;READ FIRST LOCA Le 
17132 sIF HIT/MISS REGISTER BIT<1> SET THEN 
17133 i ERROR BYPASS DOESN’ T INVALIDATE CACHE 
17134 ; ENDIF 
17135 ; 
17136 ;READ SECOND LOCATION 
17137 IF HIT/MISS hiss REGISTER BIT<1> SET THEN 
17138 Se DOESN‘ T INVALIDATE CACHE 
17139 ; ENDIF 
17140 : 
17141 ;ENDTST 
171 : 
1714 $ 
17144 
17145 i PTT TTT TT TTT TTT TTT ttt itt ttt eee 
112: SCOPE 
iyha? 106650 003032 TST CCHPAS have done enough inclusi ? 
; inclusive passes 

17148 106654 99$ ; not yet 
17149 106656 ; 
7150 1 TST1i3 ;;G0 TO NEXT 
172 106662 000240 99$: 

003 sALLOCATE FIRST TEST LOCATION 
17154 106670 003164 ; SECOND TEST LOCATION 
17155 106674 001000 177746 ;SET CCR BIT 9 (CACHE BYPASS) 
17156 106702 001000 177520 i$: ‘DISABLE HALT ON 
17157 106710 ooo iee ;READ FIRST TEST LOCATION 
17158 106714 pt 1 114150 HI RECDAT ;STORE HIT/MISS TO REGISTER 2 
er +4 seeyas 737 000004 114150 _ -RECDAT sIF HIT/MISS REG. BIT 1 NOT SET 
17161 106732 os ;ERROR IN IN RECORDING HITS IN HIT/MISS WITH CCR<9>=1 
ies 106 003164 24: @eTSTLOC+2 ‘WRITE SECOND LOCATI 
i7 106740 177752 114150 HITMIS ,RECDAT ;STORE HIT/MISS TO REGISTER 2 














L8 
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TEST - UNCONDITIONAL BYPASS TEST 


SEQ 0309 
















17164 106746 032737 000004 114150 BIT #B1T02 ,RECDAT ;IF HIT/MISS REG. BIT 1 NOT SET 
17165 106754 001001 BNE 3$ i 

17366 106756 104045 ;ERROR IN RECORDING HITS IN HIT/MISS WITH CCCR<9>=1 
17167 106760 003162 3$: TST ;READ FIRST TEST LOCATION 

17168 106764 013737 177752 114150 MOV ;STORE HIT/MISS TO STER 2 
17169 106772 032737 000004 114150 BIT x HIT/MISS REG. BIT 1 SET 
17170 107000 001401 BEQ 

17171 107002 1 :BYPASS DOESN'T INVALIDATE CACHE 
7172 107004 oosies 4$: CLR ;WRITE ae LOCAT 

17173 107010 01 1 114150 MOV 5 a HIT/MISS TO STER 2 
17174 edad a 032737 000004 114150 BIT HIT/MISS REG. BIT 1 SET 
7175 10 001401 BEQ 

171 ede = 1 ERROR {BYPASS ‘T INVALIDATE CACHE 
17177 107 001000 177746 5%: BIC ;RESTORE 

tit 107036 052737 001000 177520 BIS ;ENABLE HALT ON BREAK 


Mg 
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TEST - WRITE WRONG DATA PARITY TEST 


SEQ 0310 








17181 .SBTTL TEST - WRITE WRONG DATA PARITY TEST 

171862 ;WRITE WRONG DATA PARITY TEST - THIS TEST WILL VERIFY THAT ean CCR 
17183 ;BIT<6> = 1 AND CCR BITS<7,0> = 0,1, A READ MISS OCCURS AFTER A 
17164 ;WRITE. THE WRITE WITH CCR BIT<6> = 1 TO A LOCATION WILL CAUSE A 
17185 :CACHE UPDATE AND WRONG PAR ITY ye ee ee net eee 
17186 :IS READ INSTEAD OF A HIT BEING THE CACHE PARITY ERROR 
+e SWILL CAUSE A CACHE MISS. THIS TEST WILL BE DONE A BYTE AT A TIME. 
17189 ‘ BGNTST 

17190 ; SAVE S OF VECTOR 114 

17191 ‘LET VECTOR 114 POINT TO ABORT ROUTINE 

bb ;CLEAR MSER 

1719 ;IF MSER NOT CLEAR THEN 

7194 “s ERROR MSER DOESN'T CLEAR ON WRITE REFERENCE 

17195 ; ENDIF 

17196 ‘WRITE TEST LOCATION 

17197 ;SET BITS<6,0> IN 

17198 ;WRITE TEST LOCATION LOW BYTE 

17199 ; CCR BIT<6> CWRITE WRONG DATA PARITY) 

17200 ; INITIALIZE INDICATORS 

17201 ;READ TEST LOCATION LOW BYTE 

17202 :IF BIT yt IN /MISS REGISTER THEN 

17203 ARITY ERROR DOESN’T CAUSE MISS 
17204 SELSE 

17205 s IF MSER BrTs <7:5> ZERO THEN 

17206 ™ ARITY ERROR DOESN’ T SET MSER PROPERLY 

17207 “= ELSE 

17208 Ss ; SET ERROR IN LOW BYTE INDICATOR 
17209 “= ENDIF 
17210 .. ENDIF 

17211 ; ENDIF 

ie" ;CLEAR MSER 

1721 IF MSER NOT CLEAR THEN 

17214 ERROR MSER DOESN’T CLEAR ON WRITE REFERENCE 
17215 ‘ENDIF 

17216 ;SET CCR BIT<G6> 

17217 ‘WRITE TEST L TION HIGH BYTE 

17218 ;CLEAR 

17219 ;READ TEST LOCATION yt BYTE 

17220 ;1F Ori <t ae SS REGISTER THEN 

17221 e RSER BITS<75> SOT SET THEN 

7SS6 “S Y ERROR DOESN‘ T CAUSE A MISS 

Be 

17224 ? ; SET ERROR IN HIGH BYTE INDICATOR 

17225 3. ENDIF 

17226 ;ELSE 

17227 ? ¥ MSER BITS <7:5> ZERO THEN 

1 reas a PARITY ERROR DOESN’T SET MSER 

17350 ‘ENDIF 

17231 :RESTORE CONTENTS OF VECTOR 114 

172 ;IF ERROR INDICATORS SET THEN 

17 ; IF ames” IN BOTH BYTES THEN 

17234 ;. , ARITY ERROR IGNORED 

17235 - ELSE 

17236 3. ; » ERROR IN LOW BYTE THEN 

17237 ; LOW BYTE PARITY ERROR IGNORED 
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TEST 


286 107250 
172867 107256 
17288 107264 


107266 
17290 107270 
17291 107272 


1 
17 


10 
107302 


003032 


- WRITE WRONG DATA PARITY TEST 


003012 
000114 


177520 
177746 
003162 
177746 


177744 


ENDIF 
TST 


ELSE 
ENDIF 


HIGH BYTE PARITY ERROR IGNORED 


;DATA PARITY ABORT ROUTINE: 


;ENDTST 


ILLEGAL PARITY INTERRUPT 
RETURN 


ieee acacia aie ami 


99$: 


1$: 


2s: 


3$: 


4$: 


5$: 





SEQ O311 


CCHPAS shave done enough inclusive passes? 
99$ ; not ee 
TST14 GO TO WEXT TEST” 
9f114,  sL0co0 ,SAVE CONTENTS OF VECTOR 114 
APABO, #114 ;LET VECTOR POINT TO ABORT ROUTINE 

MOER ‘CLEAR MSER 
Ms ‘IF MSER NOT CLEAR 
: IMSER DOES NOT CLEAR ON WRITE REFERENCE 
aeTSTLOC ‘WRITE TEST LOCATION TO ALLOCATE CACHE 
1000, BCSR ‘DISABLE HALT ON BREAK 
$101, CCR SET BITS<6,0> IN CCR 
$377, TSTLOC ;WRITE LOW BYTE WITH BAD PARITY 

1T06, CCR ‘CLEAR WRITE WRONG DATA PARITY BIT 
R2 ‘CLEAR ERROR 
aeTSTLOC ‘READ LOW BYTE OF TEST LOCATION 
HITMIS, R3 SAVE 
g61TO2, RS ‘IF BIT 1 SET IN HIT/MISS REGISTER 
227 iPARITY ERROR DON'T CAUSE A MISS 
#340, HSER SIF MSER BIT<7:5> NOT ZERO 
°30 ‘PARITY ERROR DON’T SET MSER WITH CCR<7>=0 
MSER ‘CLEAR 
HSER ‘IF MSER NOT CLEAR 
+26 'MSER DOES NOT CLEAR ON WRITE REFERENCE 
@B1T06, CCR SET CCR BIT 6 CWRITE WRONG PARITY) 
BS STORE OT UNONT PARTIY 817 
SeTsTL bed sREAD HIGH BYTE OF TEST LOCATION 
#61702; RECDAT ‘iret 3 1 SET IN HIT/MISS REGISTER 
+27 ‘PARITY ERROR DON’T CAUSE A MISS 
6$ ;ELSE 
#340, HSER ‘IF BITS <7:5> ZERO 
°30 DARTTY ERROR DON’T SET MSER WITH CCR<7>=0 





BY 
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TEST - WRITE WRONG DATA PARITY TEST 


17294 107304 005037 177746 6$: 
17295 107310 peed pone 000114 


176% 10735 005037 177746 7$: 
1 1073 013737 003012 000114 
052737 77520 


1 

1 

17305 107350 011637 001122 
; 104007 

1 


DAPABO: 


CCR | ;CLEAR CCR BEFORE EXIT 
SLOCOO, a¢114 ;RESTORE CONTENTS OF VECTOR 114 
23, R2 ;IF ERROR INDICATORS SET 
7$ ; THEN 
+31 sPARITY ERROR IGNORED 
; 
SLOCOO, a#114 :RESTORE PARITY TRAP 
#1000, BCSR ;ENABLE HALT ON BREAK 
TST14 ;;GO TO NEXT TEST 
(SP),  $BDADR ;SAVE ADDRESS THAT CAUSED ABORT 
oF TILLEGAL PARITY INTERRUPT 


SEQ 0312 
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TEST - WRITE WRONG TAG PARITY 


SEQ 0313 


17310 .SBTTL TEST - WRIT. WRONG TAG PARITY 

17311 ;WRITE WRONG TAG PARITY - THIS TEST WILL VERIFY THAT | A READ MISS 
17312 ;OCCURS AFTER A WRITE WILL we = 1 AND CCR<7,0> = 0,1. THE WRITE 
27313 ;TO THE LOCATION WILL CAUSE A CACHE UPDATE BUT THE TAG WILL BE 
17314 : WRITTEN WITH THE WRONG PARITY. WHEN THE LOCATION IS i INSTEAD 
17315 ;0F A CACHE HIT OCCURRING THE PARITY ERROR SHOULD CAUSE A CACHE 
17316 ‘MISS. 

17317 ; 

17318 ;BGNTST 


;SAVE CONTENTS OF VECTOR 114 
;LET VECTOR 114 POINT TO ABORT ROUTINE 


SET WRITE WRONG TAG PARITY BIT<10> 
‘WRITE TEST LOCATION 
:CLEAR CCR BI1<10> AND SET ABORT DISABLE BIT<O> 


agdaaacauuenueereds 


;READ TEST LOCA 
;IF BIT<1> SET IN HIT/MISS REGISTER THEN 
» IF MSER errs <7:5> SET T 
; bn on ITY ERROR DOESN’ T CAUSE MISS 
: PARITY ERROR DOESN'T SET MSER WITH CCR<7>=0 
; ENDI 
TE 


;SET WRITE WRONG TAG PARITY BIT<10> 

{WRITE TO A_BYTE OF A TEST LOCATION 

; /MISS REGISTER 

;CLE TE WRONG TAG PARITY BIT 

;IF BIT<1> NOT SET IN HIT/MISS REGISTER THEN 








17338 3. 

17339 ; ENDIF 

17340 ;RESTORE VECTOR 114 

17341 ;EXIT TST 

: 

Tas ;TAG PARITY ABORT ROUTINE: 

17344 ; ILLEGAL PARITY INTERRUPT 

17345 ; RETURN 

17346 ;ENDTST 

17347 {Ree EEEESEEEEESEEEEEESEEOEEERESESERESESESESESESEEESESEEEEEES SEEDED 

0 000004 4$T14: SCOPE 

17349 107368 005737 003032 rer CCHPAS have done enough inclusi ? 
3 inciusive pesses: 

17350 107370 001002 BNE 99$ not yet 

17351 107372 NOP aid 

07374 000453 BR TST15 ;;G0 TO NEXT TEST 
7376 99$: NOP 

17354 107400 013737 000114 003012 MOV @#114, SLOCOO ;SAVE CONTENTS OF VECTOR 114 

1 107406 012737 107514 000114 MOV @TAPABO, 26114 :LET VECTOR POINT TO ABORT ROUTINE 

1 107414 042737 001000 177520 BIC #1000, BCSR ;DISABLE HALT ON BREAK 

1 107422 005037 177744 CLR ;CLEAR 

1 107 012737 002000 177746 MOV #B1T10, CCR ;SET WRITE WRONG TAG PARITY 

17359 107434 005037 003162 CLR OC ne ;WRITE LOCATION WITH BAD TAG PARITY 

7440 012737 000001 177746 MOV #81100 ;CLEAR 10 AND SET BIT 0 

17361 107446 008737 003162 TST foc ;RE OCATION 

1 107452 013737 177752 114150 MOV oT THs RECDAT ;SAVE HIT/MISS REGISTER 

: 107460 08273 000004 114150 eI #81702. RECDAT ‘IF BIT 1 SET IN HIT/MISS REGISTER 


7364 107466 ; THEN 
17365 107470 10402 ERROR 227 ;PARITY ERROR DON'T CAUSE A MISS 





DY 
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TEST - WRITE WRONG TAG PARITY 


17366 107472 


HE sar 
173783 107520 
17374 107522 
17375 


013737 


005037 
052737 
000404 


011637 


10400 


5 


003012 
177744 
001000 


001122 


000114 2%: 


177520 


TAPABO: 


BIS 
BR 


SLOCOO, 26114 
MSER 


#1000,BCSR 
TST1iS 


(>. nee 


SEQ 0314 

;sRESTORE CONTENTS OF VECTOR 114 
; ENABLE HALT ON BREAK 
;;GO TO NEXT TEST 


;SAVE ADDRESS THAT CAUSE ABORT 
;ILLEGAL PARITY INTERRUPT 
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SEQ 0 
TEST - PARITY ABORT TEST Q@ 0315 
17377 .SBTTL TEST - PARITY ABORT TEST 
17378 ;PARITY ABORT TEST - THIS TEST WILL VERIFY ae WHEN CCR<7 
17379 31,0, AN ABORT OCCURS ON THE EXECUTION OF AN INSTRUCTION THAT HAS 
17380 ;BEEN WRITTEN WITH WRONG PARITY. 
17381 ; 
17382 $ 
17383 ;BGNTST 
17384 ;SAVE VECTOR 114 
17385 ;SAVE VECTOR 4 
17386 ;LET VECTOR 114 POINT TO ABORT ROUTINE 
17387 sLET VECTOR 4 POINT TO ERROR ROUTINE 
17388 ;CLEAR EXPECTING ABORT FLAG 
17389 ;SET CCR<10> WRITE WRONG TAG PARITY BIT 
17390 ;WRITE TEST ADDRESS 
17391 ;CLEAR CCR<10> 
173 ;SET CCR TO aoe PARITY ABORTS 
1739 ;SET CTING ABORT F 
17394 ;READ TEST 
17395 sIF ABORT FLAG NE O THEN 
17396 ’ ERROR IN PARITY ABORT LOGIC 
17397 ; ENDIF 
17398 ; RESTORE VECTOR 114 
17399 ;RESTORE VECTOR 4 
tyaen sEXIT TST 
17402 ‘ ABORT ROUTINE: IF EXPECTING ABORT FLAG NOT SET THEN 
17403 : ERROR NO ABORT SHOULD HAVE OCCURRED 
17404 : ELSE 
17405 ; ‘ CLEAR CEXPECTING) ABORT FLAG 
17406 : END 
17407 ; IF MSER NOT EQUAL TO 100040 THEN 
as ; ber PARITY ABORT LOGIC DOESN'T SET MSER PROPERLY 
$ 
17410 ; IF PC = UPDATED PC THEN 
17411 ; ‘ ILLEGAL PARITY ABORT 
17412 $ ENDIF 
17413 ; RETURN 
17414 ; 
17415 ;ENDTST 
17416 5 RAEEEEEEEAESERE ES EESEESAEEEESRAAAERERSEREESESESSERESSEEEESE SEES 
07524 000004 $115: SCOPE 
i7aie 107886 005737 003032 TST CCHPAS have enough l ? 
; done inclusive passes? 
1m ee of 001002 po 99$ ; not yet 
17421 107540 000504 BR TST1i6 ;;G0 TO NEXT 9'° 
one 107542 000240 99$: NOP 
17424 107544 013737 000114 003012 MOV esi. SLOCOO ;SAVE VECTOR 114 
17425 107552 013737 000004 003014 MOV ot For ;SAVE VEC 
oe 107560 012737 107676 000114 MOV SABORTR,Be1i4- ;sLET VECTOR 114 POINT TO ABORT ROUTINE 
: 
17439 ; TO AVOID CONFUSION ALLOCATE IN CACHE FOLLOWING INSTRUCIONS 
: 
17 107566 012704 107566 MOV #.,R4 START WITH CURRENT 
17431 107572 005724 1s: TST (RA)- 
17432 107574 022704 107676 CMP #ABORTR ,R4 ;GOT TO ABORT ROUTINE? 





TEST 


rg 
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17433 107600 


446 107662 
17447 107670 
17449 107674 


17450 
take 107676 
7452 107702 


17465 107750 
17466 


001374 


- PARITY ABORT TEST 


107640 
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BNE 1$ 
CLR RO 
177520 BIC #1000, BCSR 
177746 MOV #B1T10, CCR 
CLR asTSTLOC 
177746 HOV eBITO?. CCR 
ABORTI: TST @#TSTLOC 
TST RO 
BEQ 1$ 
ERROR +34 
177520 1$: BIS #1000, BCSR 
000114 MOV SLOCOO, a#114 
000004 MOV SLOCO1, 
CLR 
BR TST16 
ABORTR: MOV MSER,R3 
TST RO 
BNE 1$ 
MOV (SP),  $BDADR 
ERROR +7 
BR 2$ 
1$: CLR RO 
177744 28: oF #100040, HSER 
001124 MOV #100040, $GDDAT 
ERROR +35 
3$: CMP (SP),  @ABORTI+4 
BEQ 43 
ERROR +7 
4$: RTI 


SEQ 0316 


F NOT, KEEP ON ALLOCATING 
‘CLEAR EXPECTING ABORT FLAG 
;DISABLE HALT ON BREAK 
;SET WRITE WRONG PARITY BIT 
SWRITE TEST LOCATION WITH BAD PARITY 
; ENABLE TS, CLEAR WWTP BIT 
;SET EXPECTING ABORT FLAG 
;READ TEST cm at (SHOULD CAUSE ABORT) 
;IF ABORT FLAG NOT EQUAL ZERO 


; THEN 
;PARITY ABORT LOGIC DOESN'T WORK 
;ENABLE HALT ON BREAK 
;RESTORE VECTOR Yt 
sRESTORE VECTORE 4 


;;GO0 TO NEXT TEST 


;SAVE MSER 
‘IF EXPECTING ABORT FLAG NOT SET 


; THEN 
; SAVE ABORT ADDRESS 
;sILLEGAL PARITY INTERRUPT 


‘ELSE 
SCLEAR (EXPECTING) ABORT FLAG 
:TF_MSER NOT EQUAL TO 100040 
UAE PROPER MSER SETTING 
‘PARITY ABORT DON’T SET MSER PROPERLY 
‘IF PC EQUAL TO UPDATE PC 


; THEN 
;ILLEGAL PARITY INTERRUPT 
;RETURN 


eee 


G9 
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SEQ 0317 
TEST - PARITY INTERRUPT TEST 
17468 _SBTTL TEST - PARITY INTERRUPT TEST 
17469 :PARITY INTERRUPT TEST - THIS TEST WILL VERIFY THAT WHEN CCR<7,0> = 
17470 19.0 A PARITY INTERRRUPT OCCURS ACTER EXECUTION OF AN INSTRUCTION 
17471 HAT HAS BEEN WRITTEN WITH WRONG PARITY 
17473 ;BGNTST 
17474 ;SAVE CONTENTS OF 114 
17475 :SETUP VECTOR 114 TO POINT TO INTERRUPT ROUTINE 
17476 ‘CLEAR EXPECTING INTERRUPT FL 
17477 :WRITE TEST ADDRESS WITH BAD PARITY 
17478 T EXPECTING INTERRUPT FLAG 
17479 ‘READ TEST ADDRESS 
17480 :IF INTERRUPT FLAG NE O THEN 
17481 err PARITY INTERRUPT LOGIC DOESN’T WORK 
; 
1748 :RESTORE CONTENTS OF VECTOR 114 
17458 sEXIT TST 
1 
17486 : INTERRUPT ROUTINE: IF EXPECTING INTERRUPT FLAG NE 1 THEN 
17487 ; isin ERROR NO INTERRUPT SHOULD HAVE OCCURRED 
17489 ; CLEAR (EXPECTING) INTERRUPT FLAG 
17490 ; END 
17491 : IF SAVED PC NE TO UPDATED PC THEN 
17492 ; IF PC = TEST INSTRUCTION PC THEN 
17493 ; ERROR INSTRUCTION ABORTED 
17494 ; ELSE 
17495 ; : ILLEGAL PARITY ABORT 
17496 ; 
17497 ; ENDIF 
17498 ; IF MSER NE #340 THEN 
17499 ; PARITY INTERRUPT DOESN’T SET MSER PROPERLY 
17500 ; ENDIF 
17301 ; RETURN 
2 
17308 sENDTST 
17504 © KKKAEREAKAAKRAAEAREARAESRARAAARARSESKERASEAAARSEEARAESKEKAEESSEAERERESE SE 
107752 1$T16: SCOPE 
17308 107756 905737 003032 TST CCHPAS have done enough inclusi ? 
; ve inclusive passes 
17507 107762 001002 BNE 99$ ; not yet. 
17508 107764 000240 NOP ; ai 
17509 107766 000473 BR TST17 :;GO TO NEXT TEST 
17510 107770 000240 99$: NOP 
17512 107772 013737 000114 003012 MOV SLOCOO ;SAVE CONTENTS OF VECTOR 114 
17313 110000 012737 110106 000114 MOV OTTER, aeii4 ‘LET VECTOR POINT TO INTERRUPT ROUTINE 
17515 ; TO AVOID CONFUSION ALLOCATE IN CACHE FOLLOWING INSTRUCIONS 
17517 110006 012704 110006 MOV #.,R4 ;START WITH CURRENT 
17518 110012 005724 1$: TST (R4)+ ;READ A WORD 
17519 110014 022704 110106 CMP #INTERR,R4 :GOT TO INTERRUPT ROUTINE? 
17520 110020 001374 BNE 1$ ;IF NOT, KEEP ON ALLOCATING 
17521 110022 005001 CLR Ri ;CLEAR EXPECTING INTERRUPT FLAG 
10024 042737 001000 177520 BIC #1000, BCSR ;DISABLE HALT ON BREAK 


17522 1 ON 
17523 110032 052737 000100 177746 BIS @BIT06, CCR ;SET WRITE WRONG DATA PARITY 





TEST 
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- PARITY INTERRUPT TEST 


ne 


Bees 
aaa 
2s 


cael el el a ee ee ee ee oe eed 
meeeeeseeaseer: 
So NOU Ow 
a a ee 
a ee ee ee ee ee 
Soooooocoooo°oCco 
Ree et pee Re 
Vass o 


17551 


005037 


003162 
177746 


003162 


001000 
003012 
177744 


001122 


110056 


000340 177744 
000340 001124 


177520 
000114 


INTRPC: 


1$: 


INTERR: 


a#TSTLOC 
CR 


$BDADR 


#INTRPC+4 


MSER 
$GDDAT 


;WRITE LOCATION WITH oo pants PARITY 
;CLEAR WRITE WRONG DATA PARITY 

;SET EXPECTING INTERRUPT °F 

;READ TEST LOCATION 

;IF INTERRUPT FLAG NOT EQUAL ZERO 


;PARITY INTERRUPT LOGIC DOESN'T WORK 
;ENABLE HALT ON BREAK 
sRES TORE VECTOR 114 


;:GO0 TO NEXT TEST 


:TF EXPECTING INTERRUPT FLAG NOT SET 
;SAVE INTERRUPT ADDRESS 

:TLLEGAL PARITY INTERRUPT 

‘CLEAR (EXPECTING) INTERRUPT FLAG 
+I SAVED PC NOT EQUAL 10 UPDATED PC 
“ILLEGAL PARITY INT 


ERRUPT 
4 4 MSER NOT EQUAL TO EXPECTED VALUE 
; 


SEQ 0318 


SAVE PROPER MSER 
‘PARITY INTERRUPT DON’T SET MSER PROPERLY 
;RETURN 
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- MISCELLANEOUS PARITY TEST 


TEST 


17580 


eee he he pee 


ieee 


17597 
98 


110174 
110176 
0202 


0204 
110210 


17608 110344 


3 
001374 


003032 


110176 
110354 


177744 


000114 
177746 


177746 


$6117 


99$: 


10$: 


-SBTTL TEST 


OUS PARITY TEST 


CAUSE CACHE HIT 
; IGNORE PARITY ERRORS. 


SCELLANE 
;MISCELLANEOUS PARITY TEST - THIS TEST em Hl BYPASS CYCLES WITH 
;PARITY ERRORS RESPONSE AND T 


T FORCE MISS CYCLES 


: 

;BGNTST 

;WRITE A LOCATION WITH BAD PARITY 
YPASS IN CCR 


;SET B 
;READ THE LOCATION BACK 
;IF NO HIT OR MSER NOT SET THEN 


‘ENDIF 
;ENDTST 


READING IT 


; ENDIF 
SWRITE A LOCATION WITH BAD PARITY AND SET BYPASS 
:IF MSER SET WHILE BACK 


jESERaEEEREREAEEEEERESESEAREREEE RES AAS EAE EEE ES EREEE SEE EEESES ESE SSE 


TST 


CCHPAS 
99 


; : CHECK BYPASS AND BAD PARITY 


shave done enough inclusive passes? 
; not eo 


;:GO0 TO NEX TT st’ 


;START WITH CURRENT INSTRUCTION 
;READ A WORD 


;LAST WORD? 
;IF NOT, CONTINUE 


MOV @e1i4, SLOCOO ;SAVE PARITY VECTOR 
MOV #1$,00114 :POINT NEW VECTOR 
BIC #1000, 8CSR :DISABLE HALT ON BREAK 
BIS #81710!81T06!BIT00,CCR :DATA AND TAG PAR., NO INT. 
CLR aeTSTLOC ;WRITE CYCLE 
MOV #8IT09,CCR ; YPASS 
TST aéTSTLOC :BYPASS WITH WRONG PARITY 
ERROR 245 ;ERROR 
BR 2$ ; 
1$: ADD $4, SP : ADJUST STACK 
BIT #340 ,MSER ; OK? 
BNE 2$ ;IF YES, BRANCH 
ERROR +42 :BYPASS WRONG 
; CHECK FORCE MISS AND BAD PARITY 
3s; CLR ;CLEAR MSER 
ay 6|O«SSe.@euse CONT NEW 
: 
BIS #81110!BIT06!BITOO,CCR :DATA AND TAG PAR. sal ER 
Cy CBA CER —_—uH 
3 
TST aeTSTLOC ;ALLOCATE CACHE 


SEQ 0319 
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TEST - MISCELLANEOUS PARITY TEST 


10346 


6 0 
17614 110374 
17615 


#8IT08,CCR 


SEQ 0320 
;ADJUST STACK 
;CLEAR CCR 
;ENABLE HALT ON BREAK 
;sRESTORE PARITY VECTOR 
;FLUSH CACHE 


KY 
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LOOP COUNTER 
ZE L 
7 Pr eerie occ 


AD TEST TOF on THO, TO ALLOCATE LOCATION WITH DESIRED PARITY 
CLEAR FROM CCR 

SETUP CCR F 

READ 


~ 


SEQ 0321 
TEST - MEMORY SYSTEM ERROR REGISTER TEST 

17617 _SBTTL TEST - MEMORY SYSTEM ERROR REGISTER TEST 
17618 :MEMORY SYSTEM ERROR REGISTER TEST - THIS TEST WILL VERIFY THE 
17619 s;FUNCTIONALITY OF BITS <15> AND <7:5> THE MEMORY SYSTEM ERROR 
17620 ;REGISTER. THIS TEST WILL USE THE WRITE WRONG fey BITS (BITS<10> 
17621 ;AND <6> OF THE CCR) TO WRITE BAD PARITY INTO A LOCATION. THE 
17622 ;LOCATION WILL THEN BE READ WITH CACHE TRAPS AND THE MSER 
17623 ;WILL BE CHECKED AFTER THE ABORT FOR THE CORRECT BIT(S) BEING SET. 
17624 ;THIS WILL BE DONE FOR ALL COMBINATIONS OF BITS<10> AND <6> FOR WORD 
17625 ; ACCESSES THEN REPEATED FOR ALL COMBINATIONS OF BITS<10> AND <6> FOR 
17626 ;BYTE ACCESSES. THE TEST WILL THEN BE REPEATED A THIRD TIME FOR BYTE 
17627 ;ACCESSES AND ABORTS DISABLED. THE MSER SHOULD CONTAIN BITS <7:5> 
es SET TO 1’S AND BIT <15> A ZERO FOR ALL COMBINATIONS. 

; 
17630 ;BGNTST 
17631 ;SAVE CONTENTS OF VECTOR 114 
17632 SETUP VECTOR TO POINT TO ABORT ROUTINE 
17633 ; INITIALIZE LOOP 
17634 ;D0 UNTIL ALL WORD COMBINATIONS CHECKED 
17635 3. INITIAL 
17636 Re SETUP FROM CCR TABLE 
17637 3. Toke TEST LOCATION TO ALLOCATE LOCATION WITH DESIRED PARITY 
17638 ™ < 2G FROM CCR 
17639 3. OR ABORT 
17640 ts READ. PECTED 0 LOC TION ;THIS COULD CAUSE TRAP 
17641 i. TA NE RECEIVED DATA THEN 
17642 Be IN SETTING MSER 
17643 3. ENDIF 
17644 3. TE LOOP COUNTER 
17645 ; 
17646 $ 
17647 ; 
17648 “e 
17649 e 
17650 3. 
17651 hs 
1 F 
1 is 
a me 

3. 
17822 ? 
17657 * 
17658 3. 
17659 3. 
17660 Ss 
17661 Ra 
17662 3. 

: 

$ 

te 

3. 





SK 
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TEST - MEMORY SYSTEM ERROR REGISTER TEST 


¥EQ 0322 



























17674 3 IF RECEIVED DATA NE TO @340 THEN 
17675 ; ‘ ERROR IN SETTING MSER 
17676 ; ENDIF 
17677 ; INITIALIZE MSER 
17678 ; READ HIGH BYTE TEST LOCATION 
17679 ; IF RECEIVED DATA NE #340 THEN 
17680 ; : IN SETTING MSER 
17681 .. ENDIF 
17686 ™ INCREMENT LOOP COUNTER 
17 ;ENDDO 
17684 sEXIT TST 
17685 ; 
17686 ;CCR TABLE: 0 
17687 : 100 
17688 3 
17689 : 2100 
17690 ;EXPECTED WORD DATA: 0 
17691 3 100300 
1 : 100040 
17 ; 100340 
17694 sEXPECTED BYTE DATA: 0 
17695 : 0 
1 ; 100100 
17697 ; 100200 
eae ; 100040 
1 $ 100040 
17700 ; 100140 
17701 3 100240 
Eh ;ABORT ROUTINE: RTI 
i ; 
17704 ;ENDTST 
17705 PTVTTTTT TTT TTT TTT ttt 
1 000004 *$120 
17707 i 005737 003032 TST i enough inclusi ? 
mcius:ive pesses: 
a : od 001003 = 3 $ 
17710 tiosie 000137 111104 JP 10% 
ate 110422 000240 993: NOP 
i7ig il 013737 000114 003012 MOV ;SAVE CONTENTS OF VECTOR 114 
17714 1104 012737 ties 000114 MOV : TO POINT TO ABORT ROUTINE 
17715 11 0 MOV : LOOP on 
ITM? 410480 O12701 Lillie HOV DATA TABLE 
3 
{711s i1oase 042787 001000 177520 are 
17719 110462 177744 1$: CLR ; 
i 110466 0 177746 MOV 3 
1 110472 003162 CLR 3 
1 110476 90 177746 MOV ; 
1 110504 003162 TST ; LOCA 
1 110510 021137 177744 CMP ;1F DATA NOT EQUAL TO EXPECTED 
Te 110514 1403 BEG ;DATA 
: i 16 011137 001124 MOV $GDDAT ; SAVE =r L 
+ 3 
17738 il 2s: ist. (R1)- ; T 
17729 1 1ease oos7e 023162 TST peTSTLOC-8192. ;710 INSURE MI THE NEXT L 





M9 
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TEST - MEMORY 


+ 
ae 


1 110534 


=gededeaes 
: 


~sNN 

RRS 

Bees 
he be pe he pepe be 
ao = bb ee pe pe pe he 


re 
= 


“Sw~ 
z 
SEE 


ave 
es 


110672 


Oe bb bo be bo bm pe he po pe ho pe pe 





17786 111056 


110532 


SYSTEM ERROR REGISTER TEST 


077425 
052737 


001000 


177520 


177520 


177746 


177746 


177520 


177520 


177746 
177744 
001124 


177746 
177744 
001124 


SOB R4, i$ 
BIS #1000 ,BCSR 
; CHECK OnOV Soules — 


3$: 


4$: 


5$: 


B 
;REPEAT 


6$: 


7$: 


8$: 








INI 

;ALLOCATE TO HAVE WRITE BYTE HIT 

SETUP CCR FROM TABLE 

;ALLOCATE CACHE LOC. WITH DESIRED vamery 
;SETUP CCR TO ABORT Are BAD PARITY 


;READ LOW BYTE OF TEST LOCATION 
;IF RECEIVED DATA NOT EQUAL TO EXPECTED 


; THEN 
; SAVE PROPER MSER SETTING 
Mer NOT SET PROPERLY 
POINTER THRU MSER TABLE 
S INITIALIZE 


;ALLOCATE TO HAVE WRITE BYTE HIT 
CCR TABLE 


DESIRED PARITY 
ABORT POSSIBLE BAD PARITY 

;READ HIGH BYTE ¥ TEST LOCATION 

;IF RECEIVED DATA NOT EQUAL TO EXPECTED 


; THEN 

;SAVE PROPER MSER SETTING 
; SET PROPERLY 

; INCREMENT POINTER THRU MSER TABLE 

;00 UNTIL ALL BYTE COMBINATIONS CHECKED 
;ENABLE HALT ON BREAK 





; INITIALIZE LOOP COUNTER 
OF CCR TABLE 






TAL 
s ALLOCATE 3 LOC. 
CCR FROM TABLE 
;ALLOCATE CACHE L ie DESIRED PARITY 


; THEN 
; SAVE PROPER MSER SETTING 
;MSER NOT SET 


PROPERLY 





; THEN 
i SAVE tg Tes 
00 UNTIL ALL BYTE COMBINATIONS CHECKED 


SEQ 0325 
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TEST - MEMORY SYSTEM ERROR REGISTER TEST 


SEQ 0324 





17787 111060 005037 177744 CLR MSER ;CLEAR ERROR REGISTER 
17788 111064 052737 001000 177520 BIS #1000,BCSR ;ENABLE HALT ON BREAK 
17789 111072 013737 003012 000114 MOV SLOCOO, a#114 ;RESTORE VECTOR 114 
17790 111100 005037 177746 CLR CCR ;CLEAR ALL BIT IN CCR 
17791 111104 10$: 

i 111104 000421 BR TST21 ;;GO TO NEXT TEST 

17798 

17794 1111 CCRTBL: .WORD 0 

17795 111110 000100 “WORD 100 

17796 1111 “WORD 2000 

17797 111114 002100 "WORD 2100 

17499 111116 000000 EXPWDT: .WORD 

17800 111120 100300 "WORD 100300 

17801 11 1 “ WORD 

1? 111124 100340 "WORD 100340 

17804 111126 000000 EXPBDT: .WORD 0 

17805 111130 000000 "WORD 0 

17806 111132 100100 “WORD 100100 

17807 111134 100200 "WORD 100200 

17808 111136 100040 "WORD 100040 

17809 111140 100040 "WORD 100040 

17810 111142 100140 "WORD 100140 

17811 111144 1 “WORD 1 

17813 111146 000002 ABROUT: RTI 

17814 


17815 


a SK 


B10 
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SEQ 0325 
TEST - CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABO 

17817 .SBTTL TEST CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT 
17818 ;CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT - THIS TEST WILL 
17819 Y THAT IF A PARITY ERROR OCCURS ON THE SAME ADDRESS REFERENCE AS A 
17820 -EXISTENT MEMORY ERROR THE CACHE DATA PATH GATE ARRAY BLOCKS THE 
17821 :PARITY ERROR TO THE J-11 CHIP SET. THIS WILL BE DONE BY USING THE DIAGNOSTIC 
17 ;BIT TO CAUSE A PARITY ERROR IN A CACHE REFERENCE THAT DOES NOT HAVE A 
17 ;CORRESPONDING ADDRESS IN MAIN MEMORY. THE ADDRESS WILL THEN BE RE 
17 ;BOTH A CACHE PARITY ERROR AND A NON-EXISTENT MEMORY ERROR. TO AVOID HAVING 
17825 ;TO SIZE THE ENTIRE MEMORY TO FIND A NON-EXISTENT MEMORY ADDRESS THIS TEST 
17826 ;WILL USE THE LARGEST NON-I/0 ADDRESS (17757776). THE TEST WT! L FIRST READ 
17827 ;THIS ADDRESS AND IF A NXM TRAP OCCURS THE TEST WILL BE DONE. IF THE ACCESS 
+ ;T0 THIS ADDRESS DOES NOT TRAP THEN THE TEST WILL BE SKIPPED 

; 
178 ;BGNTST 
17831 ;SAVE CONTENTS 
178 ; SAVE S OF VECTOR 114 
1783 sLET VECTOR 4 en TO CONTINUE TESTING (A:) 
17 , , ;LET PAR6 = #177 
17835 SACCESS ADDRESS 157776 (PHYSICAL 17757776) 
17038 ‘IF NO TRAP 
17 Su GOTO ENDTST 
as pew 
17840 ser DIAGNOSTIC AND WRITE WRONG PARITY BITS IN CCR 
17841 WRITE ADDRESS 157776 - 
RL 94 ;CLEAR 
1784 ;SET PARITY ERROR ABORT BIT IN CCR 
17844 ;LET VECTOR 4 POINT TO CONTINUE TESTING (B: ) 
17845 ;LET VECTOR 114 = ofl TO NXM-PARITY ERROR ROUTINE 
17846 ;READ — 15777 
17847 VIF NO TRAP THEN 
17848 3. ERROR IN ABORT LOGIC 
17849 ; ENDIF 
17850 ;B: 
17 ;CLEAR CCR 
17 ;RESTORE CONTENTS OF VECTOR 4 
17 1 eel CONTENTS OF VECTOR 4 
17 ;EXIT TST 
i} , 

; 
1ree! ;NXM-PARITY ERROR ROUTINE: RESET STAX AFTER TRAP 
17 ARITY ABORT NOT BLOCKED BY NXM 
17859 GOTO nih 
17860 ;ENDTST 

1 seseeessscesssnessasssonssssssssesssegssonsssssessesenesseeeets 
111150 000004 $121: SCOPE 

17862 111152 000240 NOP 
17863 111154 005737 003032 TST CCHPAS shave done enough inclusive pesses? 
17864 111160 001002 BNE 99$ ; not yet 
17865 111162 000240 NOP ; aid 
17866 111164 000475 BR TST22 ;;GO TO NEXT TEST 
Es oH 111166 000240 99$: NOP 
17869 111170 013737 000004 003012 MOV aM, SLOCOO ;SAVE CONTENTS OF VECTOR 4 
17870 111176 013737 000114 003014 MOV a@114, SLOCO1 ; SAVE CONTENT S OF VECTOR 114 
17871 111204 012737 111232 000004 MOV #1 ;LET VECTOR 4 POINT TO INVE TESTING 
17872 111212 012737 177400 172354 MOV #177400 , KIPAR6 ;LET PAR6 = OFFSET TO HIGHEST MEMORY 





C10 
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SEQ 0326 

TEST - CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABO 

17873 111220 005237 177572 INC SRO ; TURN ON MMU 

17874 111224 005737 157776 TST 90157776 FACCESS ADDRESS 17757776 

17875 111230 000431 BR ABOEXT :IF NO TRAP SKIP 

17876 111232 062706 000004 1$: SP ;RESET STACK AFTER FRAP 

17877 111236 042737 001000 177520 BIC #1000,BCSR ;DISABLE HALT ON BREAK 

17878 111244 012737 000102 177746 MOV #102, CCR ;SET DIAG. AND WRITE WRONG PARITY BITS 

17879 111252 005037 157776 CLR @0157776 ;WRITE TO ADDRESS 17757776 

17880 111256 012737 000200 177746 MOV #200, CCR ;CLEAR CCR AND SET PARITY ABORT BIT 

17 11264 012737 111310 000004 MOV $2$, ;LET T 

17882 111272 012737 111350 000114 MOV ONXMPAR , 20114 ;LET VECTOR 114 

17883 111 737 157776 TST @¢15777 ; READ SS 

17884 111304 104037 ERROR +37 ;NXM AND PARITY ABORT DIN’ 

17885 111306 000402 BR ;GO EXIT TEST 

17886 111310 062706 000004 2s: ADD $4 SP ;RESET STACK AFTER TRAP 

17887 111314 005037 177746 ABOEXT: CLR CCR ; F 

17888 111320 005037 177572 CLR SRO ;01 MMU 

17889 111324 052737 001000 177520 BIS #1000, 8CSR ;ENABLE HALT ON BREAK 

17890 111332 013737 003012 000004 MOV SLOCOO, a4 ;RESTORE VECTOR 4 

17891 111340 013737 003014 000114 MOV SLOCO1, 94114 ;RESTORE VECTOR 114 

17892 111346 000404 BR TST22 ;:;GO TO NEXT TEST 

17895 

178% 111350 062706 000004 NXMPAR: ADD ‘4 SP ;RESET STACK AFTER TRAP 

17897 111354 104040 ERROR +40 ‘PARITY ABORT NOT BLOCKED BY NXM TRAP 

7898 111 000002 RTI 


D10 
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SEQ 0327 
TEST - MULTIPROCCESSING INSTRUCTION TESTS 
17901 SBTTL TEST - MULTIPROCCESSING INSTRUCTION TESTS 
17902 ;MULTIPROCCESSING INSTRUCTION TESTS - THIS 7.57 WILL VERIFY THAT THE MAII- 
17903 ‘PROCCESSING INSTRUCTIONS DO A BYPASS OF THE CACHE. THIS TEST WILL NOT VERIFY 
17904 ‘THE REST OF THE FUNCTIONALITY OF THESE INSTRUCTIONS BECAUSE THAT WILL ALREADY 
17905 ;HAVE BEEN CHECKED IN THE BASE INSTRUCTION TESTS. THE TEST WILL FIRST ALLOCATE 
17906 ;AN ADDRESS IN CACHE THEN A TSTSET INSTRUCTION WILL BE OONE AT THAT ADDRESS. 
17907 ‘A HIT SHOULD BE D NEXT, THE ADDRESS WILL BE READ AND 
17908 A MISS SHOULD BE RECORDED BECAUSE THE FORCED BYPASS ON THE TSTSET INSTRUCTION 
17909 SHOULD HAVE INVALIDATED THE CACHE ENTRY. THE SAME SEQUENCE WILL THEN BE 
17910 SREPEATED FOR THE WRTLCK INSTRUCTION. 
; 
17912 :BGNTST 
17913 ‘READ TEST LOCATION TO ALLOCATE CACHE 
17914 ‘DO TSTSET INSTRUCTION 
17915 ‘IF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
17916 ‘eypre ERROR IN MULTI-PROCESSOR HOOKS 
17918 ‘READ TEST LOCATION (ALSO ALLOCATES CACHE FOR WRTLCK) 
17919 ‘DO WRTLCK INSTRUCTION 
17920 ‘IF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
17921 * ERROR IN MULTI-PROCESSOR HOOKS 
17922 S ENDIF 
17923 ‘READ TEST LOCATION 
17924 ‘D0 ASRB INSTRUCTION 
17925 ‘IF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
17926 ¥ ERROR IN MULTI-PROCESSOR HOOKS 
17927 : ENDIF 
17928 SENDTST 
17929 ‘NOTE: THE CODE IS POSITION DEPENDENT 
17931 ss kee ehh SESEEEEESEEEEEEES EEE EEEEEEEEEEEEESEEESSOEEEEEEEEEEES 
11360 000004 4§122: SCOPE 
17932 111362 000240 NOP 
17933 111364 005737 003032 TST CCHPAS shave done enough inclusive passes? 
17934 111370 001002 BNE 998 ; not yet. 
17935 111372 000240 NOP sid 
17936 111374 000501 BR TST23 ;:GO TO NEXT TEST 
17937 111376 000240 99$: NOP 
17939 111400 042737 001000 177520 BIC #1000. BCSR ;DISABLE HALT ON BREAK 
17940 111406 005737 003162 St  ‘TSTLOC TREAD TEST LOCATION TO ALLOCATE CACHE 
17941 TSTSET TSTLOC :00_TSTSET INSTRUCTION 
17942 111412 007237 it ‘WORD 7237 ‘THESE NEXT TWO LOCATIONS ARE THE TSTSET 
17943 111414 003162 "WORD  TSTLOC ‘INSTR. B..AUSE THE ASSEMBLER WAS NOT READY 
17944 111416 013737 1 114150 Hov THIS, RECDAT ‘STORE REGISTER 
17945 111424 032737 000010 114150 BIT #BIT3.RECDAT ‘TF HIT/MISS REGISTER BIT 3 NOT SET 
17946 111432 001001 ‘ : 
17947 111434 104045 +45 ‘ERROR IN RECORDING HITS IN HIT/MISS 
17948 111436 032737 000004 114150 1$: 817  #@B1T2,RECDAT ‘IF HIT/MISS REGISTER BIT 2 SET 
17950 111446 18787 111412 001126 MOV 987$,  $BDDAT AVE. OPC 
Py : 

17951 111454 104041 op, BRROR, Mh iPULTI-PROCESSOR HOOK INSTRUCTION DOESN‘ TT CAUSE MISS 

s ; 
17953 111456 900240 BS: NOP iPUT THE WALT RUE ODE ON THE RIGHT $$¢ 
17985 iliaes 007837 "WORD «7337 POE SE NEXT THO WORDS ARE THE WRTLCK 
17956 111464 003162 “woRD TSTLOC ‘INSTR. BECAUSE THE ASSEMBLER WAS NOT READY 
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TEST 


11 
17974 111576 


177752 
000010 


114150 
114150 
114150 
001126 


114150 
114150 


177520 
114150 


001126 


- MULTIPROCCESSING INSTRUCTION TESTS 


3$: 


4$: 


5$: 


HITMIS ,RE 
eer". REEDAT 


;STORE REGISTER 
x 4 HIT/MIS. REGISTER BIT 3 NOT SET 


IN RECORDING HITS IN HIT/MISS 


;IF HIT/MISS REGISTER BIT 2 SET 


;SAVE OPCODE 
‘MULTI- PROCESSOR 


HOOK 
HE THIRD BYPASS INSTRUCTI 


37 
; STORE REGISTER 
; IF 


HIT/MISS REGISTER BIT 3 NOT SET 


; THEN 
; ERROR IN RECORDING HITS IN HIT/MISS 


;ENABLE HALT 
br HIT/MISS REGISTER BIT 2 SET 


VE_OPCODE 
;MULTI-PROCESSOR HOOK INSTRUCTION DOESN’ TT CAUSE MISS 


SEQ 0326 


yb la DOESN’ TT CAUSE MISS 


F 10 
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TEST - DATA STORE RAM TESTS 


18033 111604 
18034 111610 


005737 003032 
001002 


.SBTTL TEST - DATA STORE RAM TESTS 

;DATA STORE RAM TESTS - — ARE TWO TESTS FOR THE DATA STORE RAM. 
;THE FIRST TEST WILL BE A NO DUAL ADDRESSING TEST AND THE SECOND 
;TEST WILL BE A DATA RELIABILITY TEST. THE NO DUAL ADDRESSING TEST 
;WILL FIRST WRITE EACH WORD OF THE CACHE RAM WITH ITS WORD ADDRESS 
;AND VERIFY THE CONTENTS WITH A READ OF EACH ADDRESS. THEN _— 
;BYTE WILL BE WRITTEN WITH ITS ADDRESS AND CHECKED. 


THE DATA 
;RELIABILITY TEST THAT WILL BE USED IS A TEST CALLED MOVING INVERSIONS. 


; 

;BGNTST 1 

; SETUP _, art ge ae TO HAVE BYPASS ON KERNAL SPACE AND NO 
:LET PS EQUAL KERNAL FOR CURRENT MODE AND USER FOR PREVIOUS 


;ENABLE MMU 

;GET FIRST ADDRESS OF 4K WORD DATA BUFFER 

;CLEAR DATA TO BE WRITTEN 

;SET DIAGNOSTIC BIT (BIT<i>) IN CCR 

:D0 UNTIL DATA TO BE WRITTEN EQUALS 20000(8) 
WRITE DATA TO ADDRESS 


ADD 2 TO ADDRE 
ADD 2 TO DATA TO BE WRITTEN 
;GET FIRST ADDRESS OF 4K WORD DATA BUFFER 
;CLEAR EXPECTED DATA 
— UNTIL EXPECTED DATA EQUALS 20000(8) 
READ ADDRE 


IF RECEIVED DATA NE_ EXPECTED DATA THEN 


bor GOTO DATA STORE PARITY ERROR ROUTINE 
ADD 2 TO EXPECTED DATA 
ADD 2 TO ADDRESS 
OF 8K BYTE DATA BUFFER 
TEN 


FIRST ADDRESS OF 8K BYTE DATA BUFFER 
EXPECTED DAT 
IL EXPECTED DATA EQUALS 20000(8) 


RE 
IF RECEIVED DATA NE EXPECTED DATA THEN 
GOTO DATA STORE PARITY ERROR ROUTINE 


ENDIF 
ADD 1 TO EXPECTED DATA 
ADD 1 TO ADDRESS 


5m 


. 

, 

; 

e 

. 

; 

; 

: I 
- ADD 1 TO DATA TO BE WRITTEN 
; 

; 

; 

’ 

: 

; 


ENDDO 

ENDTST 

PTT TTT TTT TTT TTT TTT Terr TrrrT TTT TTT TTT TTT rT Trt ter rrr rr. 
TST23: SCOPE 


NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ 


; not yet 


SEQ 0329 
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SEQ 0330 
TEST - DATA STORE RAM TESTS 
18035 111612 000240 NOP | ; aid 
18036 111614 000550 BR TST24 ;;GO TO NEXT TEST 
18037 111616 000240 99$: NOP 
18039 111620 004737 136574 JSR PC, INITMM ;SETUP MMU REGISTERS 
18040 111624 012737 002000 172354 MOV #2000, KIPAR6 ;LET PAR6 MAP TO ADDRESS 200000 
18041 111632 005237 177572 INC SRO ; TURN ON MEMOR 
18042 111636 012702 140000 MOV #140000 ,R2 ;GET FIRST ADDRESS OF 4K WORD BUFFER 
18043 111642 005001 CLR Ri SINIT DATA TO BE WRITTEN 
18044 111644 052737 000002 177746 BIS #BITO1, CCR ;SET DIAG BIT IN CASE NO MEMORY PRESENT 
18045 111652 042737 001000 177520 BIC #1000,BCSR ‘DISABLE HALT ON BREAK 
18046 111660 020127 020000 1$: CMP Ri, #20000 ;D0 UNTIL ALL ADDRESSES WRITTEN 
18047 111664 001404 BEQ 2$ SIF DONE GO CHECK DAT 
18048 111666 010122 MOV Ri, (R2)+ ;WRITE DATA TO KDORESS 
18049 111670 062701 000002 ADD #2, Ri ;UPDATE DATA BY 2 (WORD BOUNDARY) 
18050 111674 000771 BR 1$ 
18051 111676 042737 000002 177746 2%: BIC #B1T01, CCR ‘CLEAR DIAGNOSTIC BIT 
18052 111704 012702 140000 MOV #140000, R2 GET FIRST ADDRESS OF 4K WORD BUFFER 
18053 111710 005001 CLR R1 ;INIT DATA TO BE CHE 
18054 111712 020127 020000 3$: CMP Ri, #20000 UNTIL ALL ADDRESSES CHECKED 
18055 111716 001426 BEQ S$ ‘IF DONE GO DO BYTES 
18056 111720 010137 001122 MOV Ri $BDADR : STORE FOR ERRORS 
18057 111724 052737 100000 001122 BIS #81715, $BDADR 
18058 111732 012237 114150 MOV (R2)+, RECDAT ‘READ TEST LOCATION 
18059 111736 013737 177752 001160 MOV HITMIS, $TMPO :STORE REGISTER 
18060 111744 032737 000020 001160 BIT #81104, $TMPO HIT? 
18061 111752 001001 BNE 100$ ‘IF YES, BRANCH 
18062 111754 104045 ERROR +45 ;DATA RAM ERROR 
18063 111756 020137 114150 100$: CMP Ri, RECDAT IF RECIEVED DATA NOT EQUAL TO EXPECTED 
18064 111762 001401 BEQ 4$ ; THEN 
18065 111764 104043 ERROR +43 ‘DATA RAM ERROR 
11766 062701 000002 A$: ADD $2, Ri sUPDATE EXPECTED DATA BY 2 
18067 111772 000747 BR 3$ 
18068 111774 012702 140000 S$: MOV #140000, R2 ‘GET FIRST ADDRESS OF 4K WORD BUFFER 
18069 112000 005001 CLR R1 sINIT DATA TO BE WRITTEN 
18070 112002 052737 000002 177746 BIS @B1T01, CCR ‘SET DIAG BIT IN CASE NO MEMORY PRESENT 
18071 112010 020127 020000 6$: CMP Ri, #20000 :DO UNTIL ALL ADDRESSES WRITTEN 
18072 112014 001404 BEQ ;IF DONE GO CHECK DATA 
18073 112016 110122 MOVB 3s R&A, (R2)+ ‘WRITE DATA TO ADDRESS 
18074 112020 062701 000001 ADD #1, Ri ;UPDATE DATA BY 1 (BYTE BOUNDARY) 
18075 112024 000771 BR 6$  ENDDO 
18076 112026 042737 000002 177746 73%: BIC @BIT01, CCR ‘CLEAR DIAGNOSTIC BIT 
18077 112034 012702 140000 MOV #140000 ,R2 :GET FIRST ADDRESS OF 4K WORD BUFFER 
18078 112040 005001 CLR Ri sINIT DATA TO BE CHECKED 
18079 112042 020127 020000 8$: CMP R1 #20000 :DO UNTIL ALL ADDRESSES CHECKED 
18080 112046 001426 BEQ 10$ :IF DONE EXIT TEST 
18081 112050 010137 001122 MOV Ri $BDADR sSTORE F 
18082 112054 052737 100000 001122 BIS #B1T15, $BDADR ; 
18083 112062 112237 114150 MOVB (R2)+, RECDAT ;READ TEST LOCATION 
18084 112066 013737 177752 001160 MOV HITMIS, $TMPO ;STORE REGISTER 
18085 112074 032737 000020 001160 BIT #B1T04, $TMPO ;HIT? 
1808 112102 001001 BNE 101$ ;IF YES, BRANCH 
18087 112104 104045 ERROR +45 :DATA RAM ERROR 
18088 112106 120137 114150 101$: CMPB Ri, RECDAT ‘IF RECIEVED DATA NOT EQUAL TO EXPECTED 
12112 001401 BEQ 9$ ; THEN 
104043 ERROR +43 ‘DATA RAM 


18090 112114 ERROR 
18091 112116 062701 000001 9$: ADD #1, Ri ;UPDATE EXPECTED DATA BY 1 
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TEST - DATA STORE RAM TESTS 
pet | 112122 000747 


BR 8$ 
18093 112124 052737 001000 177520 10%: BIS #1000,BCSR 
18695 112132 005037 177572 CLR SRO 


SEQ 03351 


;ENDDO 
;ENABLE HALT ON BREAK 
; TURN OFF MMU 


——_«<— —  E — EEE 
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TEST 





- TAG STORE RAM TESTS 


SEQ 0332 


.SBTTL_ TEST -_TAG STORE RAM TESTS 

;TAG STORE RAM TESTS - THERE ARE TWO TESTS FOR THE TAG STORE RAMS. THE FIRST 
;TEST IS AN a = ar TEST TO ENSURE NO DUAL ADDRESSING OF THE TAG ST 

; THE SECOND a ee IS A "MOVING INVERSIONS” TEST THAT CHECKS THE DATA RELIABILITY 


;0F THE RAM 


; 
;DUAL_ ADDRESS EST - THIS WILL BE DONE BY FIRST FLUSHING THE CACHE, THEN 
; THE FIRST Si2¢19) “LOCATIONS (BLOCK 0) WILL BE WRITTEN WITH ADDRESSES THAT 
;WILL CAUSE A INCREMENTING PATTERN TO BE STORED IN THOSE LOCATIONS OF THE TAG 
; STORE RAM. NEXT THE ENTIRE 4K ADDRESS RANGE WILL BE READ. THE HIT/MISS 
;REGISTER SHOULD ONLY REPORT HITS ON THE ADDRESSES THAT WERE ALLOCATED. THIS 
sPROCESS WILL BE REPEATED FOR EACH BLOCK. 
S INITIALIZE LOW ADDRESS 
;SETUP AND ENABLE MMU 
;INITIALIZE BLOCK COUNTER 
UNTIL ALL BLOCKS TESTED (8 TIMES) 
CACHE AND SET DIAGNOSTIC BIT 
= LOW ADDRESS 


LET CURRENT ADDRE 
INITIALIZE ALLOCATION COUNTER 

DO UNTIL ENTIRE BLOCK ALLOCATED (1000 TIMES) 
‘ READ CURRENT ADDRESS 


ELSE 
ENDIF 
UPDATE CURRENT ADDRE SO 
ini FOR I/0 PAGE WRITE THE SAME ADDRESS AS BEFORE 
INITIALIZE GOOD ADORE 
INITIALIZE CURRENT 
LOCATION 


SAVE S OF 
LET VECTOR 114 POINT. TO 70. TAG STORE Agi ABORT ROUTINE 
DO UNTIL ALL _LOCATI CHECKED (1000 TIMES) 


IZE CK 
IL SS_IN EACH BLOCK CHECKED 
READ CURRENT ADDRESS 


WRITE CURRENT ADDRESS 


IF HIT THEN 

‘ IF CURRENT ADDRESS NE GOOD ADDRESS THEN 
. : ERROR 

. ENDIF 

ELSE 


—— 
ERROR 


ENDIF 
UPDATE GOOD (ADD #2) 
rane UPDATE CURRENT NY ADDRESS 
UPDATE LOW ADDRESS (ADD #2000) 


;ENDDO 

; DISABLE MMU 

fe? VECTOR 114 
;sENOTST 


33 REAEEREKASEAAEEAAAERESEAEEESESESEREEEREERESRESE SESE EEEEEE SESE SESS 
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SEQ 0333 
TEST - TAG STORE RAM TESTS 
112 TST24: SCOPE 
8154 112140 000240 NOP 
18155 112142 005737 003032 TST CCHPAS shave done enough inclusive passes? 
8156 112146 001003 BNE 99$ ; not yet 
18157 112150 NOP ; debug aid 
18158 112152 000137 112710 JMP 18$ ; yes skip this 
18159 112156 99¢: NOP 
18161 112160 013737 000004 001160 MOV aed, $TMPO ;STORE TIMEOUT VECTOR 
18162 112166 012737 112712 000004 MOV 20$ , ae4 ;POINT NEW 
18163 112174 012737 140000 003016 MOV #140000 , LOWADD ; INITIALIZE LOW ADDRESS (USE PAR6) 
18164 1 004737 136574 JSR pC INI TMM ; INITIALIZE MMU 
18165 112206 005237 177572 INC ; ENABLE 
18166 112212 012737 000020 172516 MOV 981704 ,MMR3 ;ENABLE 22-BIT 
18167 112220 012737 177770 003154 MOV #-10, LOOPIN ;D0 UNTIL ALL BLOCKS TESTED 
18168 112226 012701 000000 1$: MOV #0,Ri :DO IN 2 WORDS TO AVOID PMI MEMORY 
18169 112232 042737 001000 177520 93: BIC $1000 ,BCSR ‘DISABLE HALT ON BREAK 
18170 112240 005037 172354 CLR KIPAR6 :SET UP PAR6 FOR THIS TEST 
18171 112244 012737 177746 MOV #402, CCR ;FLUSH CACHE AND SET DIAG BIT 
18172 112252 013737 003016 114170 MOV LOW CUR :GET FIRST ADDRESS IN 
18173 112260 012737 177400 003152 MOV #-400, ALLCTR ;DO UNTIL ALL ADDRESSES ALLOCATED 
18174 112266 022737 172354 24: CMP ' KIP :IF ADDRESS LESS THAN 32K 
18175 11227 002415 BLT 3$ ; 
18176 112276 052737 1 172314 BIS #81715, KIPDR6 ;SET BYPASS 
177 112 017702 001660 MOV ; ;STORE CURRENT DATA 
18178 112310 737 1 172314 BIC 861715, KIPDR6 ;ALLOCATE NEXT ACCESS 
8179 1123 6 010277 001646 HOV Re. ACURADD ;WRITE ALLOCATE 
18181 112 005077 001640 3$: CLR ;WRITE CURRENT ADDRESS 
18182 112330 062737 114170 4$: ADD $2 CURADD ;UPDATE CURRENT ADDRESS 
18183 112336 062737 172354 ADD ,  KIP 
18184 1 022737 177600 172354 CMP #177600, KIPAR6 ;REACHED 1/0 PAGE? 
18185 112352 001003 BNE 10$ :BR IF NOT 
18186 1 162737 172354 SUB #200, KIPAR6 :DON'’T UPDATE PAR FOR 1/0 PAGE 
18187 112362 005237 003152 10$: INC ALLCTR ;IF ALL ADDRESSES ALLOCATED 
18188 1 002737 BLT 2$ ; ENDDO 
18189 112370 052737 177746 BIS $B1T02, CCR ;RUN WITH FORCE MISS 
18190 112376 013737 003016 003020 MOV LOWADD, GOODAD : INITIALIZE GOOD ADDRESS 
18191 112404 060137 ADD Ri GOODAD 
18192 112410 012 140000 114170 MOV #140000 , CURADD ;GET FIRST ADDRESS 
18193 112416 060137 114170 ADD Ri CURADO :START WITH 1 OR 2 LOCATION 
18194 112422 905037 172 CLR KIPAR6 
18195 1 072127 000006 ASH 96 ,R1 : 
1819 112432 060137 172354 ADD R1,KIP ;MAKE SURE ON THE RIGHT BOUNDARY 
18197 112436 012737 177600 003152 MOV #-200, ALLCTR ;DO UNTIL ALL LOCATIONS CHECKED 
18198 112444 012737 177770 114144 S$: MOV #-10, OC ;D0 UNTIL EACH BLOCK CHECKED 
18199 112452 013737 114170 001122 63: MOV ADD, $ ;IN CASE OF 
18200 112460 042737 160000 001 BIC 160000, ;CLEAR PAR BITS 
18201 112466 042737 000004 177746 BIC eB1T02, CCR ;CLEAR F 
18202 112474 005 001470 TST ADO ;READ SS 
1 112500 013737 177752 114150 MOV HITMIS, RECDAT ;STORE REGISTER 
18204 112506 032737 000004 114150 BIT #8172, RECDAT :IF ACCESS WAS A HIT 
18205 112514 001406 BEQ 7$ ; THEN 
18206 112516 023737 114170 003020 CMP CURADD, GOODAD SIF CURRENT ADDRESS NOT EQUAL TO GOOD 
18207 112524 001407 BEQ 8$ ; ADDRESS THEN 
18208 112526 104046 +46 ;ERROR IN TAG STORE 
18209 112530 000405 BR 8$ 
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SEQ 0334 

TEST - TAG STORE RAM TESTS 

18210 112532 023737 114170 003020 7%: CMP CURADD, GOODAD ;IF CURRENT ADDRESS EQUAL GOOD ADDRESS 

18211 112540 001001 BNE 8$ 

18212 112542 104047 ERROR +47 ;ERROR IN TAG ST 

18213 112544 062737 001000 114170 8%: ADD #1000, CURADD UPDATE To NEXT BLOCK 

18214 112552 737 000004 177746 BIS #B1T02, CCR ;RUN WITH FORCE MISS 

18215 1 7 114144 INC oc SIF ADDRESS NOT CHECKED FOR EACH BLOCK 

18216 112564 002 BLT 6$ 

18217 112566 062737 000004 003020 ADD 04 GOODAD ‘UPDATE GOOD ADDRESS 

18218 112574 162737 007774 114170 SUB #7774, CURADD ; INCREMENT IN 2 WORDS 

18219 112602 962737 000400 172354 ADD #400,  KIPAR6 

18530 112610 37 003152 INC ALLCTR ‘TF ALL ADDRESSES CHECKED 

18221 112614 002713 BLT $ 

1 112616 001000 177520 BIS $1000,BCSR ‘ENABLE HALT ON BREAK 

1822 112624 062701 000002 ADD #2, R1 ;PREPARE FOR THE 2ND PASS THRU 

18224 1 022701 000002 CMP #2 Ri ;DONE TWICE? 

18225 112634 001.002 BNE 30$ ;IF SO, 

1 112636 137 112232 JMP -y 

18227 112642 062737 003016 30%: ADD #2000, LOWADD ;UPDATE TO NEXT BLOCK TO BE ALLOCATED 

1 112650 003154 INC LOOPIN ;IF ALL BLOCKS WERE TESTED 

1 112654 BGE 15$ ; 

1 112656 000137 112226 JMP 1$ ; ENDDO 

18231 112662 177746 15$: MOV #400, CCR ;CLEAR DIAGNOSTIC BIT 

i 112670 7 177572 CLR :D MMi 

1 112674 013737 001160 000004 MOV $TMPO, ae4 :RESTORE TIMEOUT VECTOR 

18234 112702 042737 000020 172516 BIC @B1T04, MMR ;ENABLE 22-BIT MAPPING 

18235 112710 18$: 

: 1 000401 BR TST25 ;;GO TO NEXT TEST 

18237 112712 000002 20$: ATI 

18238 

18239 
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TEST - STANDALONE MODE TEST 
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.SBTTL TEST - STANDALONE MODE TEST 
;THIS TEST VERIFIES THAT NMX CAN BE CREATED IN STANDALONE MODE. 


ALLOCATE INSTRUCTIONS IN CACHE 
MISS ON TEST LOCATION 
SIN STANALONE MODE ACCESS TEST LOCATION 









;IF NO TIMEOUT 
: ENDIF 
jpessesensesenessnsasensessnasssnscensssnasssnssonsssonsconsconss 
"NOP 
TST CCHPAS shave done enough inclusive passes? 
oe 998 ; not yet 
NOP ; aid 
vos. op TST ;:GO TO NEXT TEST 
9400. CCR FLUSH CACHE 
nov 8. .R ‘START WITH CURRENT INSTRUCTION 
1$: TST (Ri)- ;READ A WORD 
rst ‘TO GUARANTY MISS ON 0 
mov ‘STORE TIMEOUT VECT 
MOV :POINT NEM TO THE TEST 
MOV ;AT PRIORITY 7 
ere ‘oF T ON BREAK 
; 
5$ ar ; 
(Bis ‘ENABLE HALT ON BREAK 
CHP ie t 
ae ;IF YES, BRANCH 
, RESTORE STACK 
nes "AND TIMEOUT VECTOR 





ooo 
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TEST - MOVING INVERSIONS TEST FOR DATA RAMS 


-SBTTL_ TEST - MOVING INVERSIONS TEST FOR DATA RAMS 
;MOVING INVERSIONS TEST FOR DATA RAMS - THE TEST IS S’4RTED AFTER LOADING = 
;RAM STORE WITH 0'S. EACH ADDRESS IS READ AND VERIFICD TO BE ALL O'S. THEN A 
31 Is SUBSTITUTED IN A BIT POSITION AND THE NEW WORD IS WRITTEN. NEXT THE 
;ADDRESS IS READ TO ag A THE NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF 
HE LEAVING THE ARRAY FILED WITH 1'S. THE WHOLE PROCESS IS REPEATED 
PLUGGING IN.0'S TO THE. 1" AND REPEATED TWICE MORE ADDRESSING IN THE 
;DIRECTION. FINALLY EVERYTHING +s REPEATED FOR EACH BIT POSITION BEING THE 
SB. TIME AND KNOWING THE LAYOUT OF THE ng age +: Np A ee 
;ONLY A SINGLE BIT AT A TIME EVERY FOURTH BIT WILL BE DONE CONCURRENTLY 
:THIS TEST RUNS IN STANDALONE MODE. 


‘ BGNTST 

;SETUP AND ENABLE MMU 

;SETUP CCR TO ABORT PARITY ERRORS 

;CLEAR CACHE 

:00 IN STANDALONE MODE FOR EACH HALF SEPARATELY 


SEQ 0336 











;LET FWOSEQ = #1 
; ADOLSB = @ 
;D0 UNTIL ADDLSB EQ #20000 
; LET T=0 
rie SB 
an. et 
IF FWDSEQ 
LET FSTADD EQUAL FIRs inst SS OF 4K BYTE BUFFER 
SS OF 4K BYTE BUFFER 


LET FSTADD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 
LET LASTAD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 


ENDIF 
LET CURADD = a 
LET DCOUNT = 


eat ita Sales TO DATA STORE PARITY ABORT ROUTINE 

















ville: T NE CURDAT 
LET Ri EQUAL CURRENT DATA 
GOTO DATA STORE PARITY ERROR ROUTINE 


ENDIF 
IF DCOUNT GT #3 THEN 
bs oe LET @CURADD = @CURADD CLEARBY RITEDA 


LET @CURADD = @CURADD SETBY RITEDA 


ENDIF 

LET RECDAT = @CURADD 
IF RECDAT NE 
: LET Ri EQUAL NEW DATA 

bore GOTO DATA STORE PARITY ERROR ROUTINE 
- ees EQ LASTAD THEN 


RITEDA = #210 THEN 
IF DCOUNT NE #7 


LET 
LET RITEDA = #1 
LET NEWDAT = #376 





ENDIF 
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SEQ 0337 
TEST - MOVING INVERSIONS TEST FOR DATA RAMS 
183 Wis ELSE 
1833 :. . T CURDAT = NEWDAT 
18338 3. ROTATE RITEDA 
18339 * IF DCOUNT GT #3 THEN 
18 ° * nee LET NEWDAT = NEWDAT CLEAREDBY RITEDA 
3. 
18 ;. : : LET NEWDAT = NEWDAT SETBY RITEDA 
18343 _ ENDIF 
18344 :. ENDIF 
18345 . INCREMENT DCOUNT 
18346 “te ' LET CURADD = FSTADD 
18347 “? ELSE 
18348 ;. IF FWDSEQ = #1 THEN 
18349 ;. LET CURADD = CURADD + ADDLSB 
18350 n IF CARRY THEN 
18351 . LET CURADD = CURADD + #1 
18352 * ENDIF 
1835 ™ ELSE 
18354 . : LET CURADD = CURADD - ADDLSB 
18355 ;. IF CARRY THEN 
8356 ;. LET CURADD = LASTAD - ADDLSB 
18357 ‘a LET CURADD = CURADD - #1 
18358 . ENDIF 
18359 . ‘ ENDIF 
ieeet i. ‘ ENDIF 
18361 " ENDDO 
18362 Pp IF FWOSEQ EQ #1 THEN 
18363 + LET FWOSEQ = #0 
18364 e 
18365 5. ROTATE ADDLSB 
18366 y LET FWOSEQ = #1 
18367 cs 
18368 ;ENDDO 
18369 ‘RESTORE VECTOR 114 
18370 ;ENDTST 
18372 RRAEKKESAKRAEEAKKASKALRSESERARAEKEASSAKRASKAERKERAKERASAERARESERASESESESESERSES 
113056 000004 18126: SCOPE 
igsya 113062 905737 003032 TST CCHPAS h done enough l ? 
;have inclusive passes 
18375 113066 001003 BNE 99$ ; not yet 
18376 113070 000240 NOP ; debug aid 
18377 113072 000137 114172 JMP ENDMOV ; yes skip this 
18378 113076 000240 99$: NOP 
18380 113100 032777 000200 066032 BIT #B1T07, @SWR ;RUN THIS TEST? 
18381 113106 0¢! BNE 100$ ;IF SET D0 IT 
1 113110 000137 114172 JMP ENDMOV ;OTHERWISE, GO TO NEXT TEST 
18383 113114 042737 001000 177520 100%: BIC #1000,BCSR ;DISABLE HALT ON BREAK 
18384 113 004737 136574 JSR INI TMM ; SETUP 
18385 113 012737 002000 172354 MOV #2000 , KIPAR6 -START ON 32K BOUNDARY 
18386 113134 005237 177572 INC ; TURN ON MMU 
18387 113140 052737 000002 177746 BIS $2, CCR ;SET DIAG. BIT 
18388 1 013737 000004 001160 MOV aia,  $TMPO ;SAVE 4 
; 
1 ;STORE TEST IN THE FIRST 2K AND THEN IN THE SECOND 2K 
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TEST - MOVING INVERSIONS TEST FOR DATA RAMS 
18392 113154 012703 140000 MOV #140000,R3 ;START FOR THE TEST 
18393 113160 012704 150000 MOV #150000,R ;LOWER BOUNDARY TEST AREA 
18394 113164 012705 157777 MOV #157777.R5 ;HIGH BOUNDARY TEST AREA 
18395 113170 BR 2$ 
183% 113172 012703 150000 1$: MOV $150000,R3 ;START OF THE TEST 
18397 113176 012704 140000 MOV #140000, ;LOWER BOUNDARY TEST AREA 
18398 11 012705 147777 MOV #147777.R5 ;HIGH Y 
18399 113206 012702 113326 2$: MOV SSTMOVI ,R2 ;START WITH CURRENT 
18400 113212 010300 MOV R3,RO ;MOVE TO UPPER 4K 
18401 113214 012220 3$: MOV (R2)+,(RO)+ ;WORD BY WORD 
1 113216 022702 114172 CMP $ENDMOV , R2 ; ALL 
1640s 113222 001374 BNE 3§ 
1 11 010400 MOV R4,RO ;CLEAR CACHE UNDER TEST 
18405 113226 012701 004000 MOV $4000, Ri 
18406 il 005020 4$: CLR (RO)+ 
1840 113234 077102 SOB Ri, ag 
18408 11 004713 JSR PC; (R3) :GO DO THE ROUTINE 
18409 113240 005702 TST R2 ;ANY ERRORS? 
18410 113242 001411 BEQ S$ ;IF NOT, CONTINUE 
1841 113244 010037 114150 MOV RO, RECDAT ;DATA RECEIVED 
18412 11 010237 001122 MOV R2, $BD ;ADDRESS RECIEVED 
18413 113254 042737 140000 001122 BIC #140000, $BDADR ;STRIP OF PAR BITS 
18414 113262 104043 ERROR +43 
18415 11 000403 si‘ BR 6$ EXIT 
164416 il 022703 150000 S$: CMP #150000 ,R3 ;DONE FOR BOTH HALVES? 
18417 113272 001337 BNE 1$ ;IF NOT, DO AGAIN 
18418 113274 052737 001000 177520 6%: BIS #B1T09,BCSR ; ENABLE ON BREAK 
18419 113 013737 001160 : MOV $TMPO, ae4 ;RESTORE TIMEOUT VECTOR 
1 113310 012737 000400 177746 MOV #400, CCR ;INIT CCR FOR EXIT 
18421 113316 $0503 177572 CLR SRO ;TURN OFF MMU 
18422 113322 000137 114172 JMP ENDMOV ;GO TO NEXT TEST 
pasa .DSABL AMA 
18425 113 737 000400 177520 STMOVI: BIS #81708, a@BCSR ; STANDALONE MODE 
18426 113 CLR R2 ;ERROR INDICATOR | 
18427 113 012767 000001 000606 MOV #1, FWDSEQ ;INIT UPWARD ADDRESSING INDICATOR 
18428 113 012767 000001 000602 MOV #1 ADDL SB SINIT LSB AND DO LOOP UNTIL SHIFTED OUT 
1 ii 042737 100000 172300 BIC #100000, B#KIPDRO YPASS 
18430 11 012737 172360 MOV SKDPARO, a84 ;ALLOCATE TIMEOUT VECTOR 
18431 11 012737 000340 MOV $340, a66 ;AT PRIORITY 7 
1843¢ 113374 012737 000006 172360 MOV %6 as<DPARO ; TURN 
18433 11 737 100000 172300 BIS #100000, ;BYPASS 
1 11341 7 000546 TSTLUP: CLR CURDAT sINIT CURRENT DATA 
1 113414 012767 000021 000534 MOV #21,  RITEDA SINIT DATA TO BE WRITTEN 
184 113422 012767 000021 MOV 921 T sINIT EXPECTED DATA 
18437 113430 005767 000516 TST FWDSEQ SIF ADDRESSING UPWARD 
ert tease 010467 000522 oov y FSTADD ‘LET FIRST SS EQUAL LOWEST VALUE 
° ‘ 
1 113442 010567 000520 MOV R5.LSTADD ;LET LAST SS EQUAL HIGHEST VALUE 
} 
i MOV ‘LET FIRST ADDRESS EQUAL HIGHEST VALUE 








;LET LAST ADDRESS EQUAL LOWEST VALUE 
ADDRESS 


; 
‘INIT LOOP COUNTER 

LOOP 8 TIMES (4 TIMES TO WRITE 1’S 
NDS TIMES TO WRITE BACK O'S) 


EQUAL FIRST ADDRESS 


ee 


PO 
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SEQ 0339 
TEST - MOVING INVERSIONS TEST FOR DATA RAMS 
18449 ; DON'T REWRITE TIMEOUT VECTOR — 
18451 113502 016700 000462 MOV CURADD, RO ;STORE CURRENT ADDRESS 
11 042700 170000 BIC #170000, RO ‘LEAVE ONLY LOW 4K BITS 
18453 113512 022700 000004 CMP 04, RO ;TIMOUT VECTOR? 
18454 113516 001531 BEQ 8$ | DON’T REWRITE IT 
18455 113520 022700 000005 CMP 5, RO 
18456 113524 001526 BEQ 8% 
18457 113526 022700 000006 CMP #6, RO 
18458 113532 001523 BEQ 8$ : 
18459 113534 022700 000007 CMP $7, RO : 
18460 113540 001520 BEQ 8$ 
; 
18462 :CHECK PATTERNS NOW 
; 
18464 113542 016701 000414 MOV CURDAT, Ri ;MOVE GOOD DATA TO Ri 
18465 113546 117767 000416 000374 MOVB § @CURADD, RECDAT ‘FIRST READ LOCATION 
18466 113554 126767 000370 000400 CMPB §- RECDAT, CURDAT :IF RECIEVED DATA NOT EQUAL TO EXPECTED 
18467 113562 001402 BEQ i$ ;DATA “HEN 
18468 113564 000167 000334 JMP EXBAD ‘EXIT TEST 
18469 113570 016701 000364 i$: MOV NEWDAT, R1 ;MOVE GOOD DATA TO Ri 
18470 113574 022767 000003 000342 CMP 83, DCOUNT ‘IF LOOP COUNT GREATER THAN 3 
18471 113602 002004 BGE ; THEN 
18472 113604 146777 000346 000356 BICB § RITEDA, @CURADD ‘CLEAR TEST DATA BY WRITE DATA 
18473 113612 000403 BR 3$ ELSE 
18474 113614 156777 000336 000346 23: BISB §§ RITEDA, @CURADD ‘SET TEST DATA BY WRITE DATA 
18475 113622 117767 000342 000320 33: MOVB § @CURADO,RECDAT ;D0 READ AFTER WRITE 
18476 11 126767 000314 000322 CMPB §- RECDAT, NEWDAT "IF RECIEVED DATA NOT EQUAL TO EXPECTED 
113636 BEQ 4$ ;DATA THEN 
18478 113640 000167 JMP EXBAD SEXIT TEST 
113644 026767 000320 000314 4% CMP CURADD, LSTADD SIF CURRENT ADDRESS EQUFLS LAST ADDRESS 
18480 113652 001053 BNE 8$ ; THEN 
18481 113654 767 000210 000274 CMP $210, RITEDA "AND IF WRITE PATTERN EQUALS LAST 
il 001016 BNE S$ ;PATTERN THEN 
022767 000007 000252 CMP 37, OCOUNT ;AND TEST IS NOT ON LAST LOOP 
18484 113672 001435 BEQ 7$ ; THEN 
18485 113674 012767 000377 000260 MOV $377,  CURDAT ‘SET UP TO WRITE 0'S 
1 012767 000021 000246 MOV #2 RITEDA 
18487 113710 012767 000356 000242 MOV 8356, | NEWDAT 
18488 113716 BR 73 ;ELSE 
18489 113720 016767 000234 000234 5+: MOV NEWDAT, CURDAT ;SET UP FOR NEXT DATA PATTERN 
113726 000241 CLC 
18491 113 106167 ROLB #§ RITEDA 
1 113 000216 ADC RITEDA ;GET A PATTERN 
18493 113740 022767 000003 000176 CMP $3, OCOUNT ;AND IF DOWNWARD ADDRESSING 
18494 113746 BGE ; THEN 
495 it 046767 000202 000202 BIC RITEDA, NEWDAT ;LET NEWDAT BE CLEARED BY WRITE DATA 
; 
18497 113760 056767 000172 000172 6% BIS RITEDA, NEWDAT ;LET NEWDAT BE SET BY WRITE DATA 
18498 113766 7 7$ INC OCOUNT ;UPDATE LOOP C 
113772 016767 000166 000170 HOV FSTADD CURADD sREINIT FIRST ADDRESS FOR THIS PASS 
a 
18501 114002 905767 000144 B$ TST FWOSEG TF ADDRESSING UPWARD 
18503 114010 066767 000140 000152 ADD ADDLSB, CURADD ‘CALCULATE NEXT HIGHER ADDRESS 
1 114016 020567 000146 CMP R5, CURADD SIF CURRENT ADDRESS HAS BEEN INCREASED 
002015 BGE 10$ ‘ABOVE HIGHEST ADDRESS THEN 





ES ee CE TE ES RS CEES we ee —-— eS - 


TEST 


Dil 
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- MOVING INVERSIONS TEST FOR DATA RAMS 


ioe 114170 
18540 114172 


162767 
0004 
166767 
02046 


007777 


000114 
000122 


007777 


000036 


177520 


SUB 
BR 
9$: SUB 
CMP 
BLE 
ADD 
10$: BR 
ENDTLP: TST 
BEQ 
CLR 
JMP 
1$: MOV 
ROL 
ENDLUP: CMP 
BEQ 
JMP 
EXBAD: MOV 
MOV 


Ht 
ong 
w 
~— 
p o}es) 
4H 
wo 


: 
e 
PEEEELELELE 


$7777, CURADD 


CURADD , Re 
- aa . 8@BCSR 


oooooooo°o°oo 


SEQ 0340 


;ROLL ADDRESS BACK 


;ELSE 

; CALCULATE NEXT LOWER ADDRESS 

; IF SS . —" DECREASED 
BELOW LOWEST ADDRESS T 

;ROLL ADDRESS BACK 
;ENDDO 

iTF_ ADDRESSING UPWARD FINISHED 
; 

;D0 ADDRESSING DOWNWARD 


;SET ADDRESSING UPWARD INDICATOR 
; UPDATE LS TO NEXT POSITION 

; DONE ? 

; 


;STORE RECEIVED DATA 
;STORE ADDRESS 
;OUT OF STANDALONE 


;STORES EXPECTED ceo? DATA FOR COMPARISONS 
;STORES RECIEVED DATA TO BE VERIFIED 





;STORES F Ss 
;STORES LAST " ADDRESS IN ADDRESS SE 
;STORES CURRENT ADDRESS FOR RAM TESTS 


Ell 
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LE 
LET RITEDA = #22200 


SEQ 0341 
TEST - MOVING INVERSIONS TEST FOR TAG STORE 

ot .SBTTL TEST MOVING INVERSIONS TEST FOR TAG STORE 
1854 ;MOVING INVERSIONS TEST - THE TEST IS STARTED AFTER LOADING THE RAM STORE 
18544 ‘WITH 0'S. EACH ADDRESS IS READ AND VERIFIED TO BE ALL 0’S. THEN A 1 IS 
18545 ; SUBSTITUTED IN A BIT POSITION AND THE NEW WORD IS WRITTEN. NEXT THE ADDRESS 
18546 ;I1S READ TO VERIFY THE NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF THE 
18547 ;WORD LEAVING THE ARRAY FILED WITH 1'S. THE WHOLE PROCESS IS REPEATED PLUGGING 
18548 :IN 0'S TO THE 1'S AND REPEATED TWICE MORE ADDRESS IN THE DOWARD SB. 10. SAi 
18549 ;FINALLY EVERYTHING IS REPEATED FOR EACH BIT POSITION BEING THE LSB. TO SAVE 
18550 ;TIME AND KNOWING THE LAYOUT OF THE RAM CHIPS ete Cane oS A SINGLE 
18551 ‘BIT AT A TIME EVERY THIRD BIT WILL BE DONE CONCURRENTLY. ALSO NOTE THAT 
18552 :;SINCE THE TAG STORE CANNOT BE CIRECTLY ACCESSED THE ENT IRE PATTERN MUST BE 
18553 :DONE BY DOING MEMORY CYCLES TO THE CORRECT BUS ADDRESSES. TO DO THIS THE 
18554 ;TEST WILL BE DONE WITH THE DIAGNOSTIC BIT IN THE CCR (BIT 1) SET TO Al. 
18555 ‘THIS TEST RUNS IN STANDALONE MODE. 
18556 ; 
18557 ; 
1 ;BGNTST 
18559 ;SETUP AND ENABLE MMU 
18560 ;SETUP CCR TO ABORT PARITY ERRORS 
18561 ;D0 IN STANDALONE MODE FOR EACH HALF SEPARATELY 
18562 ;LET FWOSEQ = #1 
18563 ;LET ADDLSB = #1 
18564 ;D0 UNTIL ADDLSB EQ #20000 
tones 3. : = 

3. = 
1gee5 ;. IF FWOSEQ = #1 THEN 
18568 "P LET FSTADD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 
pas 4 3. LET LASTAD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 

” ELSE 
18571 3. : LET FSTADD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 
18572 3. , LET LASTAD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 
teeta * ENDIF 
18574 “a LET DCOUNT = #0 
18575 7 - UNTIL DCOUNT EQ #10 
18376 Se READ CURADD USING CURDAT AS FAR 
1 3. IF MISS THEN 
18578 Ss : 
18579 3. ENDIF 
18580 3. WRITE CURADD USING NEWDAT AS PAR 
18581 Be ENDIF 
i Re IF HIT THEN 

3. . ERROR 
18584 oi. ENDIF 
18585 ie READ CURADD USING NEWDAT AS PAR 
18586 3. IF MISS THEN 
18587 3. ERROR 
18588 "? ENDIF 
18589 Rs - CURADD EQ LASTAD THEN 
Be : iy 

3. < 
18592 ® LET NEWDAT = NEWDAT SETBY RITEDA ROTATED LEFT 
13598 " TF count #1 THEN 

“e > 
ieeee Bas LET NEWOAT = NEWDAT CLR BY RITEDA ROTATED LEFT 
18597 2. T NEWDAT = #155400 (NO ALL 1’S) 

. 





Fil 
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TEST - MOVING INVERSIONS TEST FOR TAG STORE 


SEQ 0342 








18599 3. , ENDIF 
18600 Be : INCREMENT DCOUNT 
18601 Be ELSE 
18602 Be ; - FWOSEQ = #1 THEN 
18603 3. LET CURADD = CURADD + ADDL 
18604 ., IF CURADD GE HIGH ADDRESS THEN 
18605 < : LET CURADD = CURADD + #7776 
18606 3. : ENDIF 
18607 7" ELSE 
18608 3. y LET CURADD = CURADD - ADDL 
18609 3. al ae e LOW ADDRESS THEN 
18610 a T CURADD = CURADD - #7776 
18611 Rw : ‘ 
186 3. : ENDIF 
1861 Re ENDIF 
18614 ie ENDDO 
18615 “a - FWOSEQ EQ #1 am 
18616 3. LET FWDSEQ = 
18617 3. 
18618 . ROTATE ADDLSB 
18619 3. ‘ LET FWOSEQ = #1 
18620 3. ENDIF 
18621 ; ENDDO 
18622 RESTORE PARITY ABORT VECTOR 
seeks ;ENDTST 
18625 © EREEREKEEASEREREESEARESESEEEREAEREREEEAEEEEESESEEESESEEEEEEEESEEEOSD 
114172 000004 $127: SCOPE 
tiai76 005737 003032 NST CCHPAS have done enough inclusi ? 
; inclusive pesses 
1 114202 001003 BNE 99$ ; not yet 
ines? 114204 000240 NOP ; ai 
1 114206 000137 115314 JMP ENDTAG ; yes skip this 
pret 114212 000240 99$: NOP 
163 114214 032777 000100 064716 BIT $B1IT06, ASWR ;RUN THIS TEST? 
18634 114222 001002 BNE 100$ ;IF SET, GO DO IT 
18635 114224 000137 115314 JMP ENDTAG ;OTHERWISE, GO TO NEXT TEST 
18636 1142 042737 001000 177520 100%: #£=BIC #1000 ,BCSR ;DISABLE HALT ON BREAK 
18637 114236 004737 136574 JSR PC INI TMM ; SETUP Y 
18638 11 005237 177572 INC ; TURN ON 
18639 114246 012737 000020 172516 MOV #B1IT04 ,MMR3 sENABLE 22-BIT MAPPING 
1 ii 737 000002 177746 BIS $2 CCR ;SET DIAG. BIT 
iaeas 114262 013737 000004 il MOV aed , $TMPO ;STORE TIMEOUT VECTOR 
iaeat sSTORE TEST IN THE FIRST 2K AND THEN IN THE SECOND ok 
8644 ; 
18645 114270 012703 140000 MOV #140000 ,R3 ;START FOR THE TEST 
8646 114274 012 130000 MOV #130000 , R4 3L BOUNDARY TEST AREA 
18647 arte 012705 137776 9 lade RS HIGH BOUNDARY TEST AREA 
18649 114306 012703 150000 i$: MOV #150000 ,R3 ;START OF THE TEST 
1143 012 120000 MOV #120000 , R4 ;LOWER BOUNDARY TEST AREA 
18651 1143 012705 127776 MOV #127776 ,R5 ‘HIGH BOUNDARY 
114 012737 172354 2%: MOV #2000 , KIP ; ABOVE 
18653 114 012702 114134 MOV GEXITST ,R2 ;START WITH CURRENT 
18654 114334 010300 MOV R3,RO ;MOVE TO UPPER 4K 





Gil 
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SEQ 0343 
TEST - MOVING INVERSIONS TEST FOR TAG STORE 

18655 114336 01 3$: MOV (R2)+,(RO)+ ;WORD BY WORD 
18656 11 022702 115314 CMP SENDTAG, ;ALL DONE? 
18657 114344 001374 BNE 3$ , 
18658 114 012700 114450 MOV SSTMOVT ,RO ;ADDRESS OF ROUTINE 
18659 114352 162700 114134 SUB #EXITST.RO ;PROPER OFSET 
18660 114 3 BIS RO,R3 : 
18661 114360 004713 JSR PC'(R3) ;GO DO THE ROUTINE 
18662 114 005700 TST RO ;ANY ERRORS? 
18663 114364 001407 BEQ 4$ ; CONT INUE 
18664 114366 010037 001122 MOV RO, $BDADR ;STORE FAILED ADDRESS 
18665 114372 042737 160000 001122 BIC #160000, $BDADR SCLEAR PAR 
18666 114400 1 . 
18667 114402 3 BR 53 sEXIT TEST 
18668 114404 022703 150000 4s: CMP #150000 ,R3 ;DONE FOR BOTH HALVES? 
18669 114410 103736 BLO i$ SIF NOT AGAIN 
18670 114412 013737 001160 000004 5%: MOV $TMPO, a4 sRESTORE TIMEOUT VECTOR 
18671 114420 012737 000400 177746 MOV #400, CCR SINIT CCR FOR EXIT 
18672 114426 005037 177572 CLR SRO STURN OFF MMU 
18673 114432 005037 172516 CLR MMR3 : 
18674 114436 052737 001000 177520 BIS #1000, BCSR ‘ENABLE HALT ON BREAK 
18675 11 000137 115314 JMP ENDTAG EXIT TEST 
18677 .DSABL 
18678 114450 052737 000400 177520 STMOVT: BIS #B1T08, @#BCSR ; STANDALONE MODE 
18679 114456 042737 100000 172312 BIC @B1T15, @@KIPDRS :NO BYPASS 
18680 114464 042737 100000 172300 BIC #1 ,aeKI ;NO BYPASS 
18681 114472 012737 172360 MOV SKDPARO. ae4 ;ALLOCATE TIMEOUT VECTOR 
18682 114500 012737 000340 000006 MOV $340, a6 sAT 7 
18683 114506 012737 172360 MOV #6 ;PUT RETURN 
18684 114514 052737 172300 BIS #100000, a@KIPDRO ;BYPASS 
18685 114522 005037 172352 CLR BOKIPARS ; 
1 114 O1 MOV R4,RO ;CLEAR CACHE UNDER TEST 
18687 114530 012701 004000 MOV Ri ; 
1 114 4s: CLR CRO)+ ; 
18689 114536 077102 S0B Ri, 4$ 
18690 114 CLR RO ;CLEAR ERROR FLAG 
18691 114542 012767 000001 177402 MOV #1, FWOSEQ ;SET UPWARD ADDRESSING INDICATOR 
1 114 012767 000002 177376 MOV #2 ADDL SB ‘INITIALIZE LEAST SIGNIFIGANT BIT 
18693 114556 177400 TSLOOP: CLR CURDAT ;OLD DATA 
18694 114 012767 022200 177370 MOV #22200 , NEWDAT :SET ADDRESS BITS 
18695 114570 012767 022200 177360 MOV #22200, RITEDA : SET SS BITS 
18696 114576 767 177350 TST FWDSEQ TF SSING 

97 11 1405 BEQ i$ 
8698 11 010467 177354 MOV R4, FSTADD ‘FIRST ADDRESS WILL BE LOWEST ADDRESS 

99 114610 010567 177352 MOV RS, LSTADD AND LAST ADDRESS WILL BE HIGHEST 
18700 114614 BR 23 ELSE 
18701 114616 010567 17 1$: MOV RS, FSTADD ‘FIRST ADDRESS WILL BE HIGHEST ADDRESS 
18702 114622 010467 177 MOV R4 LSTADD ;AND LAST ADDRESS WILL BE LOWEST 
18703 114626 7 177312 2$: CLR oc ‘INITIALIZE LOOP COUNTER 
18704 114632 016767 177326 177330 MOV FSTADD, CURADD 

; 

18706 ; DON’T REWRITE TIMEOUT VECTOR 
18708 114640 016700 177324 $s. MOV CURADD, RO ;STORE CURRENT ADDRESS 
18709 114644 700 170000 BIC #170000, RO sLEAVE ONLY LOW 4K BITS 
18710 114650 022700 000004 CMP a4 RO :TIMOUT VECT 
18711 114654 001526 BEQ 16$ ‘IF SO, DON’T REWRITE IT 
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SEQ 0344 
TEST - MOVING INVERSIONS TEST FOR TAG STORE 

18712 114656 022700 000006 CMP #6 RO | ;OR PRIORITY 
18713 114662 001523 BEQ 16$ ; 
18714 114664 016737 177272 172352 MOV CURDAT, @#KXIPARS ;GET OLD PATTERN 
18715 114672 005777 177272 TST ACUR ;OLD DATA OK? 
18716 114676 013767 177752 177244 MOV APHITMIS , RECDAT 
18717 114704 032767 000004 177236 5%: BIT SBITO2, RECDAT sIF ACCESS WAS A MISS 
18718 114712 001002 BNE 6$ ; THEN 
18719 114714 000167 000346 JMP EXBAD2 ‘ERROR, EXIT 
18720 114720 016737 177234 172352 6%: MOV NEWDAT, a¢KIPARS ;GET NEW PATTERN 
18721 114726 005077 177236 CLR @CURADD REGISTER AND WRITE LOCATION 
18722 114732 013767 177752 177210 MOV aeHITMIS , RECDAT 
18723 114740 032767 000004 177202 83: BIT #BITO2, RECDAT ;IF ACCESS WAS A HIT 
18724 114746 001406 BEQ 9$ ; THEN 

114 032767 000010 177172 10$: BIT #B1IT03, RECDAT ;MISS? 
18726 114756 001402 BEQ 9$ ;IF SO, CONTINUE 
18727 114760 000167 000302 JMP EXBAD2 
18728 114764 005777 177200 9$: TST @CURADD ;REGISTER AND READ LOCATION 
18729 114770 013767 177752 177152 MOV @eHITMIS.RECDAT 
18730 114776 032767 000004 177144 11$: BIT #BIT02, RECDAT HIF ACCESS WAS A MISS 
18731 115004 001002 BNE 12$ 
18732 115006 000167 000254 JMP EXBAD2 i ERROR EXIT 
18733 115012 026767 177150 177150 12$: CMP LSTADD, CURADD F CURRENT ADDRESS IS LAST ADDRESS 
18734 115020 001044 BNE i 54 
18735 115022 016767 177132 177132 MOV NEWDAT , CURDAT :NEW KIPARS 
18736 115030 022767 000001 177106 CMP #1 DCOUNT -IF LOOP COUNTER LESS THAN 1 
18737 115036 003406 BLE 133 ; THEN 
18738 115040 006367 177112 ASL RITEDA ‘UPDATE OF NEW DATA.. 
18739 115044 056767 177106 177106 BIS RITEDA, NEWDAT ‘BY SETTING BITS 
18740 115052 000421 BR 15$ ; ENDIF 
18741 115054 022767 000001 177062 13$: CMP él, DCOUNT :CHANGE PATTERN? 
18742 115062 001007 BNE ;IF SO, BRANCH 
18743 115064 012767 022200 177064 MOV 423200 RITEDA :START WITH THE SAME 
18744 115072 012767 155400 177060 MOV #155400, NEWD ;DON'T DO ALL 1’S 
18745 115100 000406 BR ; 
18746 115102 006367 177050 14$: ASL AT TEDA ;UPDATE OF NEW DATA. 
18747 115106 046767 177044 177044 BIC RITEDA, NEWDAT ‘BY CLEARING BITS 
18748 115114 000400 BR 15$ ;ELSE 
18749 115116 005267 177022 15$: INC DCOUNT s INCREMENT THE LOOP COUNTER 
18750 115122 016767 177036 177040 MOV FSTADD, CURADD ‘FINISH FIRST CURRENT ADDRESS 
18751 115130 000426 BR 18$ ELSE 

115132 005767 177014 16$: TST FWDSEQ ‘IF ADDRESSING UPWARD 
18753 115136 001412 BEQ 17$ ; THEN 
18754 115140 066767 177010 177022 ADD ADDLSB, CURADD ‘ADD THE VALUE OF THE CURRENT LSB 
18755 115146 020567 177016 CMP RS, CURADD SIF CURRENT ADDRESS GREATER THAN HIGHEST 
18756 115152 002015 BGE 18$ ‘VIRTUAL ADDRESS THEN 
18757 115154 162767 007776 177006 SUB $7776, CURADD sROLL IT BACK 
18 115162 000411 BR 18$ ‘ELSE 
18759 115164 166767 176764 176776 17$: SUB ADDLSB, CURADD “IF ADDRESSING DOWNWARD THEN SUBTRACT LSB 
18760 115172 020467 176772 CMP R4, CURADD SIF CURRENT ADDRESS LESS THEN LOWEST 
18761 115176 003403 BLE 18$ ‘VIRTUAL ADDRESS THEN 

il 062767 007776 176762 ADD #7776, CURADD sROLL IT BACK 
18763 115206 767 000005 176730 18%: CMP as DCOUNT IF LOOP COUNTER LESS THAN 7 
18764 115214 00 BLE 18i$ THEN LOOP BACK FOR NEXT BIT POSITION 
18765 115216 000167 177416 JMP 3$ 
18766 115222 005767 176724 181$: TST FWDSEQ ;IF ADDRESSING UPWARD 
18767 11 001404 Q 19$ ; THEN 
18768 115230 005067 176716 CLR FWDSEQ START ADDRESSING DOWNWARD 





111 
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18769 115234 000167 177316 JMP TSLOOP | ;ELSE 
18770 115240 012767 000001 176704 19$: MOV $1 FWOSEQ ;START ADDRESSING UPWARD 
18771 115246 006167 176702 ROL ADDL SB ;ROTATE LSB TO NEXT POSITION 
18772 115252 022767 020000 176674 CMP #20000, ADDLSB ;ALL DONE? 

18 001406 BEQ TSEND ;EXIT 

18774 11 000167 177270 JMP TSLOOP ; 

18775 013701 172352 EXBAD2: MOV @eKIPARS,R1 ;STORE PAR 

18776 115272 016700 176672 MOV CURADD , ;AND ADDRESS 

18777 115276 012737 001200 172352 SEND: MOV #1200, @@KIPARS ;RESTORE PAR 

18778 115304 042737 000400 177520 BIC #B1T08, aeBCSR ;OUT OF STANDALONE MODE 
18779 115312 000207 RTS PC ; RETURN 

18780 115314 ENDTAG: 

18781 “ENABL AMA 


18782 


Jil 
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TEST - PCR READ/WRITE BITS 


SR READ/WRITE BITS 


ZEROE 
;ROUTINE TEST 
. SAVE PCR 


ENDIF 


ENDIF 
| ENDROUTINE 





SCOPE 
CLR PCR 
MOV #SIXBIT+1,R2 
MOV #SIXBIT ,R4 
MOV , 

; 

; WRITE TO HIGH BYTE FIRST 

1$: MOVB (R2), +1 
CMPB (R2),PCRe1 
BNE 2$ 
CMPB CR4),PCR 
BEQ 3$ 

2s: MOVB pmad. Sappared 
MOVB (R4), $GDDAT 
ERROR +51 

3$ TSTB (R4)+ 

; WRITE TO LOW BYTE 

° 
MOVE  (R2).PCR 
CMPB (R2U, 
BNE $ 
CMPB (R2),PCR 
BEQ 5$ 

4$: MOVB Oe» eT 
MOVB (R2), $GDDAT 
ERROR +51 

5$: TSTB (R2)-+ 
SOB R3,1$ 


-SBTTL TEST PCR READ/WRITE BITS 
PCR BC 


THEN ERROR 


ENDIF 

WRITE PCR<06-01>=PATTERN 

IF PCR<14-09> NE PATTERN OR PCR<06-01> NE PATTERN 
THEN ERROR 


ENDDO 
WRITE PCR=0101010101010101 
IF PCR NE 0101010001010100 THEN 


SEQ 0346 


AND 
THE FIRST TEST WILL CHECK THAT PCR REGISTER IS BOTH WORD AND 
BYTE ADDRESSABLE. BITS 14-09 AND 06-01 WILL 
S AND ONES. THE REST OF THE BITS HAVE TO BE ALL O'S. 


WRITTEN AND READ 


: 

; 

; 

; 

; 

; LET PCR=0 

; DO FOR PATTERN=001111, 110011, 101010,010101 

. WRITE PCR<14-09>=PATTERN 

:. , WRITE PCR<06-01>=PATTERN 

;. : IF PCR<14-09> NE PATTERN OR PCR<06-01> NE PREVIOUS 
; 
ve 


TTERN 


oh iets cma mceenca egy 


;INITIALIZE PCR 10 0 

;R2->TABLE OF PATTERNS 4 6 R/W BITS IN EACH 
;R3 POINTER TO PREVIOUS PATTERN 

00 4 TIMES 


;WRITE TO HIGH BYTE 
;BYTE WRITTEN OK? 


IF NOT 
iLOW BYTE CHANGED? 
‘EXPECTED PATTERN HIGH BYTE 


;LOW BYTE 
;ERROR PCR READ/WRITE BITS 
; INCREMENT POINTER FOR OLD 


;WRITE TO LOW BYTE 
;BYTE WRITTEN OK? 


; , BRANCH 

;HIGH jt eel 

iEXPECTED PATTERN HIGH BYTE 

sERROR PCR READ/WRITE BITS 
POINT 


ER FOR NEW PATTERN 
D0 FOR ALL 4 PATTERNS 





K11 
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0 
TEST - PCR READ/WRITE BITS . 
18840 P 
18841 ; NOW TRY WORD ADDRESSING 
3 
18848 115430 012737 052525 177522 MOV #52525,PCR ;WRITE A PATERN 
8844 115436 022737 124 177522 CMP #52124 ,PCR ;ALL BUT BITS <8,7,0> OK? 
18845 115444 001404 BEQ 6$ ;IF SO 
18846 115446 112737 052124 001124 MOVB #§ #52124, $GDDAT ;EXPECTED PATTERN 
18847 115454 104051 ERROR +51 ;ERROR PCR READ/WRITE BITS 
18848 115456 6$: 
woe 115456 000403 BR TST31 ;;GO TO NEXT TEST 
18850 115460 000 036 146 SIXBIT: .BYTE 0,36,146,124,52 ;001111,110011,101010,010101 
115463 124 052 
1 ;BINARY DIVIDE FOR 6 BITS 
i EVEN 





Lili 
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SEQ 0348 
TEST - BCSR READ/WRITE BITS , 
SBTTL TEST - BCSR READ/WRITE BITS 

THE TEST WILL CHECK THAT @CSR<7-5;2-0> CAN BE WRITTEN AND 

‘READ AS ZEROES AND ONES. BCSR<14.03> SHOULD BE 0'S. BCSR<04> 

‘SHOULD BE CLEARED BY RESET INSTRUCTION. 


T 
FOR PATTERN=011,010,101 DO 

WRITE BCSR<7-5>=PATTERN 
IF BCSR<7-5> NE PATTERN THEN 


ENDIF 
WRITE BCSR<2-0>=PATTERN 
IF BCSR<2-0> NE PATTERN THEN 


ENDIF 


IF BCSR<14,03> NE <0,0> THEN 
ERROR 








EXECUTE “RESET” 
IF BCSR<04> NE O THEN 
ERROR 


ENDIF 
LET BCSR<04>=0 (THIS BIT IS WRITE ENABLE FOR EAROM) 


of 


‘ Seer eegreretnntinerecinsenneapeqncnseepennesngnniasancese es 
177520 002730 * FOV BCSR. SAVER poenesom 
, BCSR ‘CLEAR BCSR 


G 


; WRITE TO BITS <7-5> AND <2-0> 






115726 MOV ' 
001 CLR : 
MOV 3 
177520 i$: MOVB 3 
001124 MOVB , 
177520 CMPB ; 
Seen :1F so, 
177520 2$ MOVB OTE 10 BITS <o-0 
$ ; <e-U? 
177850 poi —_-- 
1 CHPB ‘BITS WRITTEN OK? 
eee or ‘TRon IN BCSR READ/WRITE BITS 
3 » 
3s: $08 ‘CONTINUE TILL ALL PATTERNS DONE 


: 
: 





BCSR ;WRITE TO BIT <3> 
000010 177520 BIT SB1T03,BCSR ;ALL ? 


BE IF 
oR ‘EXPECTED PATTERN 








M11 
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TEST ~- BCSR READ/WRITE BITS 


SEQ 0349 














18911 115602 104052 ERROR +52 ;ERROP IN BCSR READ/WRITE BITS 
* CHECK THAT BIT <4> CLEARS BY RESET 
as: BIS #B1704,BCSR SET BIT 4 

81704 BCS SURITTEN OK? 
1891 @B1T04, $GDDAT ‘EXPECTED PATTERN 

-52 IN BCSR READ/WRITE BITS 
18920 115632 7% ‘EXIT TEST 
18921 11 S$: #81104 ,BCSR ‘TRY TO CLEAR BIT 4 
18922 115642 #81104 BCSR ‘CLEARED OK? 
18923 115650 6$ ‘IF SO BRANCH 
ie ie a Oe PR nasne a 
ieee 11se60 001206 6$: $PASS ‘FIRST PASS? 
18927 115664 ‘IF NOT FIRST PASS.EXIT 
18928 11 000020 1s: @B1T04,BCSR ‘SET BIT 4 AGAIN 
18929 115674 ‘EXECUTE RESET 
1O98) 1tss08 ) OF ES BRANCH 

; 
HB HENS LE coaas sro on ere om ee 
18934 115716 002 8+: i RESTORE BCSR 
oon 115724 TST32 ;;G0 TO NEXT TES 
13939 115726 003 THRBIT: .BYTE 140,3,100,2,240,5 ,011,010,101 FOR BITS <7-5,2-0> 
115731 240 


— 
r 
& 





a 
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SEQ 0350 
TEST - 16 BIT ROM CHECKSUM TEST 
8940 _SBTTL TEST - 16 BIT ROM CHECKSUM TEST 
8941 ROM’ S CHECKSUMS 
18942 
18943 ‘16 BIT ROM TEST 
18944 -THE FIRST TEST WILL CLEAR BCSR<07>, LOAD PCR<14-09> WITH 
18945 “ROM ADDRESS BITS <14-09>, AND CHECK CHECKSUMS OF 16-BIT ROM 
18946 “BY ACCESSING IT THRU BUS ADDRESSES 173000-173776. THEN WITH 
18947 :BCSR<06;05> BOTH CLEAR, PCR<06-01> USED AS ADDRESS BITS 14-09, 
18948 THE SAME THING WILL BE DONE BY ADDRESSING 16-BIT ROM THRU BUS ADDRESSES 
18949 :165000-165776. THE RESULTS SHOULD BE THE SAME AND SHOULD COMPARE 
18950 WITH THAT STORED IN THE BOOT AND DIAGNOSTIC ROM. 
18952 'BCSR <07> DISABLE 17773000 
1895 <06> DISABLE 17765000 
18954 <05> ROM SOCKET 3 AT 17765000 
18956 ‘ROUTINE TEST 
18957 ¥ LET -BCSR<7 6 6,5>=0,0,0 
18958 :. D0 F si, #0 T0 #31, BY #1 DO 
18960 . OR Re FROM 90 TO w776 BY 2 
18961 . ALCULATE CHECKSUM THRU 173000 
18962 ‘% 
18963 * 3. ENDDO 
18964 a IF CHECKSUM NE #0 THEN 
18965 . - ERROR 
18966 . ENDIF 
18967 * DO FOR Ri FROM #0 TO #31. BY #1 
18968 a ' LET PCR<06-01>=Ri 
18969 ;. DO FOR R2 FROM #0 TO #776 BY 2 
18970 . CALCULATE CHECKSUM THRU 165000 
ie . 
18972 . ENDDO 
18973 * IF CHECKSUM NE #0 THEN 
18974 . , ERROR 
18975 a ENDIF 
18976 ; ENDROUT INE 
18978 ee 
18979 115736 013737 177520 002730 BCSR, SAVBR ;SAVE BCSR 
18980 115744 042737 000340 177520 BIC #681107 !BIT06!B1T05,BCSR ‘READ 16 BIT ROM 
18981 115752 52737 001000 177520 BIS #1000,BCSR ; enable HOB, for APT 
; 
18988 ; CALCULATE LOW BYTE CHECKSUM’S THRU 173000 AND 165000 
ra 
18985 115760 005001 CLR R1 ;PAGE COUNT FOR ALL 8K 
18986 115762 005037 177522 CLR PCR :CLEAR PAGE CONTROL REGISTER 
18987 115766 005037 002724 1$: CLR ACTCHS ;CLEAR CHECKSUM AT 173000 
18988 115772 005037 001160 CLR $TMPO ‘AT 165000 
18989 115776 005002 ELR R2 ;CLEAR COUNTER THRU A PAGE 
18990 116000 016203 173000 2$: MOV 173000(R2),R3 GET LOW BYTE THRU 173000 
18991 116004 016204 165000 MOV 165000(R2).R4 
18992 116010 060337 002724 ADD R3, ACTCHS iCALCULATE CHECKSUM THRU 173000 
18993 116014 960437 001160 ADD R4 3 $THPO ;CALCULATE CHEKCSUM THRU 165000 
a 


18995 116022 022702 000776 CMP «8776.2 ‘WORD BEFORE LAST? 





Bie 
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TEST ~- 16 BIT ROM CHECKSUM TEST 


sS3GESEEEIIS 
apenas 


Secreeseininies 


es 






1 2 
19010 7 
: 16103 
130k 
19016 136340 
19018 ig 
; if 
1161 
i 1161 
088 Lisi 
te tigi 
19026 1161 
is His 
1 8 116 
ia Hes 
iB Hin 
ia tie 
ie i 
1 il 
13038 
19059 16334 
19041 116232 
tot 116234 
19043 116240 
19044 116246 
19045 


19046 
19047 


son 


177522 


173774 177522 


001000 177520 
177520 002730 


aqagegengeanagee 


3$: 


4$: 


5$: 


) CHECK 


‘ 

LASTCH: 
1$: 
2$: 


3$: 


BEReISceSSo oD A 


4$: 


5$: 


mos 
pa 


6$: 


i 


+ 
qsanvegea 


LAST 2K OF ASCII TEXT 


SEQ 0351 


;IF NOT, BRANCH 

;PAGE NUMBER STORED OK? 
;IF YES, BRANCH 

;PAGE NUMBER STORED WRONG 
;LAST WORD IN A PAGE? 

;IF NOT, BRANCH 


;STORE IN PCR<14-9> 
;sALL PAGES IN R2 FROM BIT1? 
;IF NOT BRANCH 


-CLEAR CHECKSUM AT 173000 
SCLEAR COUNTER THRU A PAGE 
SET LOW BYTE THRU 173000 


‘THRU 1 
CALCULATE CHECKSUM THRU 173000 
CALCULATE CHEKCSUM THRU 165000 


;GET NEXT WORD 
;LAST WORD IN A PAGE? 
ANCH 


; ANCH 

;IN CHECKSUM AT 165000 
;CLEAR PCR 

; reset HOB for APT 
s;RESTORE 6CSR 
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TEST - 8 BIT EEROM CHECKSUM (105dec bytes) TEST 
-SBTTL TEST - 8 BIT EEROM CHECKSUM epg tes) TEST 


STHIS TEST WILL CLEAR BCSR<6>, SET BCSR<5> PCR<5-1> 
ADDRESS BITS 13-09, AND CHECK CRC P PATTERNS OF 8-BIT EEROM BY 


SEQ 0352 



























;WITH 
‘ACCESSING IT THRU ADDRESSES 165000-165776. THIS TEST VERIFIES THE 
;RESPONSE ONLY OF THE BASE AREA. 
;ROUTINE TES 
.. LET BCSR<5>=1 
:. LET OLDCRC=00 
;. LET PCR<05-01>=40 
5. CALCULATE CHECKSUM FOR THE FIRST 320 LOCATIONS 
* IF RESULTING CHECKSUM NOT ZERO THEN 
Re ERROR 
is ENDIF 
; ENDROUI TNE 
es 
177520 002730 MOV BCSR ;SAVE BCSR 
000100 177520 BIC oeTTOe BESR ;ENABLE INTERNAL RESPONSE 
1 BIS #81T05.BCSR SELECT 8-BIT ROM 
001160 CLR $TMPO ;CLEAR SUM 


; CALCULATE LOW BYTE CHECKSUM’S THRU 165000 
. os ;PAGE COUNT FOR ALL 8K 





177522 CLR ‘CLEAR PAGE CONTROL REGISTER 
002724 2$: CLR ;CLEAR CHECKSUM AT 165000 
CLR ;CLEAR COUNTER THRU A PAGE 
165000 34: MOVB  165000(R2),R4 :GET A BYTE THRU 165000 
001160 ADD R4, $TMPO CALCULA TE CHEKCSUM THRU 165000 
TST NEXT WORD 
000316 CMP ‘WORD BEFORE LAST? 
BNE ;IF NOT 
000252 CMPB 3314 SHOULD HAVE 252 
BEQ ;IF YES, BRANCH | 
ERROR ;PAGE NUMBER STORED WRONG 
000322 4$ CHP iLAST WORD IN A PAGE? 
165010 001162 MOVB § 165010, $TMP1 STORE SIZE. <$>=1 2K 
001160 TSTB  =—s-« S$ TMPO ;CHECKSUM 0 AT 165000? 
BEQ TF YES, BRANCH 
ERROR CHECKSUM AT 165000 
177522 CLR PCR 
002730 177520 MOV SAVBR,BCSR sRESTORE BCSR 


ae re - eee SE ee er LO 


Die 
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TEST - 8-BIT EAROM READ-WRITE - TEST 


SEQ 03535 


isoss .SBTTL TEST - 8-BIT EAROM READ-WRITE - TEST 
19096 ; This test writes a checkerboard pattern of alternating 1's and 0's in 
19097 ; 8-bit EAROM. 
19098 ; All base area 316 octal locations are saved. (105 dec plus 4 customer loc. ) 
19099 ; It will run only if bit 12 is set in software switch register. 
19100 ; This is the eerom test enable, setable at runtime by an operator. Loop 
19101 ; on error is ibited, as it would be possible to destroy the 
1308 ; in a relativly short time with repeated write cycles. The option to 
1910 ; continue beyond a single error is selected by by aoeersing halt on 
i3i0s ; error switch at which time the operator may truncate the test. 
19106 ; The switches which could affect the EEROM’s life are masked out and 
iotée ; restored in the test immediatly following this one. <<<<<sesesees 
9109 ; This test will be not be done if there is an APT system t, or if 
19110 ; bit #12 of the Software Switch register is not set. If Bit le is set and 
19i11 ; there is no APT system present (or in load mode), the EEROM test will be 
airs ; run 1 time, all subsequent passes will not include the EEROM test. 
19114 ; 
19115 ; -- SECTION 1 
19116 ;+ SAVE BASE AREA 
19117 ;* 
19118 ;* 
19119 ;¢ 
9120 ;+ TEST -- SECTION 2 
19121 3+ 
19122 3+ 2K PROCEDURE 
19123 ;+ do while NOTS$DONE$2000 
19124 ;* Write 10101010 (252 oct) 
19125 ;¢ delay 
19126 i? read 10101010 (252 oct) 
19127 ;* update error list if incorrect read 
19128 3+ enddo 
8 ;+ do while NOTSDONE$2000 
91 3+ write 01010101 (125 oct) 
19131 3+ delay 
19132 ;* read 01010101 (125 oct) 
19133 se updete error list 
19134 7+  enddo 
19135 ;* 
19136 
19137 ; CLEANUP -- SECTION 3 ; 
19138 ; communicate failure mode and loc info ; 
19139 ; restore base area (105) + 4 customer locations 
19140 ; restore non orere 
19141 ; RESTORE BASE AREA 
1914 
: 

totes [RRR EREREEREREEEEEEEREEREREESERASAREEESSEAAEESES SEES ESSE EEEOEEEEEEE ERED EOE E SES 
19146 REREREESAEEEEEEEEEEEEESESEEEEEEEEEEEEEEEREEESEREESEEEEEESEEEEES 

116406 000004 1ST34: SCOPE 
19147 116410 017737 062524 003050 MOV @SWR , SAVSWR ;SAVE SOFTSWITCH SETTINGS 
19148 116416 005737 001206 TST — $PASS ;do only once, iff all cond. 0.K. 
19149 116422 001006 BNE i$ ; on first pass ( 0) 





Ele 
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TEST - 8-BIT EAROM READ-WRITE - TEST 


SEQ 0354 


19150 116424 000240 NOP ; no, Go engine 
19151 ; CMPB @APTENV, SENV ;IN APT ? 
9152 ; BEQ i$ ; <IF YES, EXIT TEST> 
19153 116426 032777 010000 062504 BIT #B1T12,3SWR ; bit l2 (do EEROM test) set? 
9154 116434 001016 BNE 2$ ; 
19155 116436 000240 NOP 
91 16440 000137 116770 1$: JMP TSTEND exit point for program 
19157 116444 015 012 116 33%: .ASCIZ <15><12>/NOW TESTING EEROM/<15><12> 
116447 117 127 040 
116452 124 105 123 
116455 124 111 116 
116460 107 040 105 
116463 105 122 117 
116466 115 015 012 
116471 000 
91 .EVEN 
red ; save base area, switch registers 
19161 116472 104401 116444 2$: TYPE ,33$ ; INDICATE EEROM TEST UNDERWAY 
9162 116476 017737 36 003050 MOV @SWR , SAVSWR ; save softswitch settings 
19163 116 042777 041777 062426 BIC $41777, aSWR ; clear any interferring 
9164 116512 013737 177520 002730 MOV BCSR SAVBR ;SAVE REGISTER 
19165 116 052737 001060 177520 BIS #1060, ; E INT ROM! S 
9166 116 000240 NOP ;ENABLE 8-BIT ROM, HOB 
19167 116 012701 143762 MOV #$POWER+10,R1 ;LAST LOCATION IN PROGRAM 
9168 116534 005037 177522 CLR PCR ;START WITH PAGE O 
19169 116540 005002 CLR R2 ; DISPLACEMENT 
19170 116542 016221 165000 3$: MOV 165000(R2),(R1)+ ;STORE A WORD 
19171 116 005722 TST (R2)-+ ;GET NEXT WORD 
19172 116550 022702 000334 CMP #334 ,R2 ;ALL 332 LOCATIONS DONE? 
4 116554 003372 BGT 3$ ;I1F NOT, CONTINUE 
Re ; test 2K section 
19177 116556 112703 000252 MOVB i ; first pattern, 10 101 010 
19178 116 005037 003022 CLR ; zero cumulative error count 
19180 116566 000240 201$: NOP 
19181 116570 005037 177522 CLR PCR ; clears page register (start 3 165000) 
19182 116574 000240 202$: NOP 
19183 116576 005002 CLR Re ; first location each page of EEROM 
19184 11 000240 203$: NOP 
19185 116602 110362 165000 MOVB R3, 165000(R2) ; write the test pattern 
19186 11 737? 116754 JSR » DEL ; wait for write time 
19187 116612 120362 165000 CMPB R3,165000( R2) ; read back the written word 
191 116616 001413 BEQ 204 ; if 0. K. readback, skip handle error 
19190 116620 37 3022 INC ERRCNT ; update cumulative error count 
19191 116624 116237 165000 001126 MOVB 165000(R2) , $BDDAT ; put the read date in display erea 
116632 013704 177522 MOV R4 ‘ ; 
19193 116636 010237 001122 MOV —-R2, $BDADR ; also address location info 
19194 116642 104134 ERROR +134 ; do EEROM read/write error report 
ieee 116644 NOP ; continue testing 
19197 116646 005722 204: TST (R2)+ ; 
19198 116650 yo da 000776 CMP $776,R2 ; lest location checked in @ page 
19199 116654 003351 BGT 203% ; continue till all page loc. tested 





Fle 
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TEST - 8-BIT EAROM READ-WRITE - TEST 
19200 116656 062737 000002 177522 


SEQ 0355 


#2 ,PCR 


ADO ; PCR every 512 dec. bytes 
19201 116664 122737 000020 177522 CMPB =: #20, PCR ; 8 (286 Byte pgs in 2K) * 2 tholes)=20 
1 116672 001340 BNE 202$ ; finish page 
19203 116674 122703 000125 CMPB #125,R3 ; test for both patterns written 
19204 116700 BEQ $ ; Exit point 
19205 116702 112703 000125 MOVB #125,R3 ; invert the test pattern 
13508 116706 BR 201$ ; do the test over with new pattern 
19208 
ions 116710 000240 205$ NOP ; test over 
19211 116712 012701 143762 MOV #$POWER+10,R1 ;LAST LOCATION IN PROGRAM 
19212 116716 37 17 CLR PCR ;START WITH PAGE 0 
19213 116722 005002 CLR Re ;DISPLACEMENT 0 
19214 1167 012162 165000 11$: MOV (R1)+,165000(R2) ;RESTORE A WORD 
19215 116730 004737 116754 JSR PC, DELAY ; wait for write time 
19216 116734 005722 TST (R2)+ ;GET NEXT WORD 
19217 116736 022702 000334 CMP #334 ,R2 ;ALL 332 LOCATIONS DONE? 
19218 116742 003370 BGT 11$ ;IF NOT, INUE 
19219 116744 013737 002730 177520 MOV SAVBR ,BCSR ;RESTORE REGISTER 
1 116752 000406 BR TSTEND ; goto next test (swr restored there) 
1 § -------------- SUBROUTINES AREA ------------------ — 
1 ; the Sok sening subroutine causes a delay of a certain no of milliseconds 
1oeee ; the number of ms. delayed is based on type of EEROM as indicated by R5 
1 116 010046 DELAY: MOV RO, -(SP) ; save RO 
19227 116756 012700 023420 #10000. , RO ; ALL ELSE = 10 MS DELAY 
19228 116762 077001 i$ SOB RO, 1$ ; actual delay 
1 116764 012600 MOV (SP)+, RO ; restore RO 
19230 116766 000207 RTS 
iasee i wa en ne nn nn nn nn en en ne nner nnn nnn nnrnne 
Rs 116770 000240 STEND: NOP ; everything done 


————— al 


Gle2 
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SEQ 0356 
TEST - LKS BIT 7 

19236 .SBTTL TEST - LKS BIT 7 
19237 ee test restores the software switch ister used in the EEROM 
19238 t above, and therefore must follow it directly !! <<<<<<<<#sens 
19239 ‘THESE TESTS: WILL CHECK FUNCTIONALITY OF LKS<7-6> 
iasas ACCESS LKS, CHECK THAT READY LKS<07> CAN BE O AND 1. 
19243 ;LKS <Q7> LINE CLOCK MONITOR 
19244 3 <06> LINE CLOCK INTERRUPT ENABLE 
19245 ;ROUTINE TEST 
19246 ;IF UFD AND LKS IS DISABLED THEN 
19247 Bi XIT TEST 
19248 ; 
19249 ; READ LKS TO SEE IF IT TIMEOUTS 
19250 “s - (CHECK LKS<07> 
19251 ; LET pe EE ge CASE COUNTER FOR SLOW CLOCK) 
19252 : LET 100=¢ SS OF LINE _CLOCK_INTERRUPT 
19253 ; CLEAR INTERRUPT_FLAG 
19254 ; DO 3 TIMES 
19255 ie o 
19256 ; DEC Ri 
19257 ; UNTIL Ri NE #0 OR LOW BYTE OF LKS LT #0 
19258 Re IF LOW BYTE OF LKS GE #0 THEN CREADY DIDN'T COME UP) 
19259 ; ERROR 
19260 ; . ENDIF 
19261 ; ENDDO 
19262 ; IF INTERRUPT_FLAG NE #0 THEN CINTERUPT W/O LKS<6>=1) 
19263 ; : ERROR 
19264 ; ENDIF 
19265 ; INE 
19266 
19267 116772 4it36 5 ———S 
19268 116774 013777 003050 062136 Sov SAVSWR , aSWR ; restore here FROM EEROM test 
19269 117002 032737 000100 000052 BIT #BITO6 , a#52 ;UFD 
19270 117010 001 BEQ i$ TF oh GO ne TEST 
19271 117012 032737 010000 177520 BIT #B81T12,BCSR DISABL 
13676 117020 0010 BNE TST36 ;;1F DISABLED, eiit sTeet 

. 
ists ; TRY TO ACCESS LKS WITHOUT TIMEOUT 

; 
1927 7022 013737 000004 001160 i$: MOV $TMPO ;SAVE TIMEOUT VECTOR 
19277 117030 012737 117052 000004 MOV tet VER AVEC ;P NEW a ee TO PROGRAM 
19278 117036 012737 000340 000006 MOV Se CRRVEC 2 AT PRIORITY 7 
192 7044 737 177546 TST i xs ;ACCESS LKS 
19280 117050 BR 3$ ;IF NO TIMEOUT, CONTINUE 
19281 117052 i 2$: +56 ‘TIMEOUT READING L LKS 
19282 117054 005726 TST (SP)+ ;ADJUST STACK POINTER 
19283 117056 005726 TST (SP )+ 
1oSee 117060 013737 001160 000004 3$: MOV $TMPO, ERRVEC sRESTORE TIMEOUT VECTOR 

9285 ; 

13se5 ; CHECK THAT READY BIT LKS<7> CAN BE 1 

3 
19288 117066 042737 000200 177546 BIC #B1T07,LKS ; START WITH CLEAN SLATE 
19289 117074 005037 002722 CLR LKSFL ;CLEAR INTERRUPT FL 
19290 117100 012737 137062 000100 MOV #LKSINT,100 ‘ POINT VECTOR TO TNERRUPT ROUTINE 
19291 117106 012737 000340 000102 MOV #340 ,102 ;AT PRIORITY 7 





TEST 


H12 
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19292 117114 
19293 117120 
19294 117124 

7130 


19302 117152 
19303 117154 
19304 


- LKS BIT 7 


000003 
077777 
177546 


177546 


002722 


;;I1F NONE, EXIT 


SEQ 0357 


;D0 3 TIMES TO SYNCHRONISE 
;COUNTER FOR SLOW CLOCKS 
sREADY LKS<7>=1? 

;IF SO, DO NEXT LOOP 
;OTHERWISE, GO THRU COUNT 
;WAS READY 1? 

;IF YES, BRANCH 

ot ons NOT BECOME 1 


; L 
joer INTERRUPTS W/O LKS<6>=1? 


;ILLEGAL CLOCK INTERRUPTS 


KK 
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SEQ 03558 
TEST - LKS INTERRUPT PRIORITY 
19306 .SBTTL TEST - LKS INTERRUPT PRIORITY 
19307 “CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY 5 CLEARING LKS<07> 
19308 ;AND DON’T HAPPEN AT PRIORITY 6. 
19309 ‘ROUTINE TEST 
19310 :IF UFD AND LKS IS DISABLED THEN 
19311 EXIT TEST 
19312 ‘ ENDIF 
1931 ;. SET PRIORITY TO 5 
9314 ; CLEAR INTERRUPT_FLAG 
19315 ; LET LKS<06>=#1 (ENABLE INTERRUPTS ) 
19316 ; SET COUNTER TO WAIT FOR 3 INTERRUPTS 
19317 ; REPEAT 
19318 ; DECREMENT COUNTER 
19319 ; UNTIL INTERRUPT_FLAG EQ #3 OR COUNTER EQ #0 
9320 ; CLEAR LKS<06> 
19321 ; IF LKS<07> EQ #1 THEN 
19828 ; ies ERROR (WAS NOT CLEARED ON INTERRUPT) 
e 
19324 ; IF COUNTER LT TIME REQUIRED _FOR_3 INTERRUPTS. FOR_800HZ 
13eee ; ios ERROR (INTERRUPTS NEVER GO L 
19327 ; IF INTERRUPT_FLAG LT #3 THEN 
1932 be ERROR CINTERRUPTS DON’T HAPPEN) 
193° 3 :. ENDIF 
19330 fe CLEAR INTERUPT_F 
19331 ~ WAIT FOR Tih 
19 ; LET LKS<7>=0 
19 ; IF LKS<7> NE #0 THEN 
19334 ; ERROR (LKS<7> NOT CLEARED 
19335 ; ENDIF 
19 ; SET PRIORITY TO 6 
19337 : SET COUNTER TO 1 SLOW CLOCK INTERRUPT 
193 ; SET LKS<06> 
19339 ; REPEAT 
19 ; : DECREMENT COUNTER 
3 ; UNTIL COUNTER EQ #0 OR INTERRUPT_FLAG NE #0 
. 
19343 ; pent ERROR (INTERRUPT WAS AT WRONG PRIORITY) 
19345 > RESTORE ORIGINAL PRIORITY 
3 $ ; ENDROUT INE 
: 
19 ;ROUTINE LINE CLOCK _INTERUPT 
1934 3. INCREMENT INTERRUPT _FLAG 
19350 ; ENDROUT INE 
19 ; agi ta tae nae 
117156 000004 $136: SCOPE 
19353 117160 032737 000100 000052 BIT #B1T06, 2852 ;UFD MODE? 
19354 117166 001404 BEQ ;IF NOT, GO DO TEST 
19355 117170 032737 010000 177520 BIT #81T12,8CSR ;LKS DISABLED? 
: 117176 001132 BNE TST37 ;;IF DISABLED, EXIT TEST 
4 
13aee ; WAIT FOR 3 INTERRUPTS AND CHECK LKS<7> TO BE 0 AFTER INTERRUPT 
> 
19360 117200 042737 000100 177546 1%: BIC @B1T06,LKS ; FROM END OF TEST 427? PROBLEM 
19361 117206 005037 002722 CLR LKSFL ;CLEAR INTERRUPT FLAG 








Jl2 
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TEST - LKS INTERRUPT PRIORITY 


19362 117212 012737 137062 
19363 117220 012701 077777 
19364 117224 052737 000100 
sonez 114505 032737 000100 





19380 117 1 
19381 117314 105737 177546 
9382 11 100375 
19383 117322 005037 177546 
9364 117 032737 000200 
19385 117334 001401 
386 117336 104060 
19387 117340 032737 000100 
19388 117346 001401 
19389 117350 104131 
19390 117352 052737 001000 
19391 117360 022701 077737 
1oaee 117364 002001 
19 117366 104063 
19394 117370 022737 000003 
19395 117376 001404 
19396 117400 012737 000003 
104064 


19397 117406 
19398 
1okas 
19401 117410 pert pos A 
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SEQ 0359 


;POINT VECTOR TO ROUTINE 
;COUNTER FOR SLOW CLOCK 
— ENABLE BIT 


;IF YES, BRANCH 
;STAY IN A LOOP 


;DISABLE HALT ON BREAK 
;RAISE PRIORITY 
DISABLE 


; INTERRUPTS 
;LKS<7> CLEARED AFTER INTERRUPTS? 


; BR 
s INTERRUPTS DON’T CLEAR LKS<7> 
sLKS<7>=1? 


; IF » BRANCH 

;LKS<7> NOT CLEARED ON WRITE 

;LKS<6>=0? 

;IF YES, BRANCH 

;ERROR WRITING O TO LKS<6> 

;ENABLE HALT ON BREAK 

;COUNTER AT LESS THAN 800HZ? 
;I1F NOT, BRANCH 

i READY LINE DOES NOT GO LOW 
;DID ve hy 4 S HAPPEN? 


‘IF YE 
INTERRUPTS EXPECTED 
sINTERRUPTS BON’ T HAPPEN 


000100 MOV @LKSINT, 100 
MOV #77777, R1 
177546 BIS #B1T06,.LKS 
177546 BIT #B1T06.LKS 
BNE 2$ 
+131 
2s: MTPS #240 
002722 3%: CMP $3,LKSFL 
BEQ 
SOB R1,3$ 
; DISABLE INTERRUPTS AND CHECK THAT PROPER CONDITIONS ARE MET 
177520 4$: BIC #1000, BCSR 
MIPS #340 
177546 BIC #BIT06,LKS 
177546 BIT #81107 ,LKS 
ERROR +62 
S$: TSTB = LKSS 
BPL S$ 
CLR LKS 
177546 BIT @B1T07,LKS 
BEQ 6$ 
ERROR +60 
177546 6%: BIT #BIT06,LKS 
BEQ 7$ 
ERROR +131 
177520 7$: BIS #1000, BCSR 
CMP #77737 RL 
BGE 8$ 
ERROR +63 
002722 8$: CHP #3,LKSFL 
001124 MOV $3, $GDDAT 
ERROR +64 


; CHECK WHETHER INTERRUPTS HAPPEN AT PRIORITY 6 


$s; LKSFL 
s 86 


IF MO. PRIORITY FOR TYPE OUT 
SINTERUPTS HAPPEN AT WRONG PRIORITY 
PRESTORE PRIORITY 





K12 
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TEST - LINE CLOCK DISABLE 


SEQ 0360 


-SBTTL TEST - LINE CLOCK DISABLE 


;LINE CLOCK DISABLE( +) 
;THIS TEST WILL CHECK THAT BCSR<12> DISABLES RESPONSE 
len LKS REGISTER. 


;BCSR <12> LINE CLOCK STATUS REGISTER DISABLE 
; 


















‘ROUTINE TEST 

‘IF UFD AND LKS IS NOT DISABLED THEN 

* EXIT TEST 

‘ ENDIF 

; 

WRITE 

- 4-ADORESS, OF LKS. TRAP 

3. ie TRAP LK 

3. READ 

.. IF TRAP LKS NE 1 THEN 

Re . ERROR 

. ENDIF 

: ENDROUTINE 

, 

‘ROUTINE LKS_TRAP 

a TRAP_LKS=1 

+ LET BCSR<12>=0 

;RTI 

; 

SESESESESSEES + OSESSEESESESTESESESEHESOEEEESEOEEEEEEEEEEEEEEEESEESEEES 
117464 999008 48737: 
17466 032737 000100 000052 BIT #BIT06,a052 SUFD MODE? 
117474 001404 86a StiéidS HIF NOT 
76 032737 010000 177520 BIT 112,8CSR ‘LKS DI 

117504 001052 BNE -« TST40 ;:IF DISABLED, EXIT TEST 

CHECK BCSR<12> TO BE 0 AND 1 

3 
117506 is: BCSR, SAVBR 
117514 tie 
117542 ITi2. 
11 2$ 
117332 
117540 23: ins 12,BCSR 
L17356 ay $GDDAT PEC teb PATTERN 
117564 = TERROR BCSR READ/WRITE BITS 





; TRY TO ACCESS LKS TO GET A TIMEQUT WITH BCSR<12>=1 
‘ 








Lie 
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SEQ 0361 

TEST - LINE CLOCK DISABLE 

1947. 117566 013701 000004 3$: MOV ERRVEC,R1 ;SAVE TIMEOUT VECTOR 

19472 117572 012737 117614 000004 MOV €4$ ,ERRVEC | ; ARE A 

19473 117600 012737 000340 000006 MOV $340, ERRVEC-2 ;AT PRIORITY 7 

19474 117606 908737 177546 TST LKS ;ACCESS LKS REGISTER 

19475 117612 104066 ERROR +66 ;BCSR<12> DOES NOT DISABLE LKS 

19476 117614 bos 756 4$: TST (SP)- ;RESTORE STACK POINTER 

19477 117616 005726 TST (SP). 

19478 117620 010137 000004 MOV R1, ERRVEC ;RESTORE TIMEOUT VECTOR 

19479 117624 013737 002730 177520 MOV SAVBR,BCSR ;RESTORE BCSR 

19481 








eh 
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SEQ 0362 


- UNCONDITIONAL CLOCK LINE INTERRUPTS 


.SBTTL TEST - UNCONDITIONAL CLOCK LINE INTERRUPTS 

; UNCONDITIONAL “CLOCK LINE INTERRUPTS(+) 

; THIS TEST WILL CHECK THAT SETTING BCSR<1i3> TO 1 WILL 

sREQUEST INTERRUPTS WHENEVER A CLOCK LINE IS ASSERTED. THIS 
HAPPEN WITHOUT ACCESSING LKS, THEREFORE, EVEN WITH BCSR<12>=1 

: INTERRUPTS SHOULD HAPPEN. 


;BCSR <13> FORCE LINE CLOCK INTERRUPT ENABLE 
; 


sROUTINE TEST 

oad UFD AND FORCE LKS NOT DISABLED THEN 
— EXIT TEST 

; 


LET 100=ADDRESS OF UNCONDITIONAL _INTERRUPT ROUTINE 
DO FOR BCSR<12> FROM #0 TO @1(LKS DISABLED AND ENABLED) 
eal UFD DO ONLY FOR sate eg LINE CLOCK) 


CLEAR UNC INTERRUPT 
SET COUNTER TO WAIT FOR 3 INTERRUPTS 
REPEAT 






DECREMENT COUNTER 
res eet tne enine Fee EQ $ INTE RRUPTS -¥ 30 
ERROR (INTERRUPT TS NEVER” a0 L 


Gone INTERRUPT LT #3 THEN 
INTERRUPTS DON’T HAPPEN) 
LET BCSRe 13.660 

ENDDO 

sENDROUTINE 


‘ROUTINE UNCONDITIONAL INTERRUPT ROUTINE 
tae INCREMENT UNCONDITIONAL _ INTERRUPT 
; TURN 


a eee 


SCOPE 
BIT #BIT06 , ae52 ;UFD MODE? 
BEQ :TF NOT, BRANCH 
BIT $B1T13,BCSR iF ORCE ORCE INTERRUPT SET? 
BEQ TST41 ;;IF SET, EXIT TEST 
: 
; CHECK BSCR<13> TO BE O AND 1 
t 
i$: MOV BCSR, SAVBR ;SAVE BCSR REGISTER 
BIC #1000, BCSR DISABLE HALT ON BREAK 
BIC #81113,8CSR ;CLEAR BCSR 
BIT #81T13,8CSR ;<13>=0? 
BEQ 2$ SIF OK, BRANCH 
CLR $GDDAT ;CLEAR EXPECTED PATTERN 
ERROR +52 ;ERROR BCSR READ/WRITE BITS 
2$: BIS #B81T13,BCSR ;SET BIT 13 
BIT #B81713.8CSR :GOT S SET OK? 


BNE ANCH 
MOV #81713, $GDDAT TTPECTED PATTERN 





Nie 
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TEST - UNCONDITIONAL CLOCK LINE INTERRUPTS 


19539 117740 104052 ERROR +52 
9540 ; 
19541 ; SET UP TO DO UNCONDITIONAL INTERRUPTS 
19543 117742 012737 137062 000100 3+: MOV #LKSINT , 84100 
9544 117750 012737 000 000102 MOV $340, a¢102 
19545 117756 010000 177520 BIS #B1T12,BCSR 
i 117764 BR S$ 
19547 117766 042737 010000 177520 4¢$ BIC #B1T12,BCSR 
1 117774 005037 722 5$ CLR K 
19549 120000 012702 077777 MOV #77777 ,R2 

120004 10642 MTPS #240 
19551 120010 022737 002722 6$ CMP #3, LKSFL 

120016 001401 BEQ 73 
19553 120020 077205 SOB R2,6$ 
9554 120022 7 7$ MTPS #340 

120026 022702 077700 CMP #77700 ,R2 
19556 120032 1 BGE 8$ 
19557 120034 5 ERROR +63 

120036 022737 000003 002722 8$ CMP #3, LKSFL 
19559 120044 BGE 

120046 012737 000003 001124 MOV #3, $GDDAT 
19561 120054 ERROR +64 

120056 032737 010000 177520 9% BIT #81T12,BCSR 
1 120064 BNE 

120066 032737 000100 000052 BIT #B1T06, a#52 
19565 120074 BEQ 1 

120076 032737 010000 177520 BIT #81T12,BCSR 
19567 120104 001010 BNE 

120106 032737 000100 177546 10$: ®BIT #B1T06,LKS 
19569 120114 001001 BNE 11$ 
19570 120116 104067 +67 
19571 120120 042737 000100 177546 11$: BIC #BIT06,LKS 

MOV SAVBR ,BCSR 


ieee 120126 013737 002730 177520 123: 


SEQ 0363 


;ERROR BCSR READ/WRITE BITS 


;SET UP od ati VECTOR 
:AT PRIORITY 
;FOR 1ST TIME. DISABLE LKS 


oe THE 2ND ‘4h ENABLE LKS 


33 I ERRUPTS. H 
;EXIT LOOP, IF SO 

SOTHERWISE, KEEP WAITING 
;RAISE PRIORITY TO 7 
INTERRUPTS HAPPEN TOO OFTEN? 


BRANCH 
READY LINE DOESN'T GO LOW 
sAT LEAST 3 INTERRUPTS HAPPENED? 


; DON’ T 

;SECOND TIME THRU THE LOOP? 
;IF NOT, IT 

;UFD 

‘IF NOT, 


BRANCH 
;IF UFD AND LKS DISABLED? 
;DON’T CHECK LKS 
fie gt! ENABLE LINE HOLD 1? 


SIF 
‘aeSRei3e DOESN'T SET LKS<6> 
DISABLE LKS INTERRUPTS 
;RESTORE BCSR 


i ET LTT 





B13 
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TEST ~- RESETTING LKS 


+ 
INN 


y. 
y. 
z. 
+4 
586 


ie tee 
+ 









> v¢ 


SSS528 Bese easy 


005737 


001057 
032737 


001404 
032737 
001447 


S338338 
VEVSOKE 


EEees 


whe 


= 


013737 
5 


ed aodepnd acl apn ae apne gel tent aed aed eh spud ge rd Sd rel ond ard oral ond oo ped eal edd oad ed eed eed eh ed TT 


eis 1 04273 
Shier ay a 
iit He Sis Se 
19619 i 36 ; : 000003 
i He Seis 

ites tees tae 

1 O8o737 000200 
1 120264 001001 

13636 120266 104070 

19627 120270 032737 000100 
1 120276 001401 

ie 120 104071 

19631 





177546 


177546 


_SBTTL TEST - RESETTING LKS 
3 * | 
“THIS TEST WILL PROVE THAT RESET INSTRUCTION SETS LKS<07> AND 
;CLEARS LKS<06>. 
;ROUTINE TEST 
IF UFD AND LKS IS DISABLED THEN 
_— EXIT TEST 
; 
. POINT LKS VECTOR 100 TO ERROR_LKS_ILLEGAL_INTERRUPT 
;. SYNCHRONIZE LKS BY WAITING FOR 3 PULSES 
3 LET LKS<06>=#1 
; CLEAR LKS (CLEARS LKS<07> 
; EXECUTE “RESET” 
; IF LKS<7> NE #1 OR LKS<6> NE #0 THEN 
. ERROR 
bs ENDIF 
. IF ILLEGAL_LINE_CLOCK_INTERRUPT NE 0 THEN 
;. , ERROR 
- ENDIF 
; ENDROUT INE 
Y 
;ROUTINE ERROR_LKS_ILLEGAL_INTERRUPT 
“i FLAG ILLEGAL_LINE CLOCK_INTERRUPT 
;RETURN 
EREERESSERESAERESESEAESSESEEAEERESEESEERESEEREREREREAEEESE RES SES ESS 
1$T41: SCOPE 
$PASS jEIRST PASS? 
BNE TST42 ;;IF NOT FIRST PASS, EXIT TEST 
BIT #BIT06, ;UFD ? 
BEQ 1$ ;IF NOT, BR 
BIT #B1T12, sLKS DISABLED? 
BEQ TST42 ;;IF DISABLED, EXIT TEST 
' 
; SYNCHRONISE WITH LINE TIME CLOCK BY WAITING FOR 3 INTERRUPTS 
is: MOV SAVBR SSAVE BC 
BIC #681T12,BCSR ;ENABLE LKS RE 
MOV @LKSINT , 84100 ;SET UP INTERRUPT VECTOR 
MOV $340, a¢1 ;AT PROIRITY 7 
BIS #81106 ,LKS ;SET INT T ENABLE BIT 
CLR LKSFL ;CLEAR INTERRUPTS FLAG 
MOV 877777 ,R2 ER TO WAIT FOR INTERRUPTS 
MTPS #240 ;LOWER PRIORITY TO 5 
24; CMP #3, LKSFL ;3 INTERRUPTS ? 
ore tCUR2 wt ET RtSE’ KEEP WAIT 
é 
3$; MIPS #340 ;RAISE PRIORITY TO 7 
RESET EXE RESET 
BIT @B1T07,LKS ;READY BIT SET? 
ERROR +70 RESET DOESN'T SET LKS<O7 
oa ; . 
43: BIT #81706 .LKS ob wad rellnT T ENABLE BIT CLEARED? 
ii Pi 
‘71 RESET DOESN'T CLEAR LKS 


SEQ 0364 


C13 
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TEST - LINE CLOCK INTERRUPTS 


SEQ 0365 


.SBTTL TEST - LINE CLOCK INTERRUPTS 
;LINE INTERRUPTS( # ) 
:BY SETTING TO 1 LKS<06>, THIS TEST WILL CHECK FOR INTERRUPTS 


FROM BEVENT LINE AND FROM KDJ11-B SOH7, 60HZ, 800HZ ON BOARD SIGNALS 
1 THE LATTER SIGNALS WILL BE ACCESSED BY SETTING BCSR<11-10>). 


DO FOR OFT tek ae oe FROR #0 TO #3 


WAIT FOR 10 INTERRUPTS FOR EACH CLOCK 
STORE ACTUAL NUMBER OF INTERRUPTS FOR EACH CLOCK 





LET INTERRUPT_FLAG=0 
oo NUMBER OF INTERRUPTS FOR EACH CLOCK 


'BCSR <11> <10> CLOCK SELECT BITS 1 AND 0 
; 0 0 EXTERNAL BEVENT LINE 

; 0 1 ON-BOARD 50 HZ 

; 1 0 ON-BOARD 60 

; 1 i ON-BOARD 800 HZ 

S ROUTINE TEST 

;IF UFD THEN 

Ke IF LKS DISABLED THEN 

$e EXIT TEST 

Ss ENDIF 

— SET FLAGS TO RUN ONLY WHAT SPECIFIED IN EAPROM 
~~ LET 100=ADDRESS OF LKS_INTERRUPT 

Se 

$6 

* 

3. 

"e 

, o 





‘ROUTINE LKS_ INTERRUPT 
“4 INCREMENT INTERRUPT_FLAG 
; RETURN 


me ee ee ee 


; THIS CODE ADDED FOR APT DEFAULT BREAK 
; PURPOSES-- TEST TIME LONGER THAN SOME APT BREAK INT 





TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; debug aid _ 
JMP 10$ ; yes skip this 
19674 99%: NOP 
BIT #B1T06, a¢52 ;UFD MODE? 
196 BEQ 4 NOT, GO DO THE TEST 
BIT $81T12,BCSR LKS IS DISABLED? 
19678 BNE TST43 ;;IF DISABLED, eitt TESTS 
CLR R2 CLEAR R2 TO SET FLAGS 
19680 BIS BCSR,R2 ACCORDING TO BCSR 
i BIC #171777 ,R2 ‘LEAVE ONLY BITS <11-10> 
3 
1368s ; SETUP DELAY VALUES FOR INTERRUPTS, IN UFD MODE ONLY FROM THE CLOCK SPECIFIED IN BCSR<11-10> 
: 
19685 120356 013737 177520 002730 i$: MOV BCSR, SAVBR ;STORE BCSR 
19686 120364 012737 137062 000100 MOV @LKSINT , 100 ;SET UP LKS VECTOR 
19687 120372 012737 000340 000102 MOV $340, 102 ;AT PRIORITY 7 
19688 120400 012705 120602 MOV STIMDEL ,RS ;POINTER TO DEL 





TEST 


D135 
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- LINE CLOCK INTERRUPTS 


000004 
177520 
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MOV $4,R4 
CLR BCSR 
BR 3$ 
177520 2%: ADD #2000, BCSR 
000052 3$: BIT #81706 9852 
MOV R2,BCSR 
4$: CLR LKSFL 
177546 BIS #B1T06,.LKS 
MOV #10 
S$: MOV #177777, R1 
MTPS #240 
6$ CMP LKSFL,R3 
BEQ 7$ 
SOB R1,6$ 
7$ MOV R1.(R5)+ 
000052 BIT #B1T06, 
BNE 10$ 
S08 R4,2$ 
; 
; CHECK THE DELAY VALUES FOR ALL CLOCKS 
; 
MTPS #340 
177546 BIC #B1T06,LKS 
MOV #TIMDEL ,R5 
CMP (R5),6(R5) 
BLO 8$ 
+64 
8$: TST CRS}« 
CMP (R5),2(R5) 
BLO 9$ 
ERROR +64 
9$: TST CRS )+ 
CMP CR5),2(R5) 
BLO 10§ 
177520 10%: MOV SAVBR ,BCSR 
177546 BIC #81706 ,.LKS 
BR TST43 :;EXIT TEST 


SEQ 0366 
;R4 IS THE COUNTER FOR ALL CLOCKS 

;D0 FOR BEVENT LINE INTERRUPTS 

;GO DO THE LOOP 

;SET UP FOR THE NEXT CLOCK LINE 

;UFD MODE 

;IF NOT, BRANCH 

;IN UFD. DO ONLY FOR SPECIFIED 

;CLEAR INTERRUPT FLAG 

;SET INT 


;NEW : 

:IF SO, EXIT WAIT LOOP 

;0T KEEP WAITING 

:STORE DELAY FOR EACH CLOCK 
;UFD MODE? 

-IF UFD, DON’T DO FOR ANY OTHER 
;ALL LINE CLOCKS DONE? 


;RAISE PRIORITY 
SABL 


 _esnticosansmenuaipmepninnnsiaiesterainmrssseenmnmtnepniets 
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TEST - MAINTENANCE REGISTER TEST 
19 .SBTTL TEST - MAINTENANCE REGISTER TEST 
19 ;MAINTENANCE REGISTER TEST : 
19734 ‘THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 
19735 ;7-4 TO BE 0010, 2-1 TO BE 10, AND READ BITS 10-08, 03, 00 
19736 — FUTURE USE. THOSE BITS SENT THE FOLLOWING SIGNALS: 
19737 ;MULTIPROCESSOR SLAVE, _— SYSTEM, FPA AVAILABLE, HALT/TRAP 
19738 ‘ OPTION AND AC POWER OKAY 
19739 ;ROUTINE TEST 
19740 “? IF MAINT. REG. BITS <7-4> NE 0010 OR <2-1> NE 10 THEN 
19741 Bi . ERROR 
19742 ; ENDIF 
19743 ; READ MAINT.REG. BITS <10-08,03,00> 
13748 - 
19746 KEREEEKERESRAEEREEAEEEESEEEEREEEEEEEEEEEEEEEEEKEEEEEEEEOEEOEEDEES 
120612 000004 4$143: SCOPE 
19747 120614 032737 174000 177750 BIT #174000 , MAIREG ;UNUSED BITS ALL ZEROS? 
19748 120622 001401 BEQ i$ A OK, BRANCH 
19749 120624 1041 ERROR +132 TNTENANCE REGISTER ERROR 
19750 120626 032737 000044 177750 1%: BIT $44 ,MAIREG a 2> SET ? 
19 120634 001001 BNE 2$ iTF SO, BRANCH 
19752 120636 104132 ERROR +132 MAINTENANCE R REGISTER ERROR 
1 120640 032737 000322 177750 2%: BIT #322 ,MAIREG <7, 6,4,1> CLEAR? 
19754 120646 001401 BEQ TST44 3;1F YES, BRANCH 
19 120650 104132 ERROR +132 











000004 
032737 
001406 
032737 
001402 
000137 


013701 


177524 
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- SERIAL LINE UNIT REGISTERS 


-SBTTL TEST SERIAL LINE UNIT REGISTERS 

;SERIAL LINE UNIT TEST(#) 

sBCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE PROG- 
;RAMMED TO CHECK THE LEVELS BY SETTING BIT<06> IN 
;RCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
:10 1 XCSR<02>. INE WILL BE 


THE L CLOCK INTERRUP 
;USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS, IF THE 
;PROGRAM HANGS IN THE LOOP BACK MODE. 


ROUTINE TEST 
‘IF UFD AND CONSOLE NOT PRESENT 

+s GO TO TEST 22 

; ENDIF 

:. IF BCR<07> EQ #0 THEN 

; suprr READ BCR<2-0> TO GET BAUD RATE 
+s LET 4-ADDRESS OF TIMEOUT, ROUTINE 

3 

“READ CSR, RA XCRR, NE #0 THEN 

. ERROR 

:. ENDIF 

; ENDROUTINE 


;ROUT INE TIMEOUT 
3. LET TIMEOUT_FLAG=#1 
ENDROUTINE 


ge seine 9 age aeaimaniamaaneadaenaemaia intimate 


#BIT06 , a#52 ;UFD MODE? 
BEQ ;IF NOT, GO DO TEST 
BIT #81T07,BCR ; IF UFD CONSOLE NOT PRESENT 
BEQ 1$ ;NOT TRUE, DO THE TEST 
JMP ;IF TRUE, SKIP ALL SLU TESTS 


; TRY TO ACCESS SLU REGISTERS 


’ 
i$: MOV ERRVEC,R1 ;SAVE TIMEOUT VECTOR 
MOV $3$ ,ERRVEC ;POINT ONE TO PROGRAM AREA 
MOV #340, ERRVEC+2 ;AT PRIORITY 7 
MOV @RCSR , R2 ;START ACCESSING WITH RCSR 
2$: TST (Re) ;ACCESS SLU REGIS 
BR 4$ ;IF NO TIMEOUT, 
3$: MOV R2, $BDDAT ;STORE ADORESS T QUT 
ERROR +7 ;TIMEOUT ACCESSING SLU REGISTER 
43: CHP @XBUF , (R2)+ iLAST REGISTER ACCESSED? 


BRANCH 
R1, ERRVEC TE STORE TIMEOUT VECTOR 


SEQ 0368 


G13 
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3€Q 0369 
TEST - XCSR BIT 7 
19809 _SBTTL TEST - XCSR BIT 7 
ioait ;CHECK THAT XCSR<O7> CAN BE O AND 1. 
; 

1981 :XCSR  <O7> TRANSMITTER READY 
19814 ;ROUTINE TEST 
19815 WAIT FOR XCSR<07>=#1 NO MORE THAN 200MSEC 
19816 . IF XCSR<O7> NE #1 THEN 
; i, ™ : _ ERROR 
19819 :. LET XtWUF=@NULL 
1 ;. WAIT FOR XCSR<07>=#1 
1 3. LET XBUF= 
1 :. IF XCSR<07> NE O THEN 
1982 "3 ERROR (READY DIDN'T GO LOW) 
19824 * ENDIF 
19825 ; ENDROUTINE 
iea5t : 5 EREREKREEESEARERAREESAEASESAEEEEEREREREAAEAEESRSEERAEEEERERERES ESSE 

120 TST45: SCOPE 
19828 120752 012701 001000 MOV #1000,R1 ;COUNTER FOR ABOUT 200MICROSEC. 
1 120756 122737 000001 001220 CMPB = @AP TENV,, $ENV IN APT MODE? 
19830 120764 001008 BNE 1$ ;NO, GO DO TEST 
19831 120766 737 001206 TST $PASS sFIRST PASS? 
19832 120772 0010 7 BNE TST46 ;;IF APT AND NOT FIRST PASS, EXIT TEST 
1 120774 105737 177564 1$: TSTB = XCSR sXCSR<7> READY 1? 
19834 1000 10040 BMI 2$ :IF SO, EXIT WAIT LOOP 
198 1002 077104 SOB Ri,1$ -IF NOT 1, CONTINUE WAITING 
19836 121004 105737 177564 2$: TSTB © XCSR ;XCSR<7>=1? 
1 121010 100401 BMI 3§ ;IF YES, BR 
19838 121012 10407 273 ;XxCSR<7> DOES NOT BECOME 1 
19839 121014 012737 000000 177566 3%: #NULL , XBUF :TRY TO TR T NULL CHARACTER 
1 121 105737 177564 TSTB  XCSR XCSR<7>=0 
19841 121026 100001 BPL =sCOTST46 ;:IF YES, EXIT TEST 
19642 121030 104073 ERROR +73 ;XMIT READY DIDN'T GO LOW 
1984 


i TK TT 


H13 
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TEST 


19901 


2 
121110 


l2ille 


l2 
121154 


105737 


060000 
177560 
177562 


000021 
060000 
177560 


- RCSR BIT 7 AND XCSR BIT 2 


001220 


177564 
177564 


177566 


SEQ 0370 


_SBTTL TEST - RCSR BIT 7 AND XCSR BIT 2 
s CHECK THAT RCSR<07> CAN BE 0 AND 1 AND THAT XCSR<02> WORKS PROPERLY. 
RCSR <O07> += RECEIVER DONE 
:XCSR <02> MAINTENANCE 
‘ROUTINE TEST 
; .CCHECK RCSR<07> AND XCSR<07>) 
:. WAIT FOR XCSR<07>=#1 
: LET XCSR<02>=#1 (LOOP BACK MODE) 
; LET XBUF=#1 
; WAIT FOR RCSR<07>=#1 NO MORE THAN 200MSEC 
: TF RCSR<O7> NE #1 THEN 
ERROR (RCSR<O7> DOES NOT BECOME 1 OR XCSR<02>D0ES NOT 
ENDIF 
: IF RBUF NE #125 THEN 
ERROR 
: ENDIF 
; IF RCSR<07> NE #0 THEN 
ERROR (RCSR<O7>D0ES NOT GO LOW) 
; © ENDIF 
o. LET XCSR<02>=#0 
; ENDROUI TNE 
KEKKKAKEAKESREKAKAARASEEKAACEKSEKARESAREKAEEEAAKEEKEEKESEEESEESESLESESERSE 
48146: SCOPE 
MOV #13,R ;COUNTER FOR ABOUT 200MICROSEC. 
CMPB RPTENV, $ENV ;RUNNING IN APT MODE? 
BNE ‘NO, GO DO TEST 
TST SPAS sFIRST PASS? 
BNE TST47 .;IF APT AND NOT FIRST PASS, EXIT TEST 
1$: TSTB = XCSR sXCSR<7> READY 1? 
BPL 1$ ‘IF , CONTINUE WAITING 
23: BIS #681702, XCSR L MODE 
BIT #81702, XCSR ‘GOT SET OK? 
BNE ;IF YES, BRANCH 
CLR XCSR ;RESET TO PRINT ERROR 
#114 ‘XCSR<2> DOES NOT BECOME 1 
BR TST47 ;;EXIT TEST 
; STALL FOR A WHILE IN CASE XCSR<2> CAUSES RCSR<7> TO BE 1 
3s: MOV «#60000, R1 SSTALL IN CASE XCSR<2> SETS READY 
4s: 1sTB RCSR ‘IF TF RECEIVER READY SET? 
SOB R1,4$ TT eRuise STAY FOR A WHILE 
BR 6$ ;IF NOT RE READY, 
S$: TST RBUF ;READ RBUF 
; 
; TRANSMIT XON AND CHECK RCSR<7> 
és: MOV #21. XBUF TRANSMIT A CHARACTER 
7$ TTB RCSR ats RCSA z READY 1 1? 
: ; </> 
BMI B$ EXIT WAIT LOOP 
SOB R1,7$ OT HERLISE CONTINUE WAITING 








<n 


TEST 
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- RCSR BIT 7 AND XCSR BIT 2 


1 121156 


105737 
feeee 


4 
013737 
; 


406 
012737 


177560 
177564 


177562 
000021 


001126 
001126 


001124 


177564 


8$: 


9$: 


10$: 


11$: 


TSTB 


#B1T02,XCSR 


ie 8 


BRANCH 
‘RESET XCSR< 2> 
;RECEIVER READY DIDN'T COME UP 
;STORE RECEIVED DATA 
;DATA RECEIVED OK? 
;IF YES, 


;IF ZERO 
‘RESET 10 ENABLE SLU 
;RCSR<0O7><>0 AFTER READING RBUF 
;DISABLE LOOP BACK MODE 


SEQ 0371 


ae 
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SEQ 0372 


TEST - RESET AND XCSR<2!0> 


19920 -SBTTL TEST - RESET AND XCSR<2!0> 
CHECK THAT RESET CLEARS XCSR<O!2>. 


19921 ; 

1992 ‘ROUTINE TEST 

1992 (CHECK RCSR<O7> AND XCSR<O7> AND RESET) 

19924 * LET XCSR<02,00>=61 (LOOP BACK MODE) 

19925 EXECUTE “RE 

19926 IF XCSR<02!00> NE #0 THEN 

19927 ERROR 

19928 ENDIF 

13585 ; LET XCSR<02>=#0 

19981 - 

19932 5 REAR AEAAERAEEREEAEREEEREEEEEEEEEEE EE EEE EE ORES EEE EE EE EEE EEE ES 
121246 000004 TST47: 

19933 121250 005737 001206 TST —«$PASS FIRST PASS? 

19934 121254 001011 BNE —«sTSTS0 IF NOT FIRST PASS, EXIT TEST 

19985 121256 052737 000005 17564 18: BIS &B1T02!BIT00,XCSR SLOOP BACK MODE 

19937 ; EXECUTE RESET AND VALIDATE THAT XCSR<7,2> BECOMES <1,0> 

19939 121264 000005 RESET SEXECUTE RESET 

19940 121266 032737 000005 177564 BIT @BIT02!BITOO,XCSR ‘XCSR<2,0> CLEAR? 

19941 121274 001401 BEQ —«TSTSO s:IF YES, BRANCH’ 

19942 121276 106102 ERROR +102 ;XCSR<2,0> NOT CLEARED ON RESET 

19944 


K135 
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TEST - RESET AND INTERRUPT ENABLE BITS 


SEQ 0373 


.SBTTL TEST RESET AND INTERRUPT ENABLE BITS 
;CHECK THAT INTERRUPT S DON'T HAPPEN AT PRIORITY 4 AND THAT RESET 
‘CLEARS XCSR<06> AND RCSR<06>. 


;RCSR <06> RECEIVER INTERRUPT ENABLE 
iXCSR <06> TRANSMITTER INTERRUPT ENABLE 


;ROUT INE TEST 
LET 60=#ADDRESS_OF _ILLEGAL_INTERRUPT_XRCSR 


i 
64=SADDRESS OF ILLEGAL INTERRUPT -XRCSR 
SET PRIORITY 10-4 
LET XCSR<02>=41 (LOOPBACK MODE) 
; LET XCSR<06>=41 (ENABLE TRANSMIT INTERRUPTS) 
; LET RCSR<06>=41 CENABLE RECEIVE INTERRUPTS) 
WAIT FOR XCSR<O7>=@1 (READY TO TRANSMIT 
LET XBUF=@NULL (SEND A. CHARACTER) 
+ WAIT FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC) 
TF XCSR<O6> NE 60 OR RCSR<O6> NE 80 OR XRCSR NE 0 THEN 
i ENDIF 
S RESTORE PRIORITY TO NORMAL 
: ENDROUTINE 
; 
‘ROUTINE ILLEGAL_INTERRUPT_XRCSR 
“i INCREMENT XRCSR 
’ ENDROUTINE 
+s SESESSSESESESEEESEESSESEEEEEESESEEEEKESEEOSEEEOEESEEEEEEEEEEEEEEESESEEES 
1150: SCOPE 
001206 TST _—«-$PASS sFIRST PASS? 
BNE -s S$ SKIP RESET PART OF THE TEST 


CHECK THAT INTERRUPTS ENABLE BITS FOR RECEIVER AND TRASMITTER OF SLU 
ARE CLEARED BY RESET 


;SET INTERRUPT ENABLE BIT IN XCSR 
;GOT SET OK? 


‘IF YES, BRANCH 
‘IN BIT 6 OF XCSR 
:SET INTERRUPT ENABLE BIT IN RCSR 
; | BRANCH 













000100 177560 23%: 
77560 








3$ : IF 
ERROR +110 ; IN 6 OF RSCR 
3$: RESET ; INLINE BUS RESET 

000100 177564 BIT #81106, XCSP :XMIT INTERRUPT ENABLE BIT CLEARED? 

BEQ 4$ ;IF CLEARED 

ERROR +102 ; T ENABLE NOT CLEARED ON RESET 
000100 177560 4$: BIT 9B81T06 ,RCSR ;RECEIVE INTERRUPT ENBLE CLEARED? 

BEQ S$ VIF CLEARED 

ERROR +102 SINTERRUPT ENABLE NOT CLEARED ON RESET 


CHECK THAT TRANSMIT INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN 5 


121444 000064 $$: MOV 99$,0064 :POINT XMIT VECTOR TO PROGRAM AREA 
000340 000066 MOV «- #340. 8866 TAT PRIORITY 
50001 121412 052737 000100 177564 BIS #B1T06,XCSR AR OEARUPT ENABLE BIT IN XCSR 
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TEST - RESET AND INTERRUPT ENABLE BITS 










12 
121514 


le 
121610 


012702 
000402 
162702 

06402 
ofFsor 


000340 
000040 
000026 


177560 


177562 


177564 


177564 


177560 


MOV #340 ,R2 
BR 7$ 
6$: SUB #40 ,R2 
7$: MTPS R2 
MOV #26 ,R3 
8$: SOB R3,8$ 
BR 10$ 
9$: ERROR +101 
TST (SP )- 
TST (SP )- 
10$: CMP @ 
BNE 6$ 
MTPS #340 
BIC #B1IT06, XCSR 
; CHECK 
MOV #15$ ,8860 
MOV $340 , 8062 
11$: TSTB 
BPL 
MOV 
BIS 
MOV 
BR 
12$: SUB 
13%: BIS 
MTPS 
MOV 
14%: S08 
15s: BIC 
ERROR 
TST 
TST 
16$: CMP 
BNE 
+ 
; CLEAN UP BEFORE NEXT TEST 
MTPS $340 
BIC $BITO6 ,RCSR 
MOV 300 ,.R2 
17$: TSTB 
BMI 18$ 
S08 R2,17$ 
183: TST 


SEQ 0374 


;SET PRIORITY TO 7 
CASE 


;IF INTERRUPT ‘T HAPPENED, BRANCH 
INTERRUPTS HAPPEN AT WRONG PRIORITY 
;CLEAN UP THE STACK 
;AT PRIORITY 4? 

NOT LAST One CONTA 
:RESTORE PRIORITY 
;CLEAR INTERRUPT ENABLE BIT 


THAT RECEIVE INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN 3 










#681TO2 , XCSR 


;POINT eee VECTOR TO PROGRAM AREA 
;AT PRIORITY 
; TRANSMITTER READY 

WAIT 





BACK MODE 
: S HAPPEN AT WRONG PRIORITY 
;CLEAN UP THE STACK 


;AT PRIORITY 4? 
;IF NOT LAST ONE, CONTINUE 


;RESTORE PRIORITY 7 
INTERRUPT ENABLE BIT 





;CLEAR LOOP BACK MODE 


TI EE CLL LLL LLL LLL LLL LN 





M135 
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TEST - INTERRUPT PRIORITY FOR SLU 

.SBTTL ay 
sRESR06> AND XCSR<06 

: ROUTINE TEST 

LET 64=- 

LET XCSR<02>=#1 
SET PRIORITY TO #3 


WAIT FOR XINTERRUPT=#3 
IF XCSR<O7> EQ #1 THEN 
ERROR 


ENDIF 

WAIT FOR RINTERRUPT=#3 

IF RCSR<O7> EQ #0 THEN 
ERROR 


IF 
LET XCSR<02>=#0 
al PRIORITY TO NORMAL 











001220 @APTENV , $ENV 
BNE —«- 1008 
7ST —« PASS 
BNE « TSTS52 
GET READY FOR INTERRUPTS 
000060 i00$: MoV 
000064 MOV 
000062 MOV 
000066 MOV 
177564 BIS 
MOV 
1$: TSTB 
BMI sg 
SOB 4SCtséRA AS 
23: TST RBUF 
' SET PRIORITIES AND XMIT INTERRUPTS 
MOV #140,R2 
3$: SUB —s- 840, Re 
43: MIPS. Re 








- INTERRUPT PRIORITY FOR SL 
;CHECK THAT INTERRUPT : hapten AT PRIORITY. 3 AND THAT THEY CLEAR 


LET 60=@ADDRESS_OF _LEG*%_ _RINTERRUPT 
SS_OF LEGAL _XINTERRUPT 


a a eee etal ann en eon eenmenmmem 


;RUNNING IN APT MODE? 


etal 
;;IF APT AND NOT FIRST PASS, EXIT TEST 


;STORE RECEIVER VECTOR 
; STORE as VECTOR 


SSET LOOP BACK 
‘ESET FOR — CHARACTERS 
CEIVER READY? 


‘IF YES, BRANCH 
;OTHERWISE, WAIT JUST IN CASE 


FREAD RE RECEIVER 


;START WITH PRIORITY 3 
;TRY TO DO IT 


L T 
STRY TO DO AT LOWER PRIORITY 


SEQ 0375 


re LLL A 


[| 


N13 
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TEST - INTERRUPT PRIORITY FOR SLU 
052737 000100 177564 BIS #B1T06, XCSR ;LOOP BACK & INTERRUPT ENABLE 
20109 121764 012703 001000 MOV #1000, R3 ;WAIT DELAY FOR INTERRUPTS 
20110 121770 077301 S$: SOB R3,5$ : ;WAIT FOR XMIT INTERRUPTS 
20111 121772 042737 000004 177564 BIC #81702, XCSR ;CLEAR LOOP BACK BIT 
20112 122000 104107 +107 ;NO ERRUPT 
20115 122002 BR TSTS2 ;;IF ERROR, EXIT TEST 
20115 ; TRANSMITTER INTERRUPT HERE 
; 
20117 122004 005726 6$: TST (SP)+ ;CLEAN UP STACK 
20118 122006 005726 TST (SP )+ 
20119 122010 042737 000100 177564 BIC #B1T06, XCSR ;CLEAR INTERRUPT ENABLE 
20120 122016 012737 177566 MOV #NULL , XBUF sTR T NULL 
20121 052737 000100 177560 BIS #81T06,RCSR ;SET RECEIVE INT 
20122 2032 1 MIPS  R2 ;SET NEXT PRIORITY 
2012 34 012703 100000 MOV #100000, R3 ;WAIT DELAY FOR INTERRUPTS 
20124 122040 077301 7$: SOB R3,7$ ;WAIT FOR RECEIVE INTERUPTS 
20125 122042 042737 000004 177564 BIC #B1T02,XCSR ;CLEAR LOOP BACK MODE BIT 
20126 122050 104107 ERROR +107 CEIVE INT 
20127 122052 BR 9 ;DON'T TOUCH STACK 
20128 122054 106427 000340 MTPS #340 ;RAISE PRIORITY 
' 
20 30 ; RECEIVER INTERRUPT HERE 
> 
132 122060 005726 8$: TST (SP - ;CLEAN UP STACK 
133 122062 005726 TST (SP )+ 
20134 12 005737 177562 TST RBUF ;READ RECEIVER BUFFER 
5 By * 005702 9$: TST R2 ;PRIORITY 0 
: 122072 001 BNE 3$ ;IF NOT CONTINUE 
122074 106427 000340 MTPS #340 RAISE PRIORITY TO 7 
20138 122 042737 000100 177560 BIC #B1T06,RCSR ;CLEAR RECEIVE INTER. ENABLE 
20139 9 155106 177564 CLR XCSR CLE 


a a SK 


B14 
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TEST 


a 
20181 ig2ize 


tee 


- BREAK CONDITION 


-SBTTL TEST - BREAK CONDITION 
;CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 


T FOR RCSR<O7>=#1 
IF RBUF<15!13!11> NE #1 THEN 
ERROR 


ENDIF 

LET XCSR<00>=0 
IF XCSR<O0> NE 
: ERROR 


ENDIF 
WAIT FOR XCSR<07>=41 
LET XBUF=@NULL (SEND 
WAIT FOR RCSR<07>=#1 
IF RBUF<15!13!11> NE #0 THEN 
. ERROR 


ENDIF 
LET XCSR<00>=41 
EXE . 


CUTE “RESET 
IF XCSR<00> NE #0 THEN 
ERROR 


ENDIF 
, LET XCSR<02>=40 
ENDROUTINE 


#0 THEN 
CXCSR<00> DOES NOT GO LOW) 


SEQ 0377 


CERROR, FRAMING ERROR, RECEIVE BREAK NE 1) 


NULL CHARACTER TO SEE ERROR CLEARED) 


SS 


DECIDE WHETHER TO RUN THIS TEST 


BIT @B1T07,ae52 
BNE TS153 
TST $PASS 
BNE TST53 
i 
; SEND BREAK AND CHECK ERROR BITS IN RBUF 
is: BIS  #BITO2,xCsR 
MOV BCSR, SAVBR 
BIC #81T09,BCSR 
BIS #B1T00,XCSR 
BIT #B1T00,XCSR 
BNE 2$ 
ERROR +110 
2$: MOV $100,R1 
43: TSTB = RCSR 
BMI 5$ 
S08 R1,4$ 


; UFO 


MODE ? 
;3IN UFD MODE, EXIT TEST 
;FIRST PASS? 
;;1F APT AND NOT FIRST PASS, EXIT TEST 


; TRANSMIT IN LOOP BACK 


;IF YES, BRANCH 
;WRITING 1 TO XCSR<O> 
;STALL DELAY 

;RE 
;1F ’ BR 

;WAIT JUST IN CASE OF A CHARACTER 





TEST 


LG 
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20198 122210 
20199 122214 
20200 


20201 122226 
50008 122234 
20204 


20210 122266 
20211 122274 
20212 122302 
20213 122304 
20214 122312 
ooSi2 122314 


20229 122372 
20230 122374 
20231 


20232 


- BREAK CONDITION 


013737 
105737 


100375 
fe U 


177562 
000001 
001000 
177560 


177562 
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177564 


001126 
001126 


177564 
177564 
177564 
177564 


177520 


177566 


001126 
001126 
177564 


177564 


5$: 


6$: 
7$: 


8$: 


12$: 


TST RBUF 
BIS #BITOO,XCSR 
MOV #1000 ,R1 
S08 R1,6$ 
TSTB RCSR 
BPL 7$ 
MOV RBUF , $BDDAT 
CMP #B1T15!B1IT13!BIT11, $BDDAT 
BEQ 8$ 
BIC #BITO2,XCSR 
ERR +105 
BR TSTS3 ;;EXIT 
BIC #BITOO,XCSR 
BIT #BITOO,XCSR 
BEQ 9$ 
BIC #BITO2,XCSR 
+110 
BR TST53 ;;EXIT 
THAT BREAK CONDITION IS CLEARED 
MOV SAVBR ,BCSR 
TSTB XCSR 
BPL 10$ 
MOV #177, XBUF 
TSTB RCSR 
BPL i$ 
MOV RBUF , $BDDAT 
orn ee 
BIC #BITO2,XCSR 
+106 
BIC #BITO2,XCSR 


;READ A CHARACTER 
; TRANSMIT BREAK 
i ANOTHER DELAY TO GET BREAK 
;WAIT A WHILE 
;RECEIVER READY? 
;IF NOT, WAIT 
;STORE WHATEVER RECEIVED 
sALL ERROR BITS SET? 
S, BRANCH 
‘RESET TO ENABLE SLU 
:BREAK DOES NOT CAUSE ERRORS 
;CLEAR TRANSMIT BREAK 
;GOT CLEARED OK? 
:IF YES 
;RESET TO ENABLE SLU 
;ERROR WRITING 0 TO XCSR<O> 


;RESTORE BCSR 

;XMIT age 

;IF NOT, 

s TRY TO TRANSMIT DELETE 
CEIVER READY 


IF YES 
;RESET TO 


ENABLE SLU 
;BREAK NOT CLEARED ON NEXT CHARACTER 
CK MODE 


;CLEAR LOOP BA 


SEQ 0378 


on rr rrr ee —————————OOOe—n—n 


cS SK 
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TEST 

20234 

20235 

20236 

20237 

20238 

20239 

20240 

20241 

20242 

20243 

20244 

20245 

20246 

20247 

20248 

20249 

20250 

20251 

20252 

20253 

20254 

20255 

20256 

20257 

20258 

20259 

20260 

20261 

20262 : 

20263 122404 

20264 l2 

20265 122414 

20266 12 

20267 

20268 122430 

20269 122434 

po A 36 

soate 122450 
122452 

20274 122456 

75 122460 

20276 122466 

20277 122472 

20278 122474 

20279 122502 

20280 122510 

20281 122516 

20283 129506 
122526 

20284 122530 

20285 122536 

20286 122540 

20287 


- OVERRUN CONDITION 


$EQ 0379 
_SBTTL TEST - OVERRUN CONDITION 
;CHECK OVERRUN CONDITION | 
‘RCSR <14> OVERRUN ERROR 
;ROUTINE TEST 
:. LET XCSR<02>=#1 (LOOPBACK MODE) 
:. WAIT FOR XCSR<07>=#1 
;. LET XBUF=#252 
- WAIT FOR XCSR<07>=#1 
;. LET XBUF=#125 (SEND THE 2ND W/O READING THE 1ST CHARACTER) 
s WAIT FOR RCSR<07>=¢ 
~* STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER 
. IF LOW BYTE OF RBUF NE #125 THEN 
® nial E (1ST CHARACTER WASN'T OVERRUN) 
a. IF RBUF<15!14> NE #1 THEN 
:. ERROR (NO OVERRUN BIT SET) 
Se ENDIF 
. WAIT FOR XCSR<07>=#1 
:. LET XBUF=4@NULL 
:. WAIT FOR RCSR<07>=#1 
:. IF RBUF<15!14> NE #0 THEN 
+ rise ERROR (WASN’T CLEARED ON THE NEXT CHARACTER RECEIVED) 
— LET XCSR<02>=#0 
; ENDROUT INE 
© KKAEKEREAAAKSERAEKAKAAERASESEAKEAAEAKAECASEAEKALCKARERAKAEKSESASESSESSE SESE 
48153: SCOPE 
CMPB. = @APTENV, $ENV :RUNNING IN APT MODE? 
BNE 100$ ‘NO, GO DO TEST 
TST $PASS sFIRST PASS? 
BNE TST54 ,;IF APT AND NOT FIRST PASS, EXIT TEST 
100$: BIS #81702, XCSR ;SET LOOP BACK MODE 
1$: TS18 © XCSR sREADY TO TRANSMIT? 
BPL 1$ ;IF NOT, WAIT 
MOV $21, XBUF : TRANSMIT A CHARACTER 
2$: TSTB ~—s RCS ;RECEIVE READY? 
BPL 2% IF NOT T 
3$;: TSTB ~=—-_- XCSR sREADY TO TRANSMIT? 
BPL 3$ T 
MOV #177, XBUF T Tp ANoniT THE 2ND CHARACTER 
MOV #175000 ,R3 :STALL FOR THE 2ND CHARACTER $$$ 
4$: SOB 3,45 ;WAIT A WHILE 
MOV RBUF , $BDDAT STORE RECEIVED DATA 
MOV #140177, $GDDAT ‘EXPETED PATTERN 
CMPB «#177, $BDDAT ;2ND CHARACTER RECEIVED? 
Bre 4s aBITOZ.XCSR Te ee TO ENABLE SLU 
’ ; 
ERROR + ;2ND CHARACTER DIDN'T OVERRUN 1ST 
S$: CMPB  0s-s« @BIT7!BIT6, $BDDAT+1 BITS SET? 
oR 8 OSESR Te ser tO OENABLE. SLU 
+112 SOVERRUN DOES NOT SET ERRORS BITS 
BR TST54 ;;EXIT 





E14 
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TEST - OVERRUN CONDITION 


122550 


mn 


122570 
122572 
20298 122600 


122602 
20300 122610 
20301 122612 


50808 122620 


eR PEEEE 
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177566 


177562 
177564 
177564 


SEQ 0380 


; SEND NEXT CHARACTER TO CLEAR OVERRUN CONDITIONS 


; 
6$: 


7$: 


8$: 


SLEND: 


TSTB 
BPL 


MOV 
TSTB 
BPL 


BIT 
BEQ 
BIC 
BIC 


XCSR 
6$ 


#NULL , XBUF 
RCSR 


7$ 
 _hltaeaiataaeaal 
eo 
#BITO2, XCSR 


; TRANSMITTER READY? 
4 NOT 


SLU 
; NOT CLEARED ON NEXT CHAR. 
;CLEAR LOOP BACK MODE BIT 


;LAST SLU TEST 


a 


TEST 


F14 
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- LED’S ON 


000004 
177777 


-SBTTL TEST - LED’S ON 
;LED‘S ON 


;THIS TEST oe ee BDR TO CONTAIN A ROTATING PATTERN 


;DISPLAYED IN 
‘ROUTINE TEST 
. WHILE A KEY NOT RECEIVED FROM KEYBOARD DO 
. STALL ALLOWING TIME TO SEE PATTERN 
+ ' ROTATE LEFT TO LIGHT UP NEXT LED'S 
3. ENDDO 
; ENDROUTINE 
. 5 RRKSRAEAASESESEERSESESESAEEKAEEAEREEERAKEREAEEREESESESESEEESSE EEE ES 
TST54: SCOPE 
BIS #1000,BCSR ;ENABLE HOB FOR APT 
CLR ‘FLAG IN NO INTERRRUPT MODE 
BIT #B1T00, a#52 ;IF RUNNING IN CHAIN MODE 
BEQ i$ :SKIP PRINTOUTS 
TST $PASS :1ST PASS? 
BNE ;IF NOT, SKIP PRINTOUTS 
CMPB = BAP TENV,, $ENV ; APT ? 
BEQ $ :YES, SKIP PRINTOUT’S 
COM ;CLEAR FLAG IN INTERRUPT MODE 
TYPE ,$CRLF 
TYPE ,LEDS ;IDENTIFY THE TEST 
MOV #5$, 0860 sRECEIVE SLU VECTOR 
MOV 340, 0862 ;AT PRIORITY 7 
BIS #B1T06 ,RCSR ;ENABLE INT 
MIPS #140 sLOWER PRIORITY 
1$: MOV #6 ,R4 FOR EACH LOOP 
MOV #76,R1 ‘START WITH 1 
2$: MOVB  R1.BDR STURN OFF FIRST LED 
MOV R3 ;STALL DELAY 
3$: MOV #177777 ,R2 ;STALL DELAY 
4$: SOB 43 ;WAIT A WHILE 
SOB R3,3$ ;WAIT A WHILE 
SEC ; CARRY 
ROL Ri ;GET ANOTHER LED 
SOB R4,2$ :D0 A FEW TIMES 
TST RS IN INTERACTIVE MODE? 
BEQ 63 ‘IF NOT, EXIT 
TYPE » $BELL ; 
BR is sREPEAT PATTERN 
S$: TST ;READ BUFFER 
ADD $4, ;ADJUST STACK 
6$: MOVB § #377,B80R ;NO 
BIC #1000 ,BCSR ;DISABLE HOB FOR APT 
BR TSTS5 ;;EXIT TEST 
LEDS: .ASCII <12><15>/THIS IS A TEST FOR ON-BOARD LED’ S/<12><15> 


SEQ 0361 
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TEST - LED’S ON 


SEQ 0382 


1 1 122 1 
153084 114 105 104 
123057 047 123 012 
1gaees 015 
20354 12 124 131 120 .ASCIZ /TYPE ANY CHARACTER ON A KEYBOARD TO CONTINUE/<12><15> 
le 105 040 101 
123071 116 131 
74 103 110 101 
77 122 101 103 
tte. 124 105 
31 040 117 116 
ests 040 101 
11 113 05 131 
123116 102 117 101 
123121 122 104 
; 124 117 
127 103 117 116 
123132 124 111 116 
123135 125 1 012 
123140 015 000 
20355 . EVEN 
20356 


i a SK 


H14 
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TEST - MEMORY MAPPING 
2C358 -SBTTL TEST MEMORY MAPPING 
Y MAPPING 


SEQ 0383 








20359 ; MEMORY 
360 ‘THIS TEST WILL AUTOSIZE MEMORY IN 2K BYTES. EVERY PAGE WILL BE 
“CHECKED FOR WHAT TYPE IT IS: Q@-BUS, UNIBUS OR PMI BUS MEMORY BY 
;SEEING HOW IT CAN BE CACHED. 
;ROUTINE TEST 
;. LET 4=ADDRESS OF NON-EXISTENT_MEMORY 
;. IF KMCR<05-00> NE #1 THEN CNoT ALL UNIBUS MEMORY) 
3. TURN ON MMU AND REMAP THE PROGRAM AREA 
Be 
i. - DO FOR KDPARO FROM #0 TO #177600 
* DO FOR Ri FROM #0 TO #20000 BY #4000 
¥ IF ABORT NON-EXISTENT_MEMORY NE 1 
. MEMORY EXISTS” 
- ‘ READ (R1)+ 
“ : RE AUIT HESS EQ 2.HITS THEN 
. ‘ PMI MEMORY 
“ss ‘ ELSE 
:. IF HIT/MISS EQ HIT THEN 
:. ; Q-BUS MEMORY 
Ba " ELSE 
. ERROR 
. ENDIF 
e. : ‘ ENDIF 
» ENDIF 
. LET ABORT_NON-EXISTENT_MEMORY =#0 
. ’ ENDDO 
+ UNTILL ABORT_NON-EXISTANT_MEMORY EQ #1 
;. ENDIF 
3 
20 ; ENDROUT INE 
H 
20 ;ROUTINE NON-EXISTENT_MEMORY 
20 :. LET ABORT_NON-EXISTENT_MEMORY=#1 
20395 3. 
20396 ; ENDROUT INE 
pate sdd SREKESESKESEKEASSESASEREREKASAEKASERESSESESESEESEREEESESESESEESEEAETEEEES 
123349 8155: SCOPE 
20399 1231 O3o7s7 000001 000052 BIT #B1T00, ae52 ;CHAIN MODE? 
20400 1231 001561 BEQ TSTS6 ;:IF SO, EXIT TEST 
20401 1231 737 001206 TST $PASS sFIRST PASS? 
20402 123160 001156 BNE TST56 ;;IF APT AND NOT FIRST PASS, EXIT TEST 
123162 122737 000001 001220 CMPB  =«- @AP TENV, $ENV et ? 
20404 123170 001552 BEQ TST56 ::YES, SKIP PRINTOUT'S 
; 
20406 ; SETUP ALL REGISTERS FOR MAPPING 
2040 é 
20408 123172 012737 000400 177746 MOV #400,CCR ;FLUSH THE CACHE 
20409 123200 01 000004 ERRVEC,R4 ;STORE TIMEOUT VECTOR 
20410 12 012737 123354 000004 MOV $7$ SSERRVEC ;POINT TO PROGRAM AREA 
20411 123212 012737 000340 000006 MOV $340, ERRVEC+2 AT PRIORITY 4 
20412 004737 136574 JSR PC, INI TMM 
20413 123224 005037 172354 CLR KIPARG ‘USED FOR MAPPING MEMORY 
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TEST - MEMORY 


20414 123230 
20415 123232 
20416 123234 
20417 123240 

123246 


es 


SEECEAREnE® 


MAPPING 


177572 
000020 


000200 
140000 
003776 
001000 
177752 
001000 


154000 
177600 


000004 
177572 
000020 


123434 


123464 


MACRO VOS.03 Friday 28-Mar-86 13:30 Page 56-1 


172516 
172354 


177520 
114150 
177520 
114150 


172354 


172516 


CLR R2 
CLR R3 
INC MMRO 
BIS #81704, MMR3 
BR 2$ 
; 
; TRY TO MAP ALL PAGES 
it: ADD $200 , KIPAR6 
2$: MOV #140000 ,R1 
BR 4$ 
3$: ADD $3776.R1 
4$: TST Ri)+ 
BIC #1000,BCSR 
TST (Ri) 
MOV HITMIS,RECDAT 
BIS #1000, BCSR 
BIT #B1T02,RECDAT 
BEQ S$ 
INC R2 
BR 6$ 
5$: INC ws 
6$: CHP #154000,R1 
CMP #177600 , KIPAR6 
BNE i$ 
BR 8$ 
; MAPPING IS DONE, FIND OUT HOW MANY PAGES WERE 
7$: TST (SP)+ 
8$ OR ERRVEC 
CLR MMRO 
BIC #BIT04,MMR3 
TST R2 
BEQ 9$ 
ASL R2 
MOV R2,-CSP) 
TYPDS 
TYPE MEMK 
9$: TST R3 
BEQ 10$ 
ASL R3 
MOV R3,-(SP) 
TYPDS 
TYPE  ,MEMQ 
10$: 
BR TST56 ; ;EXIT TEST 
MEMK: .ASCIZ /K BYTES OF PMI MEMORY/<12><15> 


SEQ 0384 
;CLEAR PAGE COUNT FOR PMI 
;CLEAR PAGE COUNT FOR QBUS 
;ENABLE MEMORY MANGEMENT 
;ENABLE 22 BITS 
GO ACCESS 


; INCREMENT BY 4K WORDS 
; ACCESS THRU KIPAR6 
;START DOING 1 
; INCREMENT BY 1K WORDS 
sACCESS 1ST LOCATION 
; E HALT ON BRE 
;ACCESS 2ND LOCATION 
;STORE REGISTER 
E HALT ON BREAK 
sLAST (RL) DHIT? sony 
INCREFENT 1K 1K COUNT FOR PMI 
CONI TNUE 


COUNT FOR QBUS MEM. 
;LAST IN 4K PAGE? 
T, BRANCH 


;IF NO 

:2M BOUNDARY? 

;IF NOT, BRANCH 

;IF 2M, DON’T TOUCH STACK 
THERE 

;ADJUST STACK 

;RESTORE ERROR VECTOR 

:D MEMORY 


DISABLE 22 BITS 





J14 
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SEQ 0385 
TEST - MEMORY MAPPING 

123461 012 015 000 
20464 123464 113 040 102 MEMQ: .ASCIZ /K BYTES OF Q-BUS MEMORY/<12><15> 

123467 131 124 105 

123472 123 040 117 

123475 106 040 121 

123500 055 102 125 

123503 123 040 115 

123506 105 115 117 

123511 122 131 012 

123514 015 
20465 EVEN 
20466 
20467 _SBTTL WRONG PARITY ABORT TEST 
20468 :WRONG PARITY ABORT 
20469 :THIS TEST VERIFIES ABORT TO 114 USING PARITY OR ECC MEMORY CSR. 
20470 :IF MORE THEN 1 CSR PRESENT, ALL OF THEM WILL BE WRITTEN AT THE 
20471 ;SAME TIME. 
2047 ; 
2047 ;ROUTINE TEST 
20474 * SIZE FOR ALL POSSIBLE MEMORY CSR’S 
20475 ; STORE UP TO 16 CSR STARTING FROM TEMP 
20476 : WRITE ALL WITH WRONG PARITY 
20477 ; WRITE TO 0 
20478 ~“e READ IT BACK 
20479 : IF NO ABORT TO 114 THEN 
20480 ; ERROR IN PARITY ABORT LOGIC 
20481 - ENDIF 
20482 . RESTORE CSR'S 
20483 ; ENDROUT INE 
20485 5 RREREREEEEAEESEESE EEE EERE EEEEESEERESEEEEESESSEEEEESEEEESSESEEEES 

123516 000004 TST5S6: SCOPE 
20486 ; 
20487 ; FIND OUT ALL POSSIBLE MEMORY CSR LOCATIONS UP TO 16 
$0409 123520 013701 MOV ERRVEC RL ;STORE TIMEOUT VECTOR 
20490 123524 012737 123562 000004 MOV $ ERRVEC ;POINT NEW TO PROGRAM 
20491 123532 012737 000340 000006 MOV JERRVEC+2 ;AT PRIORITY 7 
20492 123540 005004 CLR ;COUNT FOR CSR'S 
20493 123542 012 172100 MOV #172100,R2 ;FIRST POSSIBLE C 
20494 123546 012703 740 MOV STEMP RS ;STORAGE LOCATION 
20495 123552 0057 1$ TST :IS CSR THERE? 
20496 123554 010223 MOV R2,(R3)- ;IF THERE, STORE 
20497 123556 : INC )8=—s RA INCREMENT COUNT FOR CSR’ S 
20498 123560 BR 3$ ;BRANCH AROUND 
20499 123562 005726 2$: TST (SP « ‘RESTORE STACK 
20500 123564 005726 TST SP) 
20501 123566 062702 000002 3$: ADD $2 ,R2 ;POINT TO NEW CSR 
20502 123572 022702 172136 CMP #172136,R2 ;ALL ? 
20503 101365 BHI 1s ;IF NOT, BRANCH 
20504 123600 010137 000004 MOV 1, ERRVEC :RESTORE ERROR VECTOR 
20505 123604 737 001000 177746 BIS waits. CCR :SET CACHE BYPASS 
20507 ; WRITE ALL CSR‘S WITH WRONG ECC CODE 
20508 ; NOTE: IN PARITY MEMORY THOSE BITS ARE READ ONLY AND 
20509 ; DIAGNOSTIC MODE BIT FOR ECC IS THE SAME AS WRONG PARITY 

: 








K14 
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WRONG PARITY ABORT TEST 
043703 


- 





123 
123732 


daee 


Se 


: 


14 
123704 
340 
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MOV a¢114,R1 
000114 MOV #6$, 00114 
000116 MOV $340, a#116 
MOV R4,R2 
MOV STEMP ,R3 
000000 4$ BIS 981702 !B1T00, @0(R3) 
BIC $3740, a(R3)« 
S08 R4,4$ 
MOV ORD 
MOV STEMP ,R3 
S$: BIC #81702, a R3)- 
TST ae 
ERROR +34 
BR 7% 
6$: TST (SP)+ 
TST (SP )- 
7$: MOV STEMP ,R3 
8s: BIC eBIT00, a(R3)- 
SOB R4,8$ 
177744 BIT #B1T15,MSER 
BNE 9$ 
001124 MOV #100000, $GDDAT 
ERROR +35 
177746 9%: BIC @BIT09, CCR 
: & 


MSER 
MOV R1,00114 


SEQ 0386 


;STORE PARITY 





T VECTOR 
AM 


T CSR 
;DIAGNOSTIC OR PARITY 
— <10-5> CHECK BITS 


;D0 FOR ALL CSR‘S 
;CLEAR TEST LOCATION WITH WRONG PR 





;READ BACK WRONG PARITY 
;NO WRONG PARITY ABORT 


;ADJUST STACK 


;START WITH 1ST CSR 
;CLEAR ALL WRONG PARITY 


;IN ALL CSR‘ 

; ABORT REFLECTED IN MSER? 

;IF YES, BRANCH 

4 

;MSER<15> NOT SET ON PARITY ABORT 
;CLEAR CACHE BYPASS 

CLEAR WRONG P 






; MSER 
;RESTORE PARITY ABORT 


L14 
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TEST - DMA TAG PARITY IN STANDALONE MODE 


3EQ 0387 


















20543 SBTTL TEST - DMA TAG PARITY IN STANDALONE MODE 
20544 CHECK DMA TAG STORE PARITY BIT. 
20545 ‘ROUTINE TEST 
20546 = c OMA_PARITY 
20547 ; LET BCSR<08>=41 
20548 3. T ALL S 
20549 ; ENDROUT INE 
20550 ; 
20551 ;ROUTINE DMA_PARITY 
20552 5. GENERATE PARITY ERRORS 
20553 ; CK MSER<13> 
20554 te CET CoceRt08+=60 
; INE 
20556 
20557 © s ERESSEKASSSSESESESRESESEEEERESEEEEEE SEES EEE EEESEEEEEEEEEEEEEESD 
123764 000004 48157: SCOPE 
20558 123766 000240 NOP 
20559 123770 005737 003032 TST CCHPAS shave done enough inclusive passes? 
20560 123774 001002 BNE 99$ ; not yet 
20561 123776 000240 NOP 
20562 124000 000456 BR TST60 5:GO TO NEXT T s'° 
poor 124002 000240 99$: NOP 
20565 ; ALLOCATE CODE IN CACHE 
soses 124004 012702 124040 MOV SO0MAPAR ,R2 ;POINT TO STANDALONE CODE 
20568 124010 042737 001000 177520 BIC DI HALT ON BREAK 
20569 124016 1$: TST ;ALLOCATE IN CACHE 
20570 124020 124100 CMP ;LAST ADDRESS? 
20571 124024 001374 BNE ;IF NOT 
20372 124026 002740 TST ‘ALLOCATE TEST LOCATION 
; 124032 013737 177520 002730 MOV ;SAVE BCSR 
20575 ; IN STANDALONE MODE TRY TO VERIFY RESPONSE TO PARITY ERRORS 
soe79 124040 052737 000400 177520 OMAPAR: BIS #81708 ,BCSR ;SET STANDALONE MODE BIT 
20378 124046 737 002001 177746 BIS €81T10!BITOO,.CCR ;WRITE WRONG TAG PARITY 
124054 37 002740 TEMP ‘WRITE HIT WITH WRONG PARITY 
20580 124060 013705 177744 MOV MSER RS ;STORE MSER 
20581 124064 737 002000 177746 BIC #B1T10,CCR ;CLEAR WRONG PARITY BIT 
20582 124072 737 000400 177520 2%: BIC 881708. BCSR ‘CLEAR STANDALONE BIT 
aes ; RETURN FROM STANDALONE MODE 
20586 124100 OPAREN: 
20387 124100 022705 060020 CMP 260020, RS ;WRONG DMA PARITY? 
124104 001401 BEQ 4$ ;IF OK, BRANCH 
20589 124106 104117 ERROR +117 :MSER NOT SET IN STANDALONE MODE 
124110 177744 4$: CLR 2400, coR 
20591 124114 012737 000400 177746 MOV ;FLUSH THE C 
20332 124122 013737 002730 177520 MOV VBA. BCR ;RESTORE BCSR 
124130 052737 001000 177520 BIS 31000" :ENABLE HALT ON BREAK 
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0 





















TEST - DMA TAG PARITY W/O STANDALONE MODE 
20596 .SBTTL TEST - DMA TAG PARITY W/O STANDALONE MODE 
posed ;CHECK DMA TAG “PARITY BIT WITHOUT GOING INTO STANDALONE MODE. 
20599 ;CCR <10> WRITE WRONG TAG PARITY 
20600 ; 
20601 ;ROUTINE TEST 
soets be LET CCR<10>=#1 
2060 ; ALLOCATE LOCATION IN CACHE 
20604 ” INITIATE DMA WRITE TRANSFERS 
20605 Se IF MSER<04> NE #1 THEN 
20606 is ERROR 
20607 $. ENDIF 
20609 a 
20610 5 EEESERAEESEAERESEE ESE ESSERE EEEEEEEEEEESESEEEEEEEEEEEEEEEEEEEEES 
124136 000004 i$160: SCOPE 
20611 124140 000240 NOP 
20612 124142 005737 03032 TST CCHPAS shave done enough inclusive passes? 
20613 124146 001002 BNE 99$ ; not yet 
20614 124150 NOP ; x x aid 
20615 124152 000471 BR TST61 ;;GO TO NEXT TEST 
poate 124154 99$: NOP 
20618 124156 032737 000200 000052 BIT #B1T0O7 ,ae52 ;UFD MODE? 
soeke 124164 001402 BEQ 110$ ;1F NOT, BRANCH 
124166 000137 140340 JMP ; SE, NEXT PASS 
20621 124172 002664 110$: TST CSR1 ;AT LEAST ONE Q22BE FOUND? 
20628 124176 001457 BEQ TST61 ;3;IF NOT, EXIT TEST 
: 
; ALLOCATE TEST IN CACHE 
20625 ; 
coeee 128209 012703 124200 11$: MOV #. ,R3 ;START WITH CURRENT INSTRUCTION 
2062 723 10$: TST (R3)- ;READ A WORD 
20628 124206 022703 124316 CMP #4$ RS ;ALL DONE? 
see) 124212 001374 BNE 10$ ;IF NOT, CONTINUE 
: 
soees ; WRITE A WORD WITH WRONG PARITY 
‘ 
20633 124214 013737 900338 001160 i$: MOV 97114, $TMPO ;STORE PARITY VECTOR 
20634 iaesee 012737 124270 000114 MOV @¢114 ;POINT TO TEST AREA 
20635 1242 737 002000 177746 BIS ate ;WRITE WRONG TAG PARITY 
124236 005037 002740 CLR tt} MISS WITH WRONG TAG PARITY 
124242 042737 002000 1777 BIC st »CCR WRONG TAG PARITY 
8 124250 052737 000200 177746 BIS T07,CCR ; PARITY ABORT 4 
124256 CLR Lae aye 1 TRANSFER 
20640 124260 004737 137370 JSR BC, DMATRN TO TEMP THRU Q22BE 
20641 124264 104116 ERROR +116 iN PARITY T 
isaste 000413 BR 4$ ;BRANCH TO TEST MSER 
1242 013704 177744 23: MOV MSER ,R4 ; STORE 
20644 pan be 005037 177744 CLa MSER ;CLEAR 
20645 005726 TST (SP )+ ; 
20646 124302 005726 TST (SP )+ ;sRESTORE STACK 
20647 iSatee 005726 TST (SP )+ 
20648 124 0 000020 3$: BIT #B1IT04 ,R4 ;MSER OK? 
20649 124312 001001 BNE 4$ ;IF SET, BRANCH 
20650 124314 104116 +116 ;MSER<4> NOT SET 
20651 124316 005037 177744 4$: CLR MSER ;CLEAR 
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TEST - DMA TAG PARITY W/O STANDALONE MODE 


20652 124322 012737 000400 177746 
20653 124330 013737 001160 000114 


MOV 
MOV 


#400,CCR 
$TMPO, 2114 


SEQ 0389 


;FLUSH CACHE 
;RESTORE VECTOR 


—_—— eee nw er ee 


B1S 
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TEST ~- DMA WRITE HIT CYCLES 


SEQ 0390 


-SBTTL TEST - DMA WRITE HIT CYCLES 
;CHECK THAT DMA WRITE HITS INVALIDATE CACHE. 
;sROUTINE TEST 
ALLOCATE A LOCATION IN CACHE 
TE DMA pe fi ie LOCATION 


INITIA 
READ THIS LOCATI 
IF IT IS CHANGED OR HIT/MISS EQ HIT 


ENDIF 

WRITE TO THE FIRST 16 LOCATION THEIR ADDRESS 
DO BLOCK MODE TRANSFER TO THOSE LOCATIONS 
START READ WITH THE LAST LOCATION 

IF RECORD ANY HITS THEN 


ENDIF 
INITIATE READ DMA TO THE SAME TEST LOCATIONS 


Z06se 
20655 
Be 
5 
7 
0 
7 READ THEM 
72 IF HIT/MISS NE HIT THEN 
7 ERROR 
74 ENDIF 
75 ' ENDROUTINE 
8 RERERERREREKEREERERESE EERE EAREREREAEER ARERR ERE EREEEEEEESERER ES 
124336 000004 18161: SCOPE 
15 i 4342 905737 003032 | TST CCHPAS h done enough inclusi ? 
;nave inclusive passes 
154346 001003 BNE 99$ ; not yet 
124 000240 NOP ; debug aid — 
124 000137 125304 JMP ALLEND ; yes skip this 
124356 000240 993: NOP 
5 124360 032737 000200 000052 BIT #B1T07,a852 ;UFD MODE? 
124366 001402 BEQStiédMS ‘TF NOT, BRANCH 
124370 000137 140340 JMP $E0P ;OTHERWISE, NEXT PASS 
124374 005737 002664 1$: TST CSR1 ;AT LEAST 1 Q22BE? 
9 124400 001002 BNE 238 SIF YES, BRANCH 
: 124402 000137 140340 JMP $E0P ;OTHERWISE, NEXT PASS 
$2 ; TRY TO DO DMA WRITE AT ALL DIFFERENT PRIORITIES 
94 124406 012702 000340 5s: = MOV. s«#340,R2 ;START WITH 7 
$0698 124414 162708 000040 3$ fe ea0,Re OO ER PRIORITY 
sos? 134420 08087 92740 4s: CLR TEMP ‘CLEAR TEST LOCATION 
98 1 005000 CLR —s- RO ‘DO JUST 1 WORD 
$00 124480 G08787 137370 TER PE. DMATRN —— 
; 
5070 1244 737 001000 177520 BIC #1000, BCSR ;DISABLE HALT ON BREAK 
Soros 1naade O1s787 77752 114150 HOV HETMIS,RECDAT SE HT MSS 
50704 124454 052737 001000 177520 BIS #1000, BCSR ‘ENABLE HALT ON BREAK 
20705 124462 032737 000004 114150 BIT #B1T02,RECDAT ;LAST ACCESS HIT? 
124470 001401 BEQStiéSSS VIF MISS, BRANCH 
Soros iseaya e278? 012525 002740 S$ EHP. 61525, TEMP DATO OK? 
50709 124502 001401 ° ot SIF SO, BRANCH 
350710 124504 104123 ERROR +123 DATO 
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SEQ 0391 
TEST - DMA WRITE HIT CYCLES 
20711 124506 005702 6$: TST R2 ;LAST PRIORITY 0? 
20712 124510 001341 BNE 3$ SIF NOT, BRANCH 
20713 124512 106427 000340 MIPS #340 ;RESTORE PRIORITY 
20715 ; 
20716 : VERIFY THAT BYPASS WITH DMA DATI INVALIDATES CACHE 
; 
20718 124516 012737 001000 177746 8%: MOV #BIT09,CCR ;SET BYPASS 
20719 124524 004737 137370 JSR PC, DMATRN ;D0 DMA DATI 
20720 124530 005037 177746 CLR C ;CLEAR BYPASS 
124534 042737 001000 177520 BIC #1000,BCSR ;DISABLE HALT ON BREAK 
20722 124542 005737 002740 TST T ;IN CACHE? 
4546 013737 177752 114150 MOV HITMIS,RECDAT ;STORE REGISTER 
20724 124554 052737 001000 177520 BIS #1000,BCSR : HALT ON BREAK 
20725 124562 032737 000004 114150 BIT #B1T02,RECDAT ;TEMP WAS A HIT? 
20726 124570 001401 BEQ DATBO ;IF NOT, BRANCH 
20727 124572 104123 ERROR +123 
20728 , 
20736 ; DO DATBO 
20731 124574 012701 000010 bATBO: MOV #10,R1 ;COUNTER FOR 8 
20732 124600 012702 002740 MOV STEMP ,R2 ;START WITH TEMP 
20733 124604 005022 1$: CLR (R2)+ ;CLEAR ALL 16 
20734 124606 077102 SOB Ri,i$ ;00 ALL 16 
20735 124610 INC RO ;FLAG BLOCK MODE 
20736 124612 012777 002740 056050 MOV STEMP , 2B sL SS 
20737 124620 012777 177770 056044 MOV #177770 suc ;D0 8 WORDS 
20 012777 001701 056030 MOV $1701 acsr :16 WORDS FROM 32K 
20739 124634 004737 137370 JSR PC ;D0 D 
20740 124640 032777 010000 056020 BIT esiTi2, BCR ;NO BLOCK MODE SLAVE? 
124646 001401 BEQ ;IF NOT, BRANCH 
20742 124650 104123 ERROR ot e3 ;NO BLOCK MODE SLAVE 
2074 14652 012701 000004 2%: MOV #4,R1 ;COUNTER FOR 4 LOCATIONS 
20744 124656 012702 002740 MOV STEMP ,R2 :START WITH TEMP 
20745 1 042737 001000 177520 3%: BIC #1000, BCSR :DISABLE HALT ON BREAK 
20746 124670 005712 TST (R2) ;ACCESS A LOCATION 
20747 124672 013737 177752 114150 MOV HITMIS ,RECDAT ;STORE REGISTER 
20748 124700 7 001000 177520 BIS sENABLE HALT ON BREAK 
20749 124706 032737 114150 BIT #81102 ,RECDAT HIT? 
20750 124714 001401 BEQ 4$ BRANCH 
20751 124716 104121 ERROR +121 AHA DUES N NOT INVALIDATE 
20752 124720 022722 012525 4$: CMP #12525, (R2)+ + DATO OK? 
20753 124724 001401 BEQ S$ ;IF S0,BRANCH 
20 124726 104123 ERROR +123 ; 
20755 124 062702 000002 S$: ADD #2 ,R2 ;D0 IN 2 WORDS 
20756 124734 077126 SOB R1,3$ ;D0 ALL 16 
50 
; 
207 ; DO 4K OF DATO AND CHECK FOR MISS 
; 
20761 124736 004737 136574 JSR ;SET UP MMU 
20762 124742 012737 002000 172354 MOV 95000. KIPARG SSTART AT 32K 
20763 124750 042737 100000 172314 BIC #81715, KIPDR6 ;NO BYPASS 
20764 124756 052737 000001 177572 BIS @81T00, HARO ;ENABLE MMU 
20765 124 012737 125124 000004 MOV aDATI ;IF 32K NXW 
012702 140000 MOV 3140000 R ;START WITH 32K 
20767 124776 005712 TST (R2) ;EXIT 





DiS 
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SEQ 0392 
TEST - DMA WRITE HIT CYCLES 
20768 125000 012701 010000 MOV $10000,R1 ;COUNTER FOR 4K 
20769 125004 005022 6$: CLR (R2)+ ;CLEAR ALL 16 
20770 125006 077102 SOB R1,6$ ;00 ALL 16 
20771 125010 005200 INC RO ;FLAG BLOCK MODE 
20772 125012 012 055650 MOV #0, @BA ;LOAD DMA ADDRESS 
773 125020 012777 17 MOV #- 10000, AWC :D0 4K 
20774 125026 012777 003701 055630 MOV $3701, aCSR1 ;16 WORDS FROM 32K 
125034 004737 137370 JSR PC, DMATRN ;D0 DATBO 
20776 125040 012701 004000 7$: MOV #4000 ,R1 ;COUNTER FOR 4K LOCATIONS 
125044 012702 MOV #140000, R2 ;START WITH 0 
20778 125050 042737 001000 177520 8$: BIC #1000, BCSR ;DISABLE HALT ON BREAK 
20779 125056 005712 TST (Re) sACCESS A LOCATION 
20780 125060 013737 177752 114150 HITMIS,RECDAT ;STORE REGIST 
20781 125066 052737 001000 177520 BIS #1000,BCSR ; T ON BREAK 
20782 125074 032737 114150 BIT SBITOS. RECDAT 
207 102 001401 BEQ 9$ :TF NO BRANCH 
20784 125104 104121 +121 BHA DUES NOT INVALIDATE 
20785 125106 022722 012525 9$: CMP #12525, (R2)+ + OATO OK? 
20786 125112 001401 BEQ 10$ ;IF SO,BRANCH 
20787 125114 104123 ERROR +123 ;IN DMA 
88 125 702 000002 10$ ADD #2,R2 ;D0 IN 2 WORDS 
20789 125122 077126 SOB R1,8$ ;D0 ALL OF THEM 
20791 ; CHECK DATI 
20792 A 
20793 125124 005037 177572 ATI: CLR MMRO ; DISABLE 
125130 012706 001100 MOV #1100, SP ;RESTORE STACK 
125134 012737 137542 000004 MOV #TOUT :AND TIME 
20796 125142 012737 002740 MOV #52525,T ;LOAD MEMORY 
20797 125150 CLR RO ; JUST 1 
125152 004737 137452 JSR PC, DMARD :D0 DATI 
20799 125156 022777 055510 CMP #52525, @DATA ;DATI OK? 
20800 125164 001401 BEQ 11$ ;IF YES, BRANCH 
20801 125166 104123 ERROR +123 ;DATI 
20802 
20803 ; DO DATBI 
20804 ; 
20805 125170 012701 000010 11$ MOV #10,R1 ;COUNTER FOR 16 LOCATIONS 
20806 125174 012702 002740 MOV TEMP, ;START WITH TEMP 
20807 1 012703 002740 MOV STEMP.R3 ;START WITH TEMP 
20808 010322 12$: MOV R3,(R2)+ ;PUT SSES 
20809 005723 TST (R3)> ;I ADDRESS 
20810 10 077103 S08 R1,12$ ALL 16 
20811 125212 INC ;FLAG BLOCK MODE 
12 004737 137452 JSR PC, DMARD ;D0 DATBI 
20813 125220 032777 O01 055440 BIT #81712, aCSR2 ;NO BLOCK MODE SLAVE? 
20814 125226 001401 BEQ 13$ ‘IF NO. BRANCH 
20815 125230 104123 ERROR +123 
20816 125232 022777 002756 055434 13$: CMP @TEMP+16, DATA sDATI OK? 
20817 125240 001401 BEQ 14§ F SO, BRANCH 
20818 125242 104123 +123 ‘IN DATIB 
20819 125244 042737 001000 177520 14$:  &BIC #1000, BCSR :DISABLE HALT ON BREAK 
125252 005737 002740 TST TEMP ; ACCESS 
20821 125256 013737 1 114150 MOV HITMIS ,RECDAT ‘STORE REGISTER 
s088 128372 082787 00004 114150 BT «BBL TO3- RECDAT —-- 
° ; 
125300 BNE 15$ ;IF YES, BRANCH 


ak 
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TEST - DMA WRITE HIT CYCLES 
20825 125302 104123 
20826 125304 
20827 125304 


MACRO VO5.03 Friday 28-Mar-86 13:30 Page 59-3 


15$: 
ALLEND 


ERROR 


+123 


SEQ 0393 


meee oo eee EEE —ee 


F 15 
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TEST - DIFFERENT LEVELS OF INTERRUPTS 


000004 
032737 
001122 
005737 
001517 


013703 002664 
125424 055340 
055334 


001160 
001160 


000403 
162737 
37 


SEQ 0394 


.SBTTL TEST - DIFFERENT LEVELS OF INTERRUPTS 
LEVELS OF INTERRUPTS . 


; DIFFERENT 
;THIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT 
;sLEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 
:;PIRQ’S WILL BE TESTED. 

; CHECK DIFFERENT LEVELS OF INTERRUPTS. 

; INE TEST 


SET VECTOR TO INTERRUPT 
FOR INTERRUPTS FROM 4 Oo” 7 DO 
INTERRUPTS 


ENABLE 
SET PRIORITY=INTERUPT 
IF ies thie SET THEN 


ENDIF 

ENABLE INTERRUPTS 

SET PRIORITY=INTERRUPT-1 

IF INTERRUPT_FLAG NOTSET THEN 


ENDIF 
LET INTERRUPT_DMA=0 


- ENDDO 
;ENDROUT INE 
;ROUTINE, INTERUPT DHA 
“8 T INTERRUPT _FLAG=1 
; 
; ENDROUTINE 
ee 
#B1T07,a#52 ;UFD MODE? 
BNE TST63 ;:IF SO, EXIT TEST 
TST CSR1 “AT LEAST ONE @22BE FOUND? 
BEQ TST63 ;;IF NOT, EXIT TEST 
; SETUP INITIAL PRIORITY TO 7 
MOV —sCSR1,R3 .DO FOR FIRST FOUND Q228€ 
MOV $5$, AVQBE1 ‘POINT INTERRUPT VECTOR TO PROGRAM 
MOV $340, AVOPR1 ;AT PRIORITY 
MOV #Q22EN, RO :START WITH 7 FOR INTERRUPTS 
MOV #340,Ri ‘LOW BOUNDARY FOR NO INTERRUPTS 
BR 23 ‘TRY TO DO TT FOR FIRST 
1$: SUB $40,R1 ;LOWER LOW BOUNDAR 
' CHECK THAT INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN BR 
bs; = MOV. —s«# 340, $TMPO ;TOP PRIORITY FOR NO INTERRUPTS 
3$ fe 880, STHPO OO AT REXT LEVEL 
= SET PRIORITY NOT.TO INTERRUPT 
MoV (RO)+, ACSR2 ‘CLEAR GO BIT 
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0 
TEST - DIFFERENT LEVELS OF INTERRUPTS SES C985 
20885 125422 000403 BR 6$ ;IF NO INTERUPT, BRANCH 
20886 125424 104126 S$: ERROR +126 | INTERRUPTS 
20887 125426 005726 TST (SP)-+ ;RESTORE STACK 
20888 125430 005726 TST (SP). 
20889 125432 020137 001160 6$: CMP R1, $TMPO ;LAST ONE? 
20890 125436 001355 BNE 3$ iTF NOT BRANCH 
20891 125440 022710 000002 CMP #2, (RO) T BR4? 
20892 125444 BNE i$ te NOT LAST ONE, BRANCH 
vet ; INTERRUPT AT ALL LEVELS 
' 
20896 125446 012777 125542 055222 INQ22: MOV #5$, @VQBE1 ;POINT INTERRUPT VECTOR TO PROGRAM 
2089 125454 012777 000340 055216 MOV #340, AVQPR1 ;AT PRIORITY 7 
20898 012700 003002 MOV #Q22EN , RO ;START WITH 7 FOR INTERRUPTS 
20899 125466 012701 000300 MOV #300,R1 ;TOP BOUNDARY FOR INTERRUPTS 
2 BR 2$ sTRY TO DO rT FOR FIRST 
20901 125474 162701 000040 1$: SUB #40,R1 ;LOWER TOP BOUNDAR 
; 
$0908 ; CHECK THAT INTERRUPTS HAPPEN AT PRIORITY LOWER THAN BR 
20904 : 
20905 125500 010137 001160 2$ MOV R1,$TMPO sPRIORITY FOR INTERRUPTS 
20906 125504 3 BR 4 ;D0 FIRST ONE 
20907 125 162737 001160 34: SUB #40, $TMPO ;D0 AT NEXT LEVEL 
20908 125514 37 001160 4$: MTPS § $TMPO :SET PRIORITY NOT TO INTERRUPT 
20909 1 737 137350 JSR PC, Q22INT ;ENABLE INTERRUPTS 
20910 011077 055136 MOV (RO), ACSR2 ‘CLEAR GO BIT 
11 NOP :WAIT A WHILE 
HE 1255 NOP 
13 1 NOP 
14 1 104126 ERROR +126 ; INTERRUPTS DON'T HAPPEN 
20915 125540 000402 BR 6$ ;DON’T RESTORE STACK 
20916 1 005726 S$: TST (SP )+ ;RESTORE STACK 
1 125544 005726 TST (SP )+ 
16 1 005737 001160 6$: TST $TMPO ;LAST ONE 0? 
9 125552 001355 BNE 3$ ;IF NOT BRANCH 
1 022720 000002 CMP #2,(RO)+ SAT BR4? 
20921 125560 001345 BNE 1$ ;IF NOT LAST ONE, BRANCH 
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- ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 
-SBTTL TEST 


TEST 


scsuaneeeeies 


ENDDO 

‘ ENDROUTINE 

125562 TST63: SCOPE 

1 125 032737 000200 000052 BIT 
20942 125572 00106 BNE 
20943 125574 005737 002664 TST 
20944 125600 0014 BEQ 
20945 125602 012777 125710 055066 MOV 
20946 125610 012777 000340 055062 MOV 
20947 125616 012737 125720 000240 MOV 
20948 125624 012737 000340 000242 MOV 
20949 1 012700 003002 MOV 
20950 125636 012704 125736 MOV 
20951 125642 013703 002664 HOV 
so983 1asece BR 
Sogss 195660 106427 3: Oe 
106427 000340 2$ MTPS 

20996 125664 012437 177772 MOV 
125670 004737 137350 JSR 
20958 125674 012077 766 MOV 
125700 106402 MTPS 
20960 702 000240 NOP 
1 125704 000240 NOP 
20962 125706 000240 NOP 

20963 125710 104124 3$; ERROR 
20964 125712 005726 TST 
20965 125714 005726 TST 
20966 125716 BR 
20967 125720 005726 4$: TST 
$8 1s GEIS coos = st: 
20970 158480 001351 BNE 
20971 125732 005037 177772 CLR 

040000 020000 PIRQT: .WORD 





; CHECK PRIORITY ORDER BETWEEN 
;sROUTINE TEST 


ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 
WEEN PIRQ'S AND INTERRUPTS. 


THEN 
EXIT TEST 
END 
vs FOR I FROM #6 DOWN nee" 


SET PRIORITY TO I 
ENABLE INTERRUPT(I+1) AND PIRQ(I+1) 
IF INTERRUPT(I+1) WAS BEFORE PIRQCL+1) THEN 


ENDIF 


ee 


#BIT07, a#52 UFD MODE? 
TST64 5;IF SO, EXIT TEST 
CSRi -AT LEAST ONE @22BE FOUND? 
TST64 ,;IF NOT, EXIT TEST 
#3$, AVQBE1 “Setup Q22BE VECTOR 

340, AVQPR1 SAT PRIORITY 7 

#4$, PIRQVEC ;SETUP PIRQ VECTOR 
$340 ,PIRQVEC+2 ‘AT PRIOR 
$Q22EN, RO :POINT THRU PRIORITIES FOR Q22BE 
@PIRQT .R4 :POINTER THRU PIRQ'S 

CSR1,R3 ‘DO FOR FIRST Q22BE 

$300,R2 ;START WITH CPU PRIORITY AT 7 
2$ ;D0 FI ONE 

#40,R2 ;LOWER CPU PRIORITY 

$340 RAISE PRIORITY TO 7 

(R4)+,PIRQ ;SET PRIORITY FOR PIRQ'S 

Q22 INT SINITIALISE Q22BE TO INTERRUPT 

(RO)+, ACSR2 ;SE 

2 ‘LOWER PRIORITY 

+124 ;PIRQ’S DON'T TAKE OVER BIRQ’S 
(SPs :CLEAN UP STACK 

+ 

53 ;BRANCH AROUND PIRQ INTERRUPT 
(SP 2+ ‘CLEAN UP STACK 

#140,R2 ;PRIORITY 3 LAST ONE? 

i$ ;IF NOT BR 

PIRQ ;CLEAR ANY REQUESTS 

100000 , 40000 , 20000, 10000 ;PIRQ' S<7-4> 


SEQ 0396 
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TEST - POWER DOWN TEST 
20976 Brae TEST - POWER DOWN TEST 
20977 USING @22BE THIS TEST WILL CHECK THAT ON POWER DOWN CONDITION IF 
20978 ‘POWER UP UP CODE oA IS SELECTED THE CPU TRAPS THRU 24 
so ; ROUTINE TEST 
:. IF UFD OR POWER UP CODE 00 NOT SELECTED THEN 
20981 ; EXIT TEST 
20982 ; END 
2098 ; SET 24 TO POINT TO TEST AREA 
20984 ;. LET CSR2<5> = #1 TO NEGATE BPOK 
20985 :. IF NO TRAP TO 24 THEN 
20966 S ERROR IN POWER DOWN CYCLE 
20987 " ENDIF 
IF TRAP TO 24 THEN 
20989 :. LET CSR2<5> = #0 
i 
$0991 ; ENDROUT INE 
Sane © KEEEEREEARSEREKADCESADCARESREAAEAAAAGALASKEAKSEREASCACASRAKEKEKALSEAEALELESE 
125746 000004 TS164: SCOPE 
20994 032737 000200 000052 BIT $BIT07, a#52 ;UFD MODE? 
20995 125 001033 BNE TST65 ;;EXIT TEST IN UFD MODE 
20996 125760 005737 002664 TST CSR1 ;AT LEAST ONE Q22BE FOUND? 
125764 001430 BEQ TST65 ;;IF NOT, EXIT TEST 
20998 125766 013737 000024 001160 MOV PWRVEC, $TMPO ;SAVE POWER UP VECTOR 
20999 4 012737 126030 000024 MOV $1$,PWRVEC ‘POINT NEW TO PROGRAM 
21000 126002 012737 000340 000026 MOV $340, PWRVEC+2 ‘AT PRIORITY 7 
21001 126010 012777 000040 054650 MOV #B1T05, ACSR2 ;D0 POWER DOWN 
21002 126016 000240 NOP 
21003 126020 005077 054642 CLR acsRe ;CLEAR POWER DOWN 8 BIT 
21004 126024 104125 ERROR +125 ;NO POWER DOWN T 
1005 BR 2$ SKIP RESTORING STACK 
1 1560 e080 005077 054632 1$: CLR @CSR2 E DOWN BIT 
21007 126034 005726 TST (SP)+ ‘RESTORE STACK POINTER 
23008 126036 0057 TST (SP)+ 
21009 126040 013737 001160 000024 2%: MOV $TMPO , PURVEC ;RESTORE POWER VECTOR 
21011 
21012 


i SK 
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SEQ 0398 
TEST | - ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 
_SBTTL TEST - ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 
[IF TWO Q@22BE ARE AVAILABLE, THIS TEST WILL CHECK THAT HIGHER LEVEL 
S INTERRUPT REQUESTS TAKE PRIORITY OVER LOWER LEVEL ONES 
‘ROUTINE TEST 
* UFD OR 2ND Q22BE NOT AVAILABLE THEN 
; EXIT TEST 
. ENDIF 
; DO FOR PRIORITY_LEVELS FROM 4 TO 6 
. SET UP IST Q22BE TO INTERRUPT AT PRIORITY_LEVEL 
* SET UP 2ND Q@22BE TO INTERRUPT AT PRIORITY LEVEL+1 
:. SET UP CPU PRIORITY TO PRIORITY LEVEL 
; IF INTERRUPTS FORM 1ST Q22BE HAPPENED BEFORE 1ST THEN 
ERROR 
. ENDIF 
* ENDDO 
; ENDROUTINE 
5 g RERERERAESRERERESE SERA ERERESEREREAEAEAESEEESEAESAEAEREAEAES ESE SS 
TST65: SCOPE 
000052 BIT #BIT07.ae52 ;UFD MODE? 
BNE TST66 ;:IF SO, EXIT TEST 
TST CSR12 ;SECOND Q22BE AVAILABLE? 
BNE i$ :IF YES, GO DO TEST 
JMP $E0P ;OTHERWISE, GOTO EOP 
; INITIALISE VECTORS FOR Q22BE'S 
054576 is: MOV #4$, aVQBE1 ; VECTOR FOR isT ONE 
054572 MOV #340, AVQPR1 SAT PRIORITY 7 
054602 MOV #5$, aVQBE2 ;VECTOR FOR 2ND 
054576 MOV #340, aVGPR2 ;AT PRIORITY 7 
MOV #Q22EN-+2,RO ;POINTER FOR Q22BE BR'S 
MOV $240 ,R2 :CPU AT 5S 
BR 3§ ‘START DOING ARBITRATION 
; DO FOR CPU PRIORITIES 5-3 
; 
2$: SUB #40 ,R2 ;LOWER CPU PRIORITY 
3$: MTPS ; 
MOV CSR12,R3 ;Q@22BE 2 AT HI 
JSR INT sINITIALISE TO INTERRUPTS 
MOV (RO), ACSR2 ;START 1ST 
MOV CSR1,R3 ;Q@22BE 1 AT LOWER BR 
TST -(RO) ;HIGHER PRIORITY 
aoe Nh oe 
+, ; 
MTPS 3L CPU PRIORITY 
NOP ;WAI E 
NOP 
4$: ERROR +126 ; INTERRUPTS IN WRONG ORDER 
TST (SP)- ;RESTORE STACK 
ge 
S$: 131 (30° ;RESTORE STACK 
6$: CMP #140,R2 ;PRIORITY 3 LAST? 








K15 
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TEST - ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 
21070 126226 001342 
21071 ss - 


SEQ 0399 


;IF NOT, BRANCH TO CONTINUE 


—_ oe EEE eee Eee ee ee 


L15 
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TEST - PMG COUNTER 


SEQ 0400 









21073 .SBTTL TEST - PMG COUNTER 
21074 ;USING 2 Q22BE THIS TEST WILL VALIDATE THAT PMG COUNTER IS REALLY 
21075 ‘ CAPABLE OF GRANTING CPU BUS MASTERSHIP WHEN DMA REQUESTS ARE STILL 
21076 ; PENDING. 
21077 * ROUTINE TEST 
21078 3. IF UFD OR NO 2ND Q22BE THEN 
21079 3 EXIT TEST 
21080 ; ENDIF 
21061 ; SET PMG COUNT TO SOME VALUE 
3106¢ ; PROGRAM BOTH TO 
2108 ; 
21084 ; 
21085 : 
$1086 ; CACHE INSTRUCTION 
2108 3. INITIATE BOTH DMA CYCLES 
21088 ee STOP 2ND DMA (RESET IS “STOLEN” CPU BUS CYCLE) 
21089 3. IF HAPPENED THEN 
21090 ; , 
21091 ; ENDIF 
$1035 ; CLEAR PMG COUNT 
21 ; PROGRAM Q22BE WITH we: PRIORITY TO DO HOG MODE 
21094 ; PROGRAM 2ND ONE TO DO A 
21095 ; CACHE INSTRUCTION THAT WILL STOP 2ND DMA 
21096 ; INITIATE BOTH DMA CYCLES 
21097 ; STOP 2ND DMA rs OF CSR2<0> IS “STOLEN” CPU BUS CYCLE) 
215% ; IF 2ND DMA DIDN‘T HAPPENED THEN 
21099 3. 
21100 * ENDIF 
i ; ENDROUTINE 
PTTTTTTTIT TTT TTT TTT TTT TTT TTT TTT ttt ttt ttt 
1349 000004 $166: SCOPE 
003032 TST CCHPAS s;have done inclusive passes? 
136240 001003 BNE «99 a 
126242 NOP ; debug aid 
126244 000137 126750 JMP 11$ ; yes skip this 
4 126250 99$: NOP 
11 126252 032737 000200 000052 BIT #B1T07 ,a#52 oe 
12 126260 001402 BEQ 00$ VIF NOT, CONTINUE 
21113 leeese 000137 140340 JMP $EOP ;EXIT 
14 002704 100$: TST CSRi2 SECOND Q22BE AVAILABLE? 
21115 126272 002 BNE 110$ GO DO TEST 
sitit 126274 137 140340 JMP $E0P ATHERUISE GOTO EOP 


: DETERMINE WHICH Q22BE IS CLOSER TO CPU BY DOING DATO 
: THE CSR1 OF THE ONE WITH HIGHER PRIORITY IS IN R4, THE SECOND IN R2 


i1os: ;CLEAR JUST IN CASE 


REESE 





;IN BOTH 
sDATA FOR iST 
;DATA FOR 





M15 
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TEST - PMG COUNTER 


SEQ 6401 


21129 126354 012777 001601 054302 MOV #1601, @CSR1 51 DATO FOR 1ST 
31130 126362 012777 001601 054314 MOV #1601. @CSR12 ;AND 2ND 
31131 126370 012777 000001 054304 MOV #1, aSIMGOA ;BOTH GO 
21132 126376 105777 054262 1s: TSTB =s-_« ACSR1 SFIRST DONE? 
21133 126402 100375 BPL 1$ SIF NOT, WAIT 
21134 126404 105777 054274 2s: TSTB =-_- ACSR12 DONE 
21135 126410 100375 BPL 2$ ;WAIT FOR 2ND 
21136 126412 022737 052525 002740 CMP #52525, TEMP ;SECOND FINISHED LAST? 
21137 126420 001405 BEQ 33 IF SO 
21138 013704 002704 MOV CSR12,R4 ;SECOND ONE AT HIGHER LEVEL 
21139 013702 002664 MOV CSR1,R2 :FIRST AT LOWER 
21140 126432 000404 BR 43 ;D0 PMG PART 
21141 126434 013704 002664 3$: MOV CSR1,R4 :FIRST ONE AT HIGHER LEVEL 
21142 126440 (613702 002704 MOV CSR12,R2 ;SECOND AT LOWER 

; 
21146 ; INITIATE DMA CYCLES TO WORK WITH PMG COUNTER 
21146 126444 013737 177520 002730 4+: MOV BCSR, SAVBR ;STORE BCSR REGISTER 
21147 126452 012700 000001 MOV #B1T00 RO sFIRST VALUE FOR PMG 0.4msec 
21148 126456 050037 177520 S$: BIS RO,BCSR ;CHANGE PMG CONUTER 
21149 126462 005737 126564 TST 6$ ;CACHE RESET INTRUCTION 
21150 126466 005737 126566 TST 6$+2 ;AND THE FOLLOWING FEW 
21151 126472 005737 126570 TST 6$+4 ; 
21152 126476 005737 126572 TST 6$+6 ; . 
21153 126502 012714 001407 MOV #1407, (R4) ;DATI IN HOG MODE FOR HIGHER ONE 
21154 126506 005064 000002 CLR 2(R4) :CLEAR CSR2 
21155 126512 012764 002740 000004 MOV STEMP , 4(R4) ; ADDRESS TO START DATI 
21156 126520 012764 000000 000006 MOV #0, 6(R4) :C0 128 DATI'S IN HOG 
21157 126526 012712 001407 MOV #1407, (R2) ;DATO FOR LOWER L 
21158 126 000002 CLR (Re R2) ;CLEAR JUST IN CASE 
21159 126536 012762 002740 000004 MOV EMP. 4(R2) |USE THE SAME 
21160 126 012762 177777 000006 MOV Hats 6(R2) :DO JUST ONE DATO 
21161 126 005062 000010 CLR 10(R2) ;CLEAR DATA OF 2ND Q22BE 
21162 126556 012762 000001 000016 MOV $1, 16(R2) ;BOTH GO 
21163 126564 000005 6$: RESET ;STOP Q22BE AT R4 
21164 126 023762 002740 000010 CMP TEMP, 10(R2) ;SECOND OMA DONE? 
21165 126574 001001 BNE 7$ ;IF SET, BRANCH 
21166 126576 104127 ERROR +127 ;NO CYCLE STEALING 
21167 126600 062700 000003 7$: ADD $3,RO ;D0 # 
11 040037 177520 BIC RO,BCSR ;CLEAR PREVOIUS BITS IN BCSR 
21169 126610 022700 000007 CMP #7,RO ; ? 
21170 126614 002320 BGE S$ ;IF NOT, BRANCH 
el17@ ; TRY WITHOUT PMG COUNTER OPERATING 

; 
21174 126616 042737 000007 177520 BIC #7,BCSR :TURN OF PMG COUNTER 
21175 126624 005737 126726 TST 8$ i CACHE RESET FETCH 
21176 1 005737 126730 TST 8$+2 :AND THE FOLLOWING FEW 
21177 126634 005737 126732 TST 8$+4 
21178 126640 005737 126734 TST 8$+6 ; 
21179 126644 012714 001407 MOV #1407, (R4) :DATI IN HOG MODE FOR HIGHER ONE 
21186 126650 005064 000002 CLA 2 ;CLEAR 
21181 126654 012764 002740 000004 MOV STEMP,4(R4) ;ADDRESS TO START DATI 
21182 126662 012764 000000 000006 MOV $0, 6(R4 ;DO0 128 DATI’S IN HOG MODE 
21183 126670 012712 001407 MOV #1407, (R2) ;DATO FOR LOWER LEVEL ONE 
21184 126674 005062 000002 CLR 2(R2) ;CLEAR CRS2 OF 2ND 
21185 126700 012762 002740 000004 MOV STEMP ,4(R2) [USE THE SAME ADDRESS 





Ni5 
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TEST 


- PMG COUNTER 


21186 126706 
21187 126714 
21188 126720 
21189 126726 
21190 126730 
21191 126736 
21192 126740 
Stiss pods 
31195 126 
21196 

21197 126756 
21198 126764 
21199 126766 
21200 126772 
21201 126774 


21204 127000 
21205 


123727 
001005 
005737 
001402 
005337 


000205 
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SEQ 0402 
;D0 JUST ONE DATO 
;CLEAR DATA OF 2ND Q22BE 
‘TP NOT WORKING, STOPS 2ND 
; 
;2ND DMA HAPPENED? 
;IF YES, BRANCH 
;IN PMG COUNTER 
;RESTORE BCSR 
; if not APT, don't worry about 
: maintain cache routin pascnt 


; This VIREOP ROUTINE to provide common End of Pass exit point 


000006 MOV #177777 ,6(Re2) 
CLR 10(R2) 
053754 MOV #1,3SIMGOA 
8$: RESET 
000010 CMP TEMP , 10(R2) 
BEQ 9$ 
ERROR +127 
177520 9$: MOV SAVBR ,BCSR 
11$: NOP 
jmp $eop 
000001 VIREOP: CMPB $ENV, #1 
BNE 1$ 
TST CCHPAS 
BEQ 1$ 
DEC CCHPAS 
1$: rts r5 


nc 


B16 
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GLOBAL ERROR MESSAGES 


SEQ 0495 


.SBTTL GLOBAL ERROR MESSAGES 
21208 127 102 101 #123 EMi:  .ASCIZ /BASIC INSTRUCTION SET ERROR/ 
127 111 103 040 
127010 1112S 116—Sts«éd'B 
127013 124 122 125 
127046 = 103 d2# A 
127021 117 £116 040 
127024 123 105 124 
127027 040 105 122 
nose 12g 7122 
1270 000 
21209 1270 115 115 125 EM2:  .ASCIZ /MMU ERROR/ 
041 040 «105 ~&# 122 
127 ct: a a 
127047 000 | 
21210 127050 106 120 120 EM3: —° .ASCIZ /FPP ERROR/ 
127053 040 105 ~= 122 
127 a a 
127061 000 
21211 127 105 2 122 EM4:  .ASCIZ /ERROR IN READ-WRITE BITS OF CCR/ 
27 117s :122—Ssts«O 
127070 111 116 040 
127073 122 105 104 
127076 104 . 
17101 122 AAA 184 
71 105 102 
127107 = 11 . 
12711 040 117 106 
1271 040 103 103 
1271 122 000 
21212 127 106 117 122 EMS: | .ASCIZ /FORCE MISS WRITES TO CACHE/ 
1271 103 105 040 
1271 115 111s 
127138 123 040 &# 127 
1e7ise = ig2 4d 
127141 1 123 
127144 124 ~»#8 117 
127147, #103 101 103 
127152110 105000 
21213 1271 106 117 122 EM6:  .ASCIZ /FORCE MISS WRITE INVALIDATES CACHE/ 
127160 103 105 040 
le7igs 15 tAL 128 
127166 «©6128 s(«—~<“i«é‘«i' 
——lUrllC OC 
127174 105 O40 11 
1777, 6126101 
7 114 = iii —Stis«éi208 
—_— = Om!hCU 
127210 123 040 103 
127218 101 103 ~&# 110 
127216 105 000 
21214 127220 «125.=2's«d16—Ss—«i0S)-s«#EM7:~—S. ASCIZ = /UNEXPECTED PARITY INTERRUPT/ 
127228 130's—«a120st—éi208 
27 103. «124—Ss«105 
127231 104 040 
7234 «=6101)2Ssa122Ss—D1 


127237 124 131 





— me 


C16 
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GLOBAL ERROR MESSAGES 


>€ W 04¢ . 


127 111 116 124 
127245 105 122 122 
127 125 120 124 
127253 000 
21215 127 124 101 107 EM10: .ASCIZ /TAG PARITY ERROR/ 
127257 040 120 101 
127 122 111 
12726 131 040 105 
127270 122 122 117 
127273 122 000 
21216 127275 104 101 124 EMil: .ASCIZ /DATA PARITY ERROR/ 
127300 101 040 120 
101 122 111 
127 124 131 040 
is eta 105 122 122 
7314 117 122 000 
21217 7 114 117 127 EMi2:  .ASCIZ /LOW BYTE PARITY ERROR/ 
040 102 131 
l2 124 105 040 
1273 120 101 122 
se 111 124 131 
le 040 105 122 
127341 122 117 122 
127344 000 
21218 127345 110 111 107 EM13:  .ASCIZ /HIGH BYTE PARITY ERROR/ 
l2 110 040 102 
127353 131 124 105 
1 040 120 101 
127361 122 111 124 
127 131 040 105 
27367 122 122 117 
serie 156 000 
21219 12737 1 122 122 €M14: .ASCIZ /ERROR IN DATA PATH/ 
127377 its 42 040 


127 04 
127410 101 040 120 
127413 101 124 110 
ote. 000 
21220 15743 106 iy 138 EM15: .ASCIZ /FORCE MISS READS FROM CACHE/ 


27 103 1 

2 il 111 

1274 12 122 
1274 1 101 1 
1274 123 106 
127441 117 115 


74 
21221 137488 106 un! 122 €M16: .ASCIZ /FORCE MISS READS FROM CACHE AND MISS/ 





D16 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VO5.03 Friday 26-Mar-86 13:50 Page 65-2 
GLOBAL ERROR MESSAGES 


127503 103 10 105 
ig tact 040 101 116 
il 104 115 
+ereis aes 123 123 
21222 127820 105 122 122 EMi7: =.ASCIZ \ERROR IN RECORDING HITS IN HIT/MISS\ 
117 122 040 
127526 111 16 
1<¢ 105 103 
11 122 104 
le 111 116 107 
12 040 110 111 
124 123 040 
iit 116 040 
$k 111 124 
7 115 111 
13s 123 000 
21223 12 122 111 EM20: .ASCIZ /WRITE BYTE ALLOCATES CACHE/ 
127567 124 105 040 
138 131 124 
i 1 040 101 
7 114 114 117 
60 103 101 124 
fet = «108 tk 
rela 110 105 000 
21224 ere 7  H 18 rT EM21 -ASCIZ /WRITE BYTE HIT DOES NOT RECORD HIT/ 
127 102 131 124 
1276 105 110 
Ls 111 124 040 
7 104 117 105 
7641 123 040 116 
127644 117 124 040 
127647 105 103 
127 11 122 104 
: 7 110 111 
7 124 000 
21225 1 r : 13t es EM22 -ASCIZ /BYTES REVERSED ON WRITE CYCLES/ 
2716 1 105 126 
7 1 122 123 
76 1 104 040 
7 117 116 040 
7 7 122 111 
77 : 1 133 103 
1577 114 105 


1 000 
21226 13 1 ion 117 16 EM23: .ASCIZ /CONDITIONAL BYPASS DOESN’T INVALIDATE CACHE/ 





SEQ 0405 


E16 
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GLOBAL ERROR MESSAGES 


21227 


21228 


21229 


21230 


21231 





S 
— 
Nee Qu 


> 


SSSSESS 
Ssusescs 


oo he i ee ee ee ee eee eee ee pee 


SESSSSSSSSSSS 


7 
~ 


ie 
iaBie 


i 


.ASCIZ 


- ASCIZ 


.ASCIZ 


.ASCIZ 


/HITS RECORDED AFTER FLUSHING CACHE/ 


/BYPASS DOESN'T INVALIDATE CACHE/ 


/MSER DOES NOT CLEAR ON WRITE REFERENCE/ 


/PARITY ERROR DON'T CAUSE A MISS/ 


/PARITY ERROR DON'T SET MSER WITH CCR<7>=0/ 


SEQ 0406 


PO 


F 16 


65-4 
. Page 
-Mar-86 13:30 

vO5.03 Friday 28-Mar 

MACRO . 

DIAG. 

CLUSTER 

0 KDJ11-6 

COKDAF 


SEQ 0407 
OBAL ERROR MESSAGES us o 
: $53 5 Ct«L DS 117 
Hi tie ios 105 
: : 5 i ARITY ERROR IGNORED/ 
24 ie : 
ie : iE O60 35 EM31: ASCIZ 
| : ERROR E/ 
2 : : : GNORED ON LOW BYT 
a tii 109 , 
: i i 009 ASCIZ /PARITY 
: $ 198 104 ‘3 EM32: z 
13¢ 0s 105 i i 
21233 5 { tit i : 
0317 «4122 ities 
| : ; fs HIGH BYTE/ 
5s 105 : 6 040 ; : 
| : : : if /PARITY ERROR 
7, 
14 : 
| | i 195 ‘38 EM33: ASC 
oe i i 8 ones 
“ime i ie 8k 
x ) 049 117 iss 
me oe he 
7 " | 
| : é C DOESN'T WORK 
2 ; - ABORT LOGI 
: i a /PARITY 
i i EM34: ~ASCIZ 
130408 200 — 
eS eae HE 
a oom OR 
1 
il : 
me i 
| f Hy = ASCIZ /MSER NOT SET 
| its a00 105 EMS35 , 
eS oes more 
040 
; 1 
ea 130484 it) is 124 
Loses 





G16 


COKDAFO KDJ11-8 CLUSTER DIAG. MACRO V0O5.03 Friday 28-Mar-86 15:50 Page 65-5 
GLOBAL ERROR MESSAGES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
i 
1 
1 
1 
i 


21239 


RSS 


5OOC =~ 
SsEx 


3 . 
~ 


a 
~ 
Seca 


| oo Dor +3 ~cooc° 
Fre OC 
o = 


~ 


sSeesesess 
ag 


“ne 


~~ 
ae 


71 


S ~J 
GVPvoe 


105 
131 


122 
131 


.ASCIZ 


. ASCIZ 


. ASCIZ 


SEQ 0408 


/PARITY INTERRUPT LOGIC DOESN'T WORK/ 


/NXM AND PARITY ABORT DIN'T HAPPEN/ 


/PARITY ABORT NOT BLOCKED BY NXM TRAP/ 


/MULTI-PROCESSOR HOOK INSTRUCTION DOESN'T CAUSE MISS/ 





H16 
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: 


21242 


21243 


21244 


21245 


130 


SSssrAzSs 


SSSesechessscketss 


oO ooo 
~~ ar 


rt 8 3 


~~ 
~ 


oo 


Oe ee pee 
— 


beh er 
Gourn 


SguanecaeNysecs 
SZRKASSS NERS 


oboe 
aS 


: 


1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 


GLOBAL ERROR MESSAGES 


SE5558 


mhrroorrtoo 
ase Ae 


BREE 


here 
ree 
vir~ro~ 


ERERE 


SRBS285 


oO 


me 
Ht 


° 
— 


SERSER 


bas 
aT) 


SReosSs RRRERSER B 


— 
— 
~ 


é 


EM46: .ASCIZ /HIT RECORDED FOR A LOCATION THAT SHOULD NOT BE IN CACHE/ 


-ASCIZ 


. ASCIZ 


.ASCIZ 


» ASCIZ 


/ERROR IN PARITY LOGIC/ 


ERROR IN CACHE DATA RAMS/ 


ERROR IN NXM IN STANDALONE MODE/ 


\ERROR IN RECORDING HITS THROUGH HIT/MISS REGISTER\ 


3EQ 0409 





116 
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GLOBAL ERROR MESSAGES 


SEQ 0410 


131200 123 110 117 
tikes 125 114 104 
13 040 116 117 
131211 124 040 102 
131519 105 040 111 
1 7 1 040 103 
a a 
21246 1 115 111 123 €M47: .ASCIZ /MISS RECORDED FOR A LOCATION THAT SHOULD BE IN CACHE/ 

1 123 040 122 
1 105 103 117 
1 122 104 105 
tai5ee 104 040 106 
131246 117 122 040 
siSah 10 040 114 
11 103 101 
7 124 111 117 

116 040 


iA 040 123 110 
117 125 114 
76 104 040 102 
1 105 040 111 
304 ibe 040 103 
3g 105 ots 110 
21247 4 1 122 EMS0 -ASCIZ /ERROR IN TAG STORE/ 


~ 
— 
- 
~ 
SS 
% 


111 116 
124 101 107 
040 123 124 
204 122 105 
21248 105 122 128 EM51: .ASCIZ /ERROR PCR READ-WRITE BITS/ 


117 122 

438 103 122 

122 105 

10 104 055 

12 1 111 

ie it ize 
i 000 


hh ee ee ee ee ee eee ee 


BUI WAI OIG II II GH I CO 


RRR RRP RRR RRR Ree RR Pere re 


21249 : 1 105 122 122 EMS2: .ASCIZ /ERROR IN BCSR READ-WRITE BITS/ 
137 117 122 040 
131377 111 116 040 
a eS 
13141 168 101 104 
13141 127 122 


102 111 
131 124 123 000 
21250 iH 7 122 im = EMS3: .ASCIZ /RESET DOESN’T CLEAR BCSR<4>/ 








J16 
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GLOBAL ERRO® MESSAGES 
114 


21251 


: 


21253 


tw 
8 
bo he ee he pe oh bo ho bh be ee ee 


21255 


ee ee 
RRR eee re — 
mee ~“ 
VES RS ARAS aS 


SESECSE 


Nth 


IU 
ashe 


SILL SSE 


POPOL OTIS OTOL AL OTOL AL OL OL ATOLL OL AL OL DL LOLOL OL LOT OLN 


San SEESRERESES SE 


131663 
666 


101 
102 


& ak 


SSSRRSERER 


— 
Nm 
Ww 


SER3 


. ASCIZ 


. ASCIZ 


.ASCIZ 


. ASCIZ 


. ASCIZ 


/CHECKSUM ERROR IN 16-BIT ROM / 


/CHECKSUM ERROR IN 8-BIT ROM/ 


/TIMEOUT READING LKS/ 


/LKS<07> DOES NOT BECOME 1/ 


/WRITE REFERENCE DOESN'T CLEAR LKS<07>/ 


JILLEGAL LKS INTERRUPTS/ 





SEQ 0411 





K16 
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GLOBAL ERROR MESSAGES 


SEQ 0412 


131712 113 123 040 
3182 11 116 124 
1317 1 122 122 
131723 120 124 
131368 123 000 

21257 131 120 ice 117 EM62: .ASCIZ /PROCESSOR INTERRUPTS DON'T CLEAR LKS<07>/ 
131733 103 1 123 
131736 123 117 122 
131741 040 i 116 
131744 124 1 122 
131747 122 125 120 
1 1738 124 123 040 
131 104 117 116 
131760 047 124 040 
131363 103 114 105 
131766 101 122 040 
131771 114 113 123 
131774 074 060 067 
131777 076 000 

21256 1 1 114 113 123 EM63: $$ .ASCIZ /LKS READY DOESN'T GO LOW/ 
1 040 122 105 
1 7 101 104 131 
1 g 040 104 117 
1 105 123 116 
1 047 124 
1 107 117 
: ane 117 127 

21259 1 127 122 117 EM64: .ASCIZ /WRONG NUMBER OF LKS INTERRUPTS/ 
1 116 107 040 
1 116 125 115 
132043 102 105 122 
: 040 117 106 

1 040 114 113 

1 123 040 111 
1 138 124 105 
: 122 125 
i 488 124 123 

21260 132071 114 113 123 EM65:  .ASCIZ /LKS INTERRUPTS HAPPEN AT WRONG PRIORITY/ 
132074 040 111 116 
132077 124 105 122 
1321 122 125 120 
1321 124 123 040 
132110 110 101 120 
132113 120 105 116 
1 13s 040 101 124 
1 isa 040 127 122 
132 117 116 107 
132127 040 120 122 
13st 111 117 122 
1 111 131 
132140 000 

21261 132141 102 103 123 EM66 -ASCIZ /BCSR<12> DOES NOT DISABLES LKS/ 
132144 122 074 1 
132147 062 076 
132152 104 117 105 





L16 
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GLOBAL ERROR MESSAGES = | 
132155 123 040 116 
1321 124 040 
132163 104 +43 123 


1 
21262 132200 102 103 123 EM67: .ASCIZ /BCSR<13> DOESN‘'T SET LKS<06>/ 


132206 063 076 
132211 104 117 105 
132214 123 116 047 
132217 124 040 123 
1 105 124 
1 114 113 123 
1 074 060 
1 3 076 000 
21263 132235 122 105 123 EM70: .ASCIZ /RESET DOESN'T SET LKS<7>/ 
1 105 124 040 
1 3 104 117 105 
1 123 116 7 
iassat ie ee 123 
eh Ow OR 
135565 000 
21264 1 122 105 123. EM71 .ASCIZ /RESET DOESN'T CLEAR LKS<06>/ 
132271 105 124 
132274 104 117 105 
132277 123 116 
1 040 103 
1 114 105 101 
Ratt 1 114 
132313 11 123 074 
18s : one 076 
21265 133 124 111 115 EM72:  .ASCIZ /TIMEQUT READING SLU REGISTERS/ 
1 105 117 125 
1 124 040 122 
es fe fe 
13534 040 123 114 
125 040 
i 7 105 107 111 
1 123 124 1 
1 122 123 000 
21266 132360 105 122 122 EM73:  .ASCIZ /ERROR IN XMIT READY/ 
1 see 117 122 040 
1 ill 116 
132371 1 115 111 
132374 124 122 
77 105 101 1 
1 131 000 
21267 : 132 103 pt EM74: .ASCIZ /RCSR<7> DOESN’T BECOME 1/ 





M16 
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GLOBAL ERROR MESSAGES 


21268 


21269 


21270 


21271 


21272 


21273 


Hes 
ee 
Hate 


132440 


5S 


ne 


i i i ee ee ep pe pe pe 


: 


pisighenicie 
EFEgE8 


: 


116 


EM100: 


EM101: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


. ASCIZ 


/WRONG CHARACTER RECEIVED/ 


/RCSR<O7> NCT CLEARED AFTER READING RBUF/ 


/XCSR<O7> NOT SET ON RESET/ 


/RCSR<O7> NOT CLEARED ON RESET/ 


/SLU INTERRUPTS HAPPEN AT 4/ 


/RESET DOES NOT CLEAR PROPER BITS IN SLU REGISTERS/ 


SEQ 0414 
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GLOBAL ERROR MESSAGES 


SEG 0415 


8 
R 


4 
~ 
~J 


104 


CL ty CF ty ty ty ey. 
& 


g 
RESREESE 


rs 
- 
~ 


Sy tit 


saeeee 


SRERERRESE 


RESRERERESERTERSSAS 
RRREE 


BRe 


EM103: .ASCIZ /TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>/ 


oS 
= 


21274 


te-tt tt et tt tt ct 
oO 
7 
~ 
uw 


Pad ed ed 
eere 


BERRA R aE Ree ee Rea aee rea dareaadaecccceuceceaueceeeatcce bees 
SEUSESRE ESSE SRESGRE ROME SONSELESRES : 
Es 
Se 


SERRE 


= RRR 


St 
~ 
y 


Russ 
° 


t 
Lt 
t 
t 
t 
i 


~ 7 
~ 


21275 EM104;: .ASCIZ /RECEIVE INTERRUPTS DON’T CLEAR RCSR<07>/ 


~ 


oie, 


ms 


105 EM105: .ASCIZ /BREAK CONDITION DOES NOT SET RBUF PROPERLY/ 


7 = a 


SSRIS 


Sop 
HaAuo 


Mh od Cb Cod Le ob Cab Cod oh ab ed Le oh Cd dh bd dd 


s 
8 
ySRERSH 
g 





: 
5 


i 
~ 
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GLOBAL ERROR MESSAGES 


~ 
~_ 
~ 
— 
a 


102 125 €M106: .ASCIZ /RBUF <15-11> WASN'T CLEARED ON NEXT CHARACTER/ 





SSSSUVARSS 


oie 
SERSRESSESHSS 
g 


a 





1 
1 
1 
1 
1 
: 130 040 
103 110 101 
10 122 101 103 
16 ase 105 122 
21278 1 + 123 114 125 €M107: .ASCIZ /SLU INTERRUPTS DON’T HAPPEN/ 
i 12 2¢ 040 11 116 
32¢ . 124 1 122 
13323¢ 122 125 120 
ala? 
: 110 101 120 
36 7 120 105 116 | 
21279 13395) tos 122 122 EM110: .ASCIZ /ERROR IN WRITING TO SLU REGISTERS/ 
i 326 1370 ass 
- 57 124 111 116 
1 107 040 124 
1 3 117 040 123 
3 30¢ | i a 
1 +t J 105 107 
1333¢ il 123 124 
RET ane 122 123 
: 515 106 lil 122 EM1i1: .ASCIZ /FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND/ 
3520 123 124 040 
133323 103 110 101 
13332¢ 122 101 103 
1333: ase 105 122 
1 sh 127 101 
1333: 123 040 116 
isssas it?s SS 
ao my 
1333S¢ 122 122 125 
1333S: 136 040 102 
1333S¢ 1 040 124 
133361 = 110 «105s 
1333 123 105 103 
: Ss 7 117 116 104 


SEQ 0416 
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i 


EM1li2: .ASCIZ /OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF/ 


~ 
a 
a 
R 
8 


133376 122 122 125 
1 1 116 103 
133404 117 116 104 
133407 111 111 
ae 
133420 123 116 
133423 117 124 040 
1 12 105 124 
1 1 040 120 
1 117 120 105 
133437 122 040 102 
1 111 124 
ES res 040 111 116 
ie oe ig 
2 138456 ia. 1s 105 EM113: .ASCIZ / BITS WERE NOT CLEARED ON THE NEXT CHARACTER/ 
13 116 040 102 
1 7 111 124 
1 Le 040 127 105 
1334 122 105 040 
1 116 117 124 
1 040 103 114 
13 105 101 122 
133511 105 104 040 
133514 117 116 040 
3 17 ase 110 105 
116 105 
130 124 
3 103 119 101 


EM114: .ASCIZ \ERROR ON XCSR<2>\ 


: 


PPO bhe pepe bebe bebe bape bebe pepe bebe pepe beheperepepspope pe 


ELEC REEEeS Sages gaaseegs 
58 


EMii5: .ASCIZ /ERROR IN TAG STORE FROM STANDALONE MODE/ 


: 


: 


000 
ae +33 101 EM116: .ASCIZ /DMA TAG PARITY DOES NOT GENERATE PROPER RESPONSE,’ 
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GLOBAL ERROR MESSAGES 


21287 


ee eae eae eee are 


SSSRERREE ES RoebESEC® 


See% 
anes 


EM117: 


EM120: 


EM121: 


-ASCIZ /MSER<13>NOT SET IN STANDALONE MODE/ 


-ASCIZ /DOMA WRITE HITS DON’T INVALIDATE CACHE/ 


-ASCIZ /IN BLOCK MODE ON WRITE DMA HITS NOT EVERYTHING IS INVALIDATED/ 


SEQ 0418 


F 1 
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GLOBAL ERROR MESSAGES 


134121 


21289 134123 


1 

134131 
134134 
134137 


134143 
150 


— 


21290 134151 


21291 


fw 
8 
ae be he fe ae fe fe he he be bo he be fe be be be be ho ho bo ho he po po po po pe 


21293 


134154 
157 


Sees 


SESE 


aSSeaanES 


SN 
SAN 


eh pe pepe 


$ 


es 


aeeaenenees 


peoperes 


SRES8 ShHRERE 


or 
ae 


BRRER 


EMi22: 


EM1i23: 


EM124: 


-ASCIZ /READ DMA HIT IS WRONG/ 


-ASCIZ /ERROR IN Q22BE DMA CYCLES/ 


-ASCIZ /PIRQ INTERRUPTS DON’T TAKE PRIORITY OVER Q@ BUS INTERRUPTS/ 


-ASCIZ /NO POWER DOWN TRAP TO 24 OCCUR/ 


-ASCIZ /ERROR DOING Q22BE INTERRUPTS/ 


SEQ 0419 
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GLOBAL ERROR MESSAGES 


134 
nem tsa374 


21296 1 


1 
21297 134510 


it] 
105 
125 
123 


hoe 
att 


ted me ped ed ed 
SBRSReSEsek 
as SSSSERRE 


EERE 


RaSS8 BREE 


EM127: 


EM130: 


EM131: 


EMi32: 


EM133: 


- ASCIZ 


. ASCIZ 


. ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


ZERROR IN OPERATION OF PMG COUNTER/ 


/UNEXPECTED TRAP TO 4/ 


ERROR WRITING TO LKS<6>/ 


ERROR IN MAINTENANCE REGISTER/ 


/EEROM TYPE ERROR/ 


/READ OR WRITE EEROM ERROR/ 


SEQ 0420 


H1 
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SEQ 0421 
GLOBAL ERROR MESSAGES 
21301 134621 040 124 105 ODH1: -ASCII / TEST ERROR/<15><12> 
134624 123 124 011 
134627 105 122 122 
1346 117 122 015 
13463 O12 
21302 134636 040 040 043 -ASCIZ / #@# PC/ 
134641 011 040 120 
134644 103 000 
21303 134646 040 124 105 DH4 -ASCII / TEST ERROR EXPCTED RECEIVED/<15><12> 
134651 123 124 O11 
tacky 105 122 122 
134657 117 122 011 
1 105 130 120 
13466 103 124 105 
134670 104 011 122 
134673 105 103 105 
134676 111 126 105 
134701 104 015 012 
21304 134704 040 040 043 -ASCIZ / #@ PC DATA DATA/ 
134707 01 040 120 
712 10 011 040 
134950 104 101 124 
7 101 040 040 
134723 040 040 040 
1347 104 101 124 
134 101 000 
21305 134 040 124 105 DHS: -ASCII / TEST ERROR HITMIS DATA IN DATA IN/<15><12> 
134736 123 124 O11 
134741 05 122 
134744 117 122 O11 
134747 110 111 124 
115 111 123 
134 011 104 101 
1347 124 101 
1347 iat 116 011 


040 
134774 116 015 012 


21306 134777 040 040 043 -ASCIZ / #@ PC REG. CACHE MEMORY/ 
1 011 120 
1 103 011 
135010 le 105 107 
135013 011 103 
135016 101 103 110 


1 7 122 131 000 
21307 1 040 124 105 DH?7: ASCII / TEST ERROR ADDRESS MSER/<15><12> 
135035 123 124 011 
fe i ie 
135046 101 104 
135054 123 ont 115 
1 123 105 
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SEQ 0422 
GLOBAL ERROR MESSAGES 
21308 135064 040 040 043 -ASCIZ / #@ PC ACCESSED/ 
135067 011 120 
135072 103 O11 101 
75 103 103 1 
135100 123 123 105 
135103 104 000 
21309 135105 040 124 105 DH24: .ASCII / TEST ERROR NUMBER/<15><12> 
135110 123 124 011 
135113 105 122 122 
135116 117 122 O11 
135121 116 125 115 
135124 102 105 122 
135 015 012 
21310 135131 040 040 043 -ASCIZ / #@ PC OF HITS/ 
135 O11 040 
135137 103 011 117 
135142 106 040 110 
iaatse 111 124 
21311 135151 105 122 122 DH27: ~.ASCII \ERROR ERROR MSER HIT/MISS\<15><12> 
135154 117 122 011 
135157 105 
135162 117 011 
135165 115 123 1 
135170 122 011 110 
135173 111 7 
135176 115 111 123 
1 1 123 015 012 
21312 135204 040 040 043 -ASCIZ / #@ PC/ 
135207 011 040 120 
135212 103 000 
21313 135214 040 124 105 DH41 -ASCII / TEST ERROR INSTRUCTION/<15><12> 
138535 123 124 O11 
13 105 122 122 
135225 117 122 O11 
135230 111 116 123 
135233 124 122 125 
135236 103 124 111 
135241 117 116 015 
135244 012 
21314 135245 040 040 043 -ASCIZ / # PC OPCODE/ 
135250 011 040 120 
iveser 103 011 040 
1 117 120 103 
teases a? 104 105 
21315 1385¢3 124 105 DH43:  .ASCII / TEST ERROR EXPECTD RECEIVD CACHE/<15><12> 
135270 123 124 O11 
135273 105 122 122 
135276 117 122 O11 
1 1 105 130 120 
135304 105 103 124 
1 7 104 011 122 
1 12 105 103 105 
1 ili 126 104 
135320 011 103 101 
135323 103 110 105 
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SEQ 0423 
GLOBAL ERROR MESSAGES 
135326 015 012 
21316 135330 040 040 043 -ASCIZ / #@ PC DATA DATA LOCATION/ 
135333 01 120 
135336 10 011 
135341 104 101 124 
135344 101 011 
135347 1 101 


Hess 3 
21317 1 5 040 124 105 DH47: .ASCII / TEST ERROR ADDRESS ADDRESS/<15><12> 


135373 1 122 
135376 117 122 011 
1 1 101 104 104 
13 122 105 123 
135407 123 011 101 
135412 104 104 122 
135415 105 123 123 
3 015 012 
21318 15 040 040 043 -ASCIZ / #@ PC <21-16> <15-0>/ 
011 040 
135430 103 011 074 
135433 062 061 
35436 061 066 076 
135441 011 por 074 
pr red 060 076 000 
21319 135452 040 124 105 DH65: .ASCII / TEST ERROR PRIORITY/<15><12> 
135455 123 124 Oil 
1 105 122 122 
135463 117 122 011 
122 1i1 
135471 117 122 111 
135474 131 015 
135477 012 
21320 1 040 040 043 -ASCIZ / # PC LEVEL/ 
135503 011 040 120 
13 103 011 114 
135511 1 126 105 
135514 114 000 
21321 135516 040 124 105 DH72: .ASCII / TEST ERROR ADDRESS/<15><12> 
1 1 123 124 O11 
1 105 122 122 
1 7 117 122 011 
1 101 104 104 
1 105 123 
1 123 015 012 
21322 1 040 040 043 -ASCIZ / @ PC FAILED/ 
135546 011 040 120 
1 103 011 
1 10 iii 114 
i 1 104 000 
21323 1 040 124 i05 DH105: .ASCII / TEST ERROR RBUF/<15><12> 
i 123 124 O11 


K1 
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GLOBAL ERROR MESSAGES 


35573 117 122 
135576 122 102 
35601 106 015 
21324 135604 040 040 
135607 01 040 
135612 10 000 
21325 135614 040 124 
135617 123 124 
135622 105 122 
135625 117 122 
135630 115 123 
135633 122 011 
135636 104 104 
135641 105 123 
teeeae 015 012 
21326 13 040 040 
135651 O11 040 
135654 103 040 
135657 011 101 
1 103 105 
135665 123 105 
135670 000 
21327 135671 040 124 
135674 123 124 
135677 105 122 
1357 117 122 
1357 040 043 
135710 157 146 
135713 O11 040 
135716 040 104 
135721 124 101 
135724 040 120 
135727 122 040 
35 040 101 
13573 104 122 
135740 123 123 
135743 012 
21328 135744 040 040 
135747 011 040 
13 103 040 
fe ie ie 
ee 
13871 105 122 
135774 040 040 
135777 040 122 
132088 101 104 
1 040 040 
136010 040 040 
136013 040 101 
136016 103 105 
136021 3 105 
136024 


21 


DH115: 


DH134: 


21 
21331 136026 001162 001116 000000 DTI: 


. ASCIZ 


-ASCIT 


- ASCIZ 


- ASCII 


-ASCIZ / # PC 


-EVEN 
. WORD 


4 # PC/ 


/ TEST ERROR MSER ADDRESS/<15><12> 


ACCESSED/ 


/ TEST ERROR # of DATA PCR 


ERRORS PATTERN READ 


$TMP1, SERRPC,O 


ADDRESS/<15><12> 


ACCESSED/ 


SEQ 0424 
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21332 pret 
21333 136046 
21334 136062 

136070 
21335 136074 


21336 tieite 


21338 1361 
21339 136142 
136150 
21340 136154 
136162 
21341 ieetre 
21342 136200 
136206 
21343 Eres, 
21344 : 
21345 136236 
136244 
21346 136250 
136256 
21347 136262 
136270 
21348 : 72 
21349 136304 
136312 
21350 136314 
21351 1363 
21352 1363 


1 
136352 


001116 
000000 
001116 
001124 
001116 
000000 
001116 
000000 
001116 
000000 
001116 
001116 
000000 
001116 
000000 
001116 
001116 
001122 
001116 
000000 
001116 
000000 
001116 
000000 
001116 
000000 
001116 
000000 
001116 
001116 
000000 
001116 
001116 
001122 
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001124 
001126 


172354 


001124 
001124 
001124 
001124 
001124 
177562 
suis 


000000 
003022 
000004 


DT4: 

OTS: 

DT7: 

DT14: 
DT1i7: 
DT24: 
DT27: 
DT35: 
DT41: 
DT43: 
DT47: 
DTSO: 
DTS1: 
DTS2: 
DT64: 
DT6S: 
DT75: 


DT105: 
OT115: 


DT130: 
DT134: 


SEQ 0425 
$TMP1, $ERRPC,R1,CCR,O 
$TMP1, SERRPC,R2,R1,$GDDAT,.O 
$TMP1, $ERRPC , $BDADR ,MSER ,O 
$TMP1, S$ERRPC, $GDDAT, TSTLOC,0 
$TMP1, $ERRPC, $GDDAT ,RECDAT ,O 
$TMP1, S$ERRPC,R3,0 
$TMP1, $ERRPC ,MSER,R3,0 
$TMP1, $ERRPC, $GDDAT ,MSER,O 
$TMP1, $ERRPC, $BDDAT ,O 
$TMP1, $ERRPC,R1,RECDAT, $BDADR,O 
$TMP1, SERRPC,KIPAR6, $BDADR ,O 
$TMP1, $ERRPC,R1, $BDADR,O 
$TMP1, SERRPC, $GDDAT ,PCR,O 
$TMP1, $ERRPC, $GDDAT ,BCSR,O 
$TMP1, $ERRPC, $GDDAT ,LKSFL,O 
$TMP1, $ERRPC, $GDDAT ,O 
$TMP1, $ERRPC, $GDDAT , $BDDAT ,O 
$TMP1, SERRPC ,RBUF ,0 
$TMP1, SERRPC , $BODAT , KIPARG, $BDADR ,O 


$TMP1, $BDADR,O 
$TMP1, SERRPC ,ERRCNT ,R3, $BDDAT ,R4, $BDADR,O 
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MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 
354 

21355 
356 

21357 
58 


1 0050 62 
21367 136362 113737 001102 001162 
104401 75 


21 Le 36400 153700 001114 
ae 136404 001004 

ai3r4 136406 013746 001116 
5137 136412 104402 

21377 136414 

21378 136416 005300 

21379 136420 006300 

21380 136422 006300 

21381 136424 006300 

staat 1 062700 0013524 
213835 136432 012037 136442 
21384 136436 001404 

Sitar 136440 104401 

el 136442 000000 

21387 136444 104401 001175 
21 prety 012037 

21 136454 001404 

Sitar 136456 104401 

51 92 i 104401 001175 
Sik9 13466 011000 

21 136470 004 


136544 


7 001160 
tyes 136536 053737 001160 136544 
21408 136544 010046 
21409 1 
21410 136550 000401 


: 


.SBTTL MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 
gf FSSEAESSESESSASESESESSSSESEAKESAS SS SESAAKESARRAESKSSERERERASRESALERESEERALES 

*THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 
SERROR IS 10 BE REPORTED. IT THEN OBT FROM THE 
: #AND REPORTS THE APPROPRIATE INFORMATION CONCERNING T 


t eTHE ONLY DIFFERENCE BETWEEN 1HIS ROUTINE AND THE ORIGINAL “$ERRTYP” 
;*SYSMAC IS THAT YOU CAN PASS INFORMATION IN GENERAL PURPO 

; INE. THE GENERAL PURPOSE REGISTERS USED ARE TO BE SPECIFIED IN DT+ 
;*#FORMAT. RO SHOULD NOT BE USED. 


ERTYPE: 
CLR $TMP1 ;;JUST CLEAR IT 
MOVB  $TSTNM,$TMP1 §;;STORE TEST NUMBER 
TYPE $ ;; "CARRIAGE RETURN” & “LINE FEED” 
MOV RO, -(SP) ;:SAVE RO 
CLR RO ;;PICKUP THE ITEM INDEX 
BISB © A#S TEMP, -2O 
k peer :sIF ITEM NUMBER IS ZERO, JUST 
;TYPE THE PC OF THE ERROR 
MOV $ERRPC, -(SP) : sSAVE $ERRPC FOR TYPEOQUT 
RROR ADDRESS 
TyPOC a +360 TYPE--OCTAL ASCIICALL DIGITS) 
1$: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
ASL RO 3 WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #$ERRTB,RO ::FORM TABLE POINTER 
MOV (RO)+,2$ CKUP “ERROR MESSAGE” POINTER 
BEG. 3$ ‘SKIP TYPEOUT IF NO POINTER 
2$: .WORD 0 ; ERROR MESSAGE POINTER GOES HERE 
TYPE $CRLF >; "CARRIAGE RETURN” & “LINE FEED” 
3$: MOV (RO)+,4$ ;;PICKUP "DATA HEADER” POINT 
BEQ 5$ 33 TYPEOUT I 
TYPE ;;TYPE THE “DAT " 
4s: .WORD 0 z HEADER" PO 
TYPE $CRLF ; "CARRIAGE RETURN” & “LINE FEED” 
S$: MOV (RO),RO : sPICKUP “DATA TABLE” POINTER 
BNE 7$ ;;GO TYPE THE DATA 
6$: MOV (SP )+ »RO ; ; RO 
T $CRLF >; "CARRIAGE RETURN” & “LINE FEED” 
- RTS PC 33 
CMP (RO), #5 ;;GENERAL PURPOSE REGISTER? 
BHI 9$ ‘SIF NOT, GO TYPE DATA 
BIC #B1T8!BIT7!BIT6,8$ : CLEAR BITS FOR SOURCE REGISTER 
MOV (RO), $TMPO : SAVE (RO) 
SWAB =: $ TMPO :;GET REGISTER NUMBER TO HIGH BYTE 
ASR THEO ;IGET REGISTER NUMBER TO BITS 8-6 
BIS $TMPO,8$ ::SET BITS IN MOV INSTRUCTION 
;ACCORDING TO REGISTER NUMBER 
8$: MOV RO, -(SP) ;tMOVE CONTEXT OF REGISTER TO STACK 
TST (RO)+ ; ;ADVANCE POINTER 
BR 10$ ;3G0 TYPE 


“ERROR TABLE” ($ERRTB), 
THE ERROR. 


FROM 
SE REGISTERS TO THIS 


SEQ 0426 
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21411 136552 
21412 136554 


8 
21419 
420 


013046 
04402 


012701 
7 


136570 


040 # 000 


SEQ 0427 
9$: MOV a(RO)+,-(SP) :sIF NOT OT GPR SAVE @(RO)+ FOR TYPEOUT 
10$:  TYPOC --OCT TAL L ASCI (ALL DIGITS) 
Ist CRO) Is THERE AND HER NUMBER? 
TYPE ,iis S:TYPE TWOC2) SPACES 


BR 
11$: -ASCIZ / / 
-EVEN 


;;TWOC2) SPACES 


.-SBTTL GLOBAL SUBROUTINES SECTION 


; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 

bee 
; FUNCTIONAL DESCRIPTION 

: SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS 

; INPUTS: NONE 

; OUTPUTS: NONE 


; SUBORDINATE ROUTINES USED: LOAD PARS 
; LOAD PDRS 


; FUNCTIONAL SIDE EFFECTS: NONE 


; CALLING SEQUENCE: JSR PC, INITMM 
INITMM: HOV #172240, RL ;BASE ADDRESS OF SIPARS 
MOV #172260,R1 ;BASE ADDRESS OF SDPARS 
JSR LDPARS 
HOV #172340,R1 ;BASE ADDRESS OF KIPARS 
HOV #172360,R1 ;BASE ADDRESS OF KDPARS 
MOV #177640,R1 ;BASE ADDRESS OF UIPARS 
HOV #177660,R1 ;BASE ADDRESS OF UDPARS 
HOV #177600,R1 ;BASE ADDRESS OF UIPDRS 
HOV #177620,R1 ;BASE ADDRESS OF UDPDRS 
HOV #172300,R1 ;BASE ADDRESS OF KIPDRS 
MOV #172320,R1 ;BASE ADDRESS OF KDPDRS 
JSR PC, LOPDRS 
HOV #172200,R1 ;BASE ADDRESS OF SIPDRS 
MOV #172220,R1 ;BASE ADDRESS OF SDPDRS 
JSR PC, LOPDRS 
RTS PC ; RETURN 


Be 
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$1450 ; FUNCTIONAL DESCRIPTION: 

147 ; Ss SUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISTERS ( 
147 THES ROUTINE MILL INITIALIZE 8 PARS 

1474 137777 (0-24K). 
sii ADORESS 200000 TO 217777 AND PAR 7 
Stary 


INPUTS: 
Ri CONTAINS THE BASE ADDRESS OF THE NEXT 8 PARS TO BE INITIALIZED 


for 
eee 
ae 
rr) 


1 ; OUTPUTS: NONE 
; SUBORDINATE ROUTINES USED: NONE 
; FUNCTIONAL SIDE EFFECTS: NONE 
; CALLING SEQUENCE: JSR PC,LDPARS 
1 736 012702 000006 LOPARS: MOV %6, R2 ;LET LOOP COUNTER COUNT FIRST 6 PARS 
490 1367 CLR R3 ;INITIALIZE INDEX VALUE 
491 136744 C1052 1$: MOV R3 (Ri)+ ;LOAD PARS 
1492 1367 0627 000200 ADD #200, R3 ; 4K INCREMENTS 
1493 1 07 204 SOB R2 13 ;LOAD FIRST SIX PARS 
1494 1 012721 002000 MOV #2000, (R1)+ ;LET PAR6 MAP TO 
1495 136760 012711 177600 MOV #177600, (R1) ;LET PAR7 MAP TO 1/0 PAGE 
21496 136764 000207 RTS PC ; RETURN 


SEQ 0428 
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GLOBAL SUBROUTINES SECTION 


21498 
21499 ; FUNCTIONAL DESCRIP 
21500 ; SUBROUTINE TO INITIALIZE ALL THE MMU PAGE DECRIPTOR REGISTERS (PDRS) 
21501 ; THIS TALIZE 8 PORS STARTING AT A BASE ADDRE 
2180¢ ; PORS 0-5 WILL BE INITIALIZED TO 
21 ; 4K READ/WRITE BYPASS AND PORS 6 AND 7 WILL BE INITIALTZED TO 
21 ; 4K READ/WRITE NO BYPASS. 
21 ; NOTE: THERE IS NO NEED TO BYPASS ON I/0 PAGE REFERENCES BECAUSE 
21 ; THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES. 
st ; INPUTS: 
21 09 ; Ri CONTAINS THE BASE ADDRESS OF THE NEXT 8 PDRS TO BE INITIALIZED 
i ; OUTPUTS: NONE 
13 ; SUBORDINATE ROUTINES USED: NONE 
f ; FUNCTIONAL SIDE EFFECTS: NONE 
1 ; CALLING SEQUENCE: JSR PC,LDPARS 
st 136766 012702 000006 LDPDRS: MOV 26 R2 ;LET LOOP COUNTER COUNT FIRST 6 PARS 
136772 0 177406 i$: MOV #177406, (R1)+ ;LOAD PDRS WITH 4K READ/WRITE BYPASS 
i 776 0 SOB R2 1$ ;LOAD FIRST SIX 
1 012721 077406 MOV #77406, (R1)+ ;LET PAR6 BE 4K READ/WRITE NO BYPASS 
i 137004 0 wit 077406 MOV #77406, (R1) ;LET PART BE 4K READ/WRITE NO BYPASS ALSO 
137010 90020 RTS PC ; RETURN 
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GLOBAL SUBROUTINES SECTION = 

21 
51 FUNCTIONAL DESCRIPTION: 
21528 ; SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAM TESTS. 
21 ; INPUTS: 
21531 ; MEMORY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE 
31 ; OUTPUTS: NONE 
@1 ; SUBORDINATE ROUTINES USED: NONE 
21 337 ; FUNCTIONAL SIDE EFFECTS: NONE 
21 ; CALLING SEQUENCE: CALLED BY PARITY ABORT 
21 ; MOV @#114, SLOCOO ;SAVE CONTENTS OF PARITY ABORT VECTOR 
21541 ; MOV @DSPAR, 96114 LET VECTOR POINT TO PARITY ABORT ROUTTNE 
ai (CACHE PARITY ERROR OCCURS) 
21545 137012 011637 001122 RAMPAR: MOV (SP), $8DADR ;STOR ADDESS TRAPPED 
21546 137016 032737 000100 177744 BIT #81706, MSER SIF LOW BYTE PARITY ERROR 
21547 137024 001401 BEQ i$ ; THEN 

137086 104007 ERROR +7 ERROR 
21549 137030 032737 000200 177744 1%: BIT #B1T07, MSER ;IF HIGH BYTE PARITY ERROR 
21550 137036 001401 BEQ 2$ ; THEN 
21551 137040 10400 ERROR +7 ERROR 
21 137042 032737 000040 177744 2%: BIT @BIT05, MSER :IF TAG PARITY ERROR 

137050 001401 BEQ 3$ ; THEN 
2 1370s 104007 ERROR +7 ;ERROR 
2 137 005037 177744 3$: CLR MSER ;INITIALIZE MSER AFTER ERROR 
21556 137060 000002 RTI ; 
21557 137062 005237 002722 LKSINT: INC LKSFL ; INCREMENT FLAG 
el 137066 000002 RTI 
1 .SBTTL Q22BE SIZE ROUTINE 
1561 ;THIS ROUTINE WILL AUTOSIZE FOR UP TO TWO Q@22 BUS EXERCISERS. IF NONE 
21 ‘FOUND LOCATIONS CSR1 AND CSRi2 WILL BE LEFT ZEROES. THIS ROUTINE WILL 
21 ;ONLY RUN IN NOT UFD MODE. 
21 ; tera 907404 — Beg a ‘IF NO iT SOBVANCE TO ROUTINE 
21367 137100 000207 RTS sé ‘OTHERWISE, RETURN 
51569 ; PREPARE TO DO SIZING 

; 

21571 137102 013701 000004 i$: MOV ERRVEC,R1 STORE TIMEOUT VECTOR 
21812 137106 012737 137262 000004 MOV $7$ ,ERRVEC ‘POINT NEW TO PROGRAM 
21573 137114 012737 000006 MOV #340, ERRVEC+2 ;AT PRIORITY 7 
21574 1 7 001160 CLR $TMPO ;CLEAR Q22BE COUNTER 
star ieries Saige bree my surest aie eae te OO 
51577 137136 000404 BR 3C~S ‘TRY THOSE VALUES 
Steep NOW DO ACTUAL SIZING 
21581 137140 062702 000020 3s: = ADD SiéO, RD GET CSR FOR NEXT Q22BE 
21582 137144 062703 000004 ADD 04,R3 ‘GET VECTOR FOR NEXT ONE 
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SEQ 0431 
Q22BE SIZE ROUTINE 
21583 137150 005712 3$: TST (R2) ;TRY TO ACCESS CSR 
21385 ; IF NO TIMEOUT, STORE EXISTING ADDRESSES TO REGISTERS 
; 
21587 137152 005737 001160 TST $TMPO sFIRST Q22BE FOUND? 
21588 137156 001010 BNE 4$ ;IF SECOND, BRANCH 
21589 137160 012705 002664 MOV #CSR1,R5 ;START WITH CSR1 FOR 1ST 
21590 137 010237 002702 MOV R2, SIMGOA : STHUL TANEOUS GO 
21591 137170 062737 000016 002702 ADD #16, SIMGOA SS 
21592 137176 000402 BR ‘BRANCH TO INITIALISE 
21593 137200 012705 002704 43: MOV 8CSR12,R5 ;START WITH CSR12 FOR 
21594 137204 012704 000004 S$: MOV #4,R4 ;INITIALISE 5 REGISTERS 
21595 137210 010215 MOV (RS) ;INITIALISE CSRi 
215% 137212 011565 000002 6$: MOV (R5),2(R5) ;STORE TO NEXT 
21 1372 005725 TST }s ;GET NEXT ADDRESS 
21598 137 062715 000002 ADD $2,(R5) ;GET ADDRESS, PO 
21 137 077 SOB 6$ ;D0 FOR NEXT 4 REGISTERS 
137 010365 000002 MOV R3.2(R5) :S INTERRUPT VECTOR 
21601 137 010365 000004 MOV R3.4(R5) ‘AND PRIORITY 
1602 137 062765 000002 ADD #2,4(R5) 
2 137244 005237 001160 INC ; COUNT 
21604 137 022737 000002 001160 CMP $2, $TMPO ‘TWO FOUND? 
605 13 001406 BEQ 9$ ;IF SO, STOP SIZING 
1606 137260 000402 BR 8$ ;OTHERWISE, CONTINUE SIZING 
; 
21608 ; ON TIMEOUT TRY TO LOOK AT NEXT ADDRESS RANGE 
21610 137262 005726 4s: s«TST”~=—s( SPD sRESTORE STACK FROM 
21611 137264 ST (SP)+ ; 
21612 137266 022702 170160 8s: $170160,R2 ;AT THE LAST POSSIBLE? 
1613 1 11322 2$ : BRANCH 
1614 137274 002664 9$: TST CSR1 ;1 FOUND? 
15 i vv 1402 BEQ 10$ ;IF NONE, BRANCH 
21616 1 04401 137314 TYPE ONOg22 ;TYPE FOUND 
21617 1 010137 000004 10$: MOV R1, ERRVEC ;RESTORE TIMEOUT VECTOR 
21618 137312 000207 RTS pc ; RETURN 
51620 137314 012 015 121 ONOQ22: .ASCIZ <12><15>/Q22BE USED DURING TESTING/ 
137317 062 062 102 
1 105 040 125 
i 123 105 104 
i 040 104 
137333 122 111 116 
137336 107 040 
137341 1 123 
137344 ill 116 107 
137347 
21621 EVEN 
21 “SBTTL Q@22BE INTERRUPT INITIALISE ROUTINE 
2162 ;THIS ROUTINE WILL INITIALISE Q22BE TO INTERRUPT AT A PRIORITY AT (RO)+ 
21624 SAT THE STARTING ADDRESS IN R3. THE TEST HAVE TO SET ACTUAL DONE BIT 
21625 ;BY CLEARING GO. 
$1637 137385 OSe710 000001 G2eINT: Bs 981 T00, (RO) a 
21629 137356 011063 000002 MOV (RO), 2CR3) ‘SET PRIORITY IN CSR2 


21 137362 042710 000001 BIC #BITOO, CRO) ;PREPARE TO SET DONE 


Fe 
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21631 137366 000207 


2163 

21634 

21635 

21 

21637 

21639 137370 
21 37376 
iret: 137400 
21643 137410 


el 7506 
21 137510 


21667 137532 


21688 137564 


011637 
104130 


001122 


177600 
137652 


RTS 


PC 


.SBTTL_DMATRN DATO LveLE THRU Q22BE 
;THIS ROUTINE PERFORMS DATO FROM A LOCATION TEMP THRU THE te 


S 
TO Be Q22BE STARTING AT LOCATION @CSRi. RO HAS O 
ORMED. OT SE 16 BLOCK MODE 


8TEMP . aBA 
#177777, awCc 
#B1T00, ACSR2 


2$ 
PC 


SBTTL_ DMARD DATI THRU Q22BE 


PERFORMS DATI CYCLE THRU Q22BE IN EITHER BLOCK MODE OR A 






SEQ 0432 


IF ONLY 1 TRANSFER IS 
TRANSFERS ARE T PERF 

BE L ORE. 
#12525, @DATA ;DATA USED 
RO ;D0 1 WORD? 
i$ ;IF YES, BRANCH 
#BITO9!BITOO, ACSR2 7BL GO 
2$ ;BR 60 I 
#1601,9CSR1 Hr ¥ LATENCY COUNT ,DATO 


SINGLE 


ANSFER MODE. MEMORY LOCATION USED IS TEMP. RO IS ZERO FOR SINGLE TRANSFER 


DMATRN: MOV 
TST 
BEQ 
MOV 
BR 
1$: MOV 
MOV 
MOV 
MOV 
2$: TSTB 
BPL 
3$: RTS 
; THIS ROUTINE 
;7R 
DMARD: MOV 
TST 
BEQ 
MOV 
MOV 
MOV 
BR 
i$: MOV 
MOV 
MOV 
2$: TSTB 
BPL 
3$: RTS 
TOUT: MOV 
ERROR 
RTI 


@TEMP , BA ;LOAD DMA ADDRESS 
RO 00 1 WORD? 
i$ ;IF YES, BRANCH 
#1507, @CSR1 316 DATIB 
#177770, aWC ; WORD 
#81109 !BIT00, ACSR2 ;BLOCK MODE GO 
2 ;GO CHECK 
$1407, aCSR1 ;RESET LATENCY COUNT DATI 
;LOAD NEW DATA TO DATA R 
#177777, @WC ;D0 1 WORD 
@B1T00 ,@CSR2 ;00 IT 
;DMA DONE? 
2$ ;WAIT TILL DONE 
PC ;RETURN FROM SUBROUTINE 
(SP), $BDADR sSTORE TRAPPED PC 
+130 ;UNEXPECTED TRAP 


MMU GLOBAL SUBROUTINES 
; 


: 
sROUTINE TO INITIALIZE MEMORY MANAGEMENT 


‘ 
MMU: 


PE EE 


RO, -(SP) 
Ba -ba5s ° 


#177600 ,RO 
PC,.POR 


;SAVE CONTENTS OF REGISTERS 


‘INIT I AND D USER PDR’S 
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DMARD DATI THRU Q22BE 


21689 137570 


21 
21706 137652 
21797 137654 
21708 137660 
21709 137664 
21710 137670 
21711 137672 
17 
171 
21714 
21715 137674 
21716 137676 
21717 137700 
21718 137704 
21719 137710 
21720 137712 
21721 137716 
217 
2172 


21724 
21725 137720 
el 137722 


21744 140002 
21745 140006 


137674 JSR PC, PAR 
137674 JSR PC ‘PAR 
172200 MOV #172200, RO 
7652 JSR ,POR 
137674 JSR PC, PAR 
137674 JSR P 
652 JSR ; 
137674 JSR PC, PAR 
137674 JSR PC‘ PAR 
7 172516 MOV 27 0172516 
MOV SP)+,R 
MOV t3p5." Ri 
MOV (SP)+,RO 
RTS PC 
; 
;ROUTINE TO INITIALIZE PDR'S 
: CLR R2 
077406 PDRi: MOV $77406, (RO)+ 
000001 ADD : 
000020 CMP #16. ,R2 
BNE POR 
RTS 
: 
;ROUTINE TO INITIALIZE PAR'S 
PAR: CLR Ri 
PARI: MOV R1,(RO)+ 
000200 ADD #200,R1 
001600 CMP $1600,R1 
BNE PARI 
177600 MOV #177600, (RO)+ 
RTS PC 
; 
; TIME OUT ROUTINE 
ADDTRP: INC RS 
RTI 
; 
;MMU TRAP ROUTINE 
] 
003030 000001 MMUTRP: CMP FLAG, #1 
BEQ i$ 
ERROR +2 
1$: MOV RO, -(SP) 
177776 MOV 96177776 ,RO 
177764 ASH #-14,RO 
000002 CMP RO, 
BNE 
BR NOTOK 
177776 OK MOV @#177776,RO 
000002 ASH #2,RO 
177764 ASH #-14,RO 
000002 CMP RO, 2 
BNE OKi 
000004 NOTOK: CLR 4(SP) 
177572 003042 OKi: MOV 9177572, SAVMRO 


:NO GO TO ERROR 


SEQ 0433 


;INIT I USER PAR'S 
;INIT D USER PAR'S 


; RETURN 


;SETUP TO INIT PAR 

;INIT PAR 

;GET READY FOR NEXT PAR 
;REACHED A PART 

;BRANCH IF NOT 

;INIT PAR7 

;RETURN 


; INCREMENT TIME OUT FLAG 
;RETURN 


;ARE WE _— AN ABORT 


; SAVE AVE. CONTENTS OF REG 0 
sSAVE A_COPY OF PSW 
;LOOK AT BITS<15:14> 
sWAS PS<15:14>=10 


;NO GO ON 

‘YES on BITS TO 00 
SSAVE A COPY OF PSW 
ant AT BITS<13:12> 

; WAS PS<13:12>=10 


NO 
SCLEAR ILLEGAL MODE FFROM OLD PSU 
{SAVE A COPY OF HMRO 


H2 
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DMARD DATI THRU Q22BE 


21746 140014 013737 177574 003044 MOV @#177574,SAVMR1 ;SAVE A COPY OF MMR1 

21747 140022 013737 177576 003046 MOV 84177576, SAVMR2 s;SAVE A COPY OF MMR2 

21748 140030 37 177572 en a#177572 ;CLEAR ABORT ers 1: TURN MMU OFF 
MOV 


SEQ 0434 


FLAG ;CLEAR MMU 
(SP)+,RO pa ORIGINAL CONTENTS OF REG 0 


21 140040 012600 
21751 140042 000002 RTI ; 
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DMARD DATI THRU Q22BE 


1755 
1756 1 012600 
21757 140046 012605 
1758 1 104003 
21759 140052 000110 
1760 
21761 
1762 
217635 140054 000000 
21764 140056 000207 
21765 140060 000207 
1766 
21767 
21768 
21769 
1770 
He 
i 
1774 
1775 
1776 
21777 
1778 
1779 
21780 
21781 
21762 
21783 
21784 
21785 
1786 140062 01 
21787 140064 010146 
ithe 1 012737 
$378 140074 000137 
el 
21791 140100 010446 
21792 140102 010146 
21 140104 012737 
21794 140112 005337 
21795 140116 001402 
sim Helse See 
1797 140 0017 
21798 140124 012601 
21799 140 012604 
$1800 140130 000207 


000003 003120 


140112 


000005 
003120 


003120 


;FPP COMMON SUBROUTINES 

tLDTRP: MOV  (SP)+.RO SSAVE PC 
MOV ($P)+RS SSAVE STATUS AND RESTORE STACK 
UMP (RO) ;GO BACK INLINE 

; 

TRPFLG: .WORD 

ERRFP: RTS RT 

ERR: RTS RT 


; SUBROUTINE DATA VERFICATION - 
JSR R7,DATVER 


(R4)=EXPECTED DATA 
(R1)=RECEIVED DATA 


THIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE 
sEQUAL TO THE FOUR WORDS ADDRESSED BY (R1). THE CONTENTS OF R4, AND Ri ARE NOT 


;DIS 
; LOCATION "COUNT ” NOT EQUAL TO 0 SIGNIFIES DATA ERROR 


TF THE STATUS IS FLOATING HODES THE LAST THO BYTES OF RECETEVED 
SARE SIMPLY CHECKED FOR ZEROS 
* 
DATVFR: MOV _—s- R84, -( SP) SSAVE R4 
MOV 1,-CSP) joes Ri 
MOV ;SET up ETERATION COUNT 
JMP DATi : 
BATVER: MOV —s- R84, -( SP) SSAVE R4 
MOVs R11. -¢ SP) SSAVE Ri 
MOV —s #5 COUNT ‘SET UP ITERATION COUNT 
DAT1: DEC COUNT 
BEQ ttéS ;BRANCH IF DONE 
CMP Moo at (R1)+ ; 
BEQ =sCODAT 
28: MOV. «CSP >. RI ;RESTORE Ri 
MOV «(SP 'R4 TRESTORE R4 
RTS sR ‘GO BACK TO CALLING ROUTINE 


;IF DATA ERROR, COUNT NE 0 


SEQ 0435 
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DMARD DATI THRU Q22BE 


o1abe 140132 032737 
21827 140140 001007 
21 000240 
ATH 140144 032737 
21 140152 001405 


1831 140154 000240 
oi832 140156 000000 


1 
21 140160 104401 
000402 


Sets. 1401 104401 
21838 140172 000207 
1839 140174 105 
140177 117 

1 104 

1 105 
140210 105 
140213 111 
140216 106 
140221 101 
140224 116 
140227 120 

1402 116 

1402 101 
140240 105 
140243 122 

1 117 

1 1 103 

120 


000400 177750 

000400 177750 

140174 

140257 
122 122 
122 040 
105 124 
103 124 
104 040 
116 040 
114 117 
124 111 
107 040 
117 111 
124 040 
103 103 
114 105 
101 124 
122 040 
110 111 
056 000 
122 122 
122 040 
105 124 


$68 


NOFPA: TYPE 
EXTFPA: RTS pc 


SEQ 0436 


; SUBROUTINE - DETERMINE FLOATING POINT ACCELERATOR (DETFPA) 


; THIS SUBROUTINE IS CALLED IF AN ERROR IS DETECTED DURING EXECUTION OF THE 
FLOATING POINT TESTS. 
; IT DETERMINE 


S WHEATHER OR NOT THE FLOATING POINT ACCELERATOR CHIP Shen 
AND PRINTS THE APPROPRIATE ERROR ME 


IS PRESENT ON THE CPU BOARD 
; THIS DETERMINATION IS MADE BASED ON THE “FPA AVAILABLE” FLAG, BIT 


8 
STER AT LOCATION 17777750. IF THE FPA BIT IS SET 
ERATOR ON THE CPU BOARD AND 


OF THE MAINTENANCE REGI 
; THEN THE ttaade’ 36 pat ACCEL 


CHIP IS INSTALLED 
PRINTED WHICH STATES THAT THE FLOATING POINT ERROR IS 


; AN ERROR MESSAGE 
; DUE TO THIS CHIP. OTHERWISE, THE Ji1 IS BLAMED FOR THE FLOATING POINT ERROR. 


s$$$ 

; CALLED BY: CALL QHDETFPA ;$$$ 
; INPUTS: NONE 3$$$ 
OUTPUTS: ERROR MESSAGES 3$$$ 


bETFPA: BIT S400, Q0MAIREG ©: 15_THE FPA HERE? $44 


FPAOPT VES. BRANCH FPAOPT $$$ 
AID. $$$ 


NOP 
BIT $400, Q8MAIREG IF NOT, $$$ 
BEQ NOFPA ;BRANCH TO NOFPA $$$ 
‘DEBUG AID. $$$ 
HALT ; $$$ 
EPAOPT: TYPE _—.FPAFLT 5 $$$ 
EXTFPA ; $$$ 
JLIFLT ; $$$ 
; $$$ 
.ASCIZ /ERROR DETECTED IN FLOATING POINT ACCELERATOR CHIP./ ; $$$ 


EPAFLT: 


Sa1FUtT: 


-ASCIZ /ERROR DETECTED IN J11 FLOATING POINT PROCESSOR./ ; $$$ 


Ke 
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> 
DMARD DATI THRU Q@22BE Q 043 


140273 104 040 

140276 111 116 040 

140301 112 061 061 

040 106 114 

140307 117 101 124 

140312 111 116 107 

140315 040 120 117 

140320 111 116 

140323 040 120 

40326 117 103 1 

140331 123 123 117 
os 334 122 056 ‘ee 

.EVEN ; 

oiaas ; 
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21849 


140474 
140474 


DMARD DATI THRU Q22BE 


104407 


140457 
001206 


140454 
000042 


377 


101 
040 


001206 


123 
043 


.-SBTTL END OF PASS ROUTINE 
j sSRSSAERSSSESEESSSESSSEESS SESE SSEESSSESESEESEREEEEERES EEE TESS 
;*INCREMENT THE PASS NUMBER ($PASS) 
;#INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
;*TYPE XXXXX " oe XXXXX IS A DECIMAL NUMBER) 
MONITOR GO TO IT 
eTF THERE ISN'T JUMP TOL 


BIT #B1T06,a#52 
BNE $GET42 
r r5,vi 
$TST ;;ZERO THE TEST NUMBER 
CLR $TIMES ::ZERO_THE NUMBER OF ITERATIONS 
INC $PASS ;INCREMENT THE PASS NUMBER 
BIC 8100000, $PASS + .DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ ; LOOP? 
$EOPCT: . WORD 
BGT $DOAGN > 3YES 
MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 
$ENDCT: .WORD i 
$EOPCT 
TYPE ,$ENDMG ;;TYPE “END PASS #” 
MOV $PASS, -(SP) ‘ESAVE $PASS FOR TYPEOUT 
TYPDS ;3G0 TYPE--DECIMAL ASCII WITH SIGN 
TYPE  , $ENULL ;3TYPE A NULL CHARACTER 
$GET42: MOV a#42,RO - ADDRE 
BEQ $DOAGN > BRANCH IF NO MONITOR 
RESET ;;CLEAR THE WORLD 
$ENDAD PC, CRO) ;;G0 TO MONITOR 
335 ROOM 
NOP 33F 
NOP ; sACTL1 
$DOAGN: 
JUMP acPc)+ ; RETURN 
$RTNAD: . LOOP 
$ENULL: .BYTE -1,-1,0 ;;NULL CHARACTER STRING 
$ENDMG: .ASCIZ <15><12>/END PASS #/ 


.-SBTTL SCOPE HANDLER ROUTINE 

Fo ee gg ae arn ge magne nen 

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;#AND LOAD THE TEST NUMBERC$TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
S#AND L LOAD THE ERROR FLAG ( yt INTO DISPLAY<15:08> 

;#THE SWITCH ald PROVIDED BY THIS ROUTINE ARE: 


;*SW14=1 ON TEST 
INHIBIT ITERATIONS 


;*SWil=1 
;*SWO9=1 LOOP 
;*SWO8=1 LOOP ON TEST IN SWR<5:0> 
;*CALL 
3+ SCOPE ; ;SCOPE=IOT 
$SCOPE : 
CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 


SEQ 0435 


Me 
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21850 


40504 
140512 


001000 
040000 


14054 
177060 
000004 
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177520 
040426 


1s: #81714, aSWR 
BNE $OVER 
;@@G60START OF CODE FOR THE XOR TES 
iXTSTR: BR 6$ 
MOV @SERRVEC, -(SP) 
MOV #5$, ABERRVEC 
TST 9177060 
MOV (SP )+, ASERRVEC 
BR $SVLAD 
S$: CMP (SP)+,(SP)+ 
MOV (SP)+, ASERRVE 
BR 73 ; sLOOP 
6$:;44¢48END OF CODE FOR THE XOR TESTER@HH8 
BIT #81108, aSWR 
BEQ 2$ 
MOV aSWR, “(SP 
BIC @SSURMK. ( 
(SP)+, stStNy 
BEQ SOVER 
2$: TSTB = $ERFLG 
BEQ 3§ 
CMPB =: $ERMAX, $ERFLG 
BHI 3§ 
BIT #B1T09, aSWR 
BEQ $ 
7$: MOV $LPERR, $LPADR 
BR $OVER 
43: CLRB $€RFLG 
CLR TIMES 
3$: BIT 9681711, aSWR 
BNE $ 
TST $PASS 
BEQ i$ 
INC ICNT 
cP $TIMES, $ICNT 
i$: MOV #1, $ICNT 
MOV $MXCNT , $TIMES 
$SVLAD: INCB  $TSTNM 
MOVB § $TSTNM, $TESTN 
MOV (SP), $LP 
MOV (SP) 
CLR 
MOVB = #1, SERMAX 
$OVER: MOV $TSTNM, ADISPLAY 
MOV ADR, 
IC #1000,8CSR ;DISABLE 
SMXCNT: 1 
.SBTTL ERROR HANDLER ROUTINE 


BIS #1000,BCSR 
BIT 


; ENABLE 


;;LOO0P_ON PRESENT TEST? 


3;YES IF SWi4=1 
TERGHGHH 
;;IF RUNNING ON THE “XOR” TESTER CHANGE 
;;THIS INSTRUCTION TO A “NOP” (NOP=240) 
CONTENTS OF THE ERROR VECTOR 
TIMEOUT 
ON XOR? 
HE ERROR VECTOR 
NEXT TEST 

 }CLEAR THE STACK AFTER A TIME OUT 
+ #RESTORE THE ERROR VECTOR 

ON THE PRESENT TEST 
;;LOOP ON SPEC. TEST? 


$3 I 
;;SET DESIRED TEST NUM. FROM SWR 
;;STRIP AWAY UNDESIRED BITS 

HE RIGHT T? 


‘'MAX. ERRORS FOR THIS TEST OCCURRED? 
;;LOOP ON ERROR? 

;;68R IF NO 

;;SET LOOP ADDRESS TO LAST SCOPE 


FLAG 
OF oe TO MAKE 


; A OUNT 

~ NUMBER OF ITERATIONS MADE 
ITERA REQUI 

 sREINIT IALIZE THE ITERATION COUNTER 
OF ITERATIONS TO 00 


SAVE LOOP SS 
;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
;;ONLY ALLOW ONEC1) ERROR ON NEXT TEST 
: SDISPLAY TEST NUMBER 
;;FUDGE RETURN 


;;MAX. NUMBER OF ITERATIONS 


ff SRSSSSSSESSESEESAASERSESAEAERAAREAEKEREAERERESESESESLESESERESESE EEE ESS 


:* WILL INCREMENT THE 
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


;*AND GO TO ERTYPE ON ERROR 


COKDAFO KDJ11-B CLUSTER DIAG. MACRO VO5S.03 Friday 28-Mar-86 13:30 Page 72-2 

ERROR HANDLER ROUTINE 
;*THE SWITCH OPTIONS a BO BY THIS ROUTINE ARE: 
;*SW15=1 HALT ON ERROR 


; #SW13=1 INHIBIT ERROR TYPEOUTS 
;*SW10=1 BELL ON ERROR 
;#SWO9=1 LOOP ON ERROR 
: ERROR +N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
140776 $ERROR: 
140776 005737 004120 TST UQUIET ::TEST FOR USER-QUIET MODE 
141002 001403 BEQ 9$ ;;BRANCH IF FIELD-SERVICE MODE 
141004 CLR RO ;3IN CASE RO HAS A #3 IN IT (tC) 
141006 004737 141220 “ JSR PC, ABORT S:TEST FOR ABORT CONDITION 
141012 104407 CK ;;TEST FOR CHANGE IN SOFT-SWR 
141014 052737 001 177520 BIS #1000,BCSR ENABLE HALT ON BREAK 
1022 105237 001103 7s: SERFLG ::SET THE ERROR FLAG 
141026 001775 BEQ 7§ ;;D0N'T LET THE FLAG GO TO ZERO 
141030 013777 001102 040104 MOV $TSTNM,@DIS°LAY .:DISPLAY TEST NUMBER AND ERROR FLAG 
141036 032777 040074 BIT #B1T10, aSWR ;;BELL ON ERROR? 
141044 001402 BEQ i$ ;;NO - SKIP 
141046 104401 001170 TYPE $BELL ;;RING BELL 
141052 005237 001112 1$: INC $ERTTL ;;COUNT THE NUMBER OF ERRORS 
141056 011637 001116 MOV (SP), $ERRPC ;;GET ADDRESS OF ERROR INSTRUCTION 
1062 162737 000002 001116 SUB 2, $ERRPC 
141070 117737 040022 001114 MOVB § @$ERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
141076 032777 020000 040034 BIT #681713, ;;SKIP TYPEOUT IF SET 
141104 001004 BNE $ ;;SKIP TYPEOUTS 
141106 004737 136356 JSR PC, ERTYPE 3:60 TO USER ERROR ROUTINE 
141112 104401 001175 sai TYPE  ,$CRLF 
141116 122737 000001 001220 CMPB  #APTENV,SENV ;;RUNNING IN APT MODE 
141124 001007 BNE 2$ ;;NO,SKIP APT ERROR REPORT 
141126 113737 001114 141140 MOVB  $ITEMB,21$ ;;SET ITEM NUMBER AS ERROR 
141134 004737 141376 JSR PC, $ATY4 ;tREPORT FATAL ERROR TO APT 
141140 000 21$: .BYTE 0 
141141 "BYTE 0 
1142 000777 22: BR 22$ ;;APT ERROR LOOP 
141144 005777 037770 2$: TST aSWR ;;HALT ON ERROR 
141150 100002 BPL 3$ : SKIP IF CONTINUE 
141152 000000 HALT ;HALT ON ERROR! 
141154 104407 CKSWR ;TTEST FOR CHANGE IN SOFT-SWR 
141156 032777 001000 037754 3%: BIT #B1T09, ASWR i sLOOP ON ERROR SWITCH SET? 
141164 001 BEQ ;;BR IF NO 
1166 013716 001110 MOV $LPERR, (SP) ;;FUDGE RETURN FOR LOOPING 
141172 737 001166 4s: TST SESCAPE ;;CHECK FOR AN ESCAPE ADDRESS 
141176 001402 BEQ S$ ;;BR IF NONE 
141200 013716 001166 - MOV $ESCAPE,(SP) | ;;FUDGE RETURN ADDRESS FOR ESCAPE 
141204 022737 140440 000042 CMP $$ENDAD,@042 =; ;ACT-11 AUTO-ACCEPT? 
141212 001001 BNE 6$ ;;BRANCH IF NO 
141214 HALT 33 
141216 6$: 
141216 000002 RTI 
_SBTTL ABORT ROUTINE FOR Lce/oniN UFO UFD MODE 
141220 005737 004116 ABORT: TST UFDELG TEST FOR USER FRIENDLY MODE 
141224 001454 BEQ ‘IF NOT UFD THEN CONTINUE NORMAL OPERATION 
141226 020027 000032 CMP RO. 232 :IS IT A tZ ? 


BS 
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ABORT ROUTINE FOR LCP/ORION UFD MODE 


21851 


001443 


001443 


sie 
sees 
tts 6 
Hei 
20 
10 
013 
013737 
760 
000137 
000207 
112737 
Iet 
112737 


000030 
000032 


000030 
000032 


001221 


001200 
141534 
000004 


ABORTC: 


i$: 


ABORTE : 


ABORTZ: 


NOABRT : 


SePSSISSBCSSSRAISES RANGE 


RTS 


+42 
#-1,42(RO) 
ae42 RO 


ar4e 
$ENDAD 





) 
;GET DCA RO F OR 
;SET A -1 INTO LOCATION DRSERR IN MONITOR 
;AND PUT THE Any IN 
;CLEAR MONITOR LAG 


RETURN F 
sRETURN TO MONITOR-DO NOT PUSH STACK HERE 
;IF NO MAINLINE 


TUFD RETURN TO 


.SBTTL APT COMMUNICATIONS ROUT INE 
TT = pe aaa Re “1 gmamammeme yar > gr mmm 


$ATY3: 
$ATY4: 
$ATYC: 


i$: 


2$: 


3$: 


4$: 


a3 i. 


a 
wo 


paereaAD 


1 G 
$1, $MFLG 
$ATYC 
#1, $FFLG 


Rl -CeP) 
sFLG 
SAPTENV , $ENV 


3APTSPOOL , $ENVM 
a4(SP) 
apy” 


#2, 4( 
$MSGTYPE 


33170 REPORT FATAL 
3:10 TYPE A MESSAGE 


3310 ONLY REPORT FATAL ERROR 
;;PUSH RO ON STACK 
H+ Ri ON STACK 

eae we TYPE A MESSAGE? 


{OPERATING U UNDER APT? 


BUMP RETURN ADOR. 
ssSEE IF RONE Wr LAST XMISSION? 
:31— NOT: WAI 


;;SUB START OF 
;;GET MESSAGE LNGTH IN WORDS 


;3PUT LENGTH 
ss TELL APT TO TAKE MSG. 
;sPUT MSG ADDR IN JSR LINKAGE 
ADDRESS 


i RETURN 
;3PUSH 1 6 ON STACK 
3; ;CALL MACRO 
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APT COMMUNICATIONS ROUTINE 


21852 


141706 
141710 
141 

141714 


105737 
0014 


5$: | 
141624 10$: TSTB $FFLG ;:;SHOULD REPORT FATAL ERROR? 
BEQ 12$ ;3;IF NOT: BR 
001220 TST $ENV ; ;RUNNING UNDER APT? 
BEQ 12$ :31IF : BR 
001200 11$: TST $MSGTYPE ;;FINISHED LAST MESSAGE? 
BNE 11$ 331F : WAIT 
000004 001202 MOV @4(SP), $FATAL ;;GET ERROR @ 
000002 000004 ADD #2,4(SP) gio RETURN ADDR. 
001200 INC $MSGTYPE 33; TELL TO TAKE ERROR 
141624 12$: CLRB $FFLG ;;CLEAR FATAL FLAG 
141623 CLRB $LFLG ;;CLEAR LOG F 
141622 CLRB $MFLG 33CL MESSAGE FLAG 
MOV (SP)+,R1 ;3;POP STACK INTO R1 
MOV (SP)+, ;;POP STACK INTO RO 
RTS ; ;RETURN 
$MFLG: .BYTE 0 ;;MESSG. FLAG 
$LFLG: .BYTE O ;;L0G FLAG 
$FFLG: BYTE 0 ;;FATAL FLAG 
.EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL =100 
TCSUP=040 
-SBTTL TYPE ROUTINE 
5p RRRERERAEAEEEESRERERESEREEEEEEEEERESEEEEEEEEEEEEEEEAEEEEEEEEEEE 
;*#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;* THE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;*NOTE1L: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
;*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
;*NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;* 
; : 
;*#1) USING A TRAP INSTRUCTION 
;* TYPE »MESADR ;:;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
’ 
;* TYPE 
;* MESADR 
* 
001157 TYPE: TSTB  $TPFLG +:1S THERE A TERMINAL? 
BPL i$ ;3BR IF 
HALT ;;HALT HERE IF NO TERMINAL 
BR 3$ FLEA 
i$: MOV RO, -CSP) ;:;SAVE RO 
000002 MOV a@2(SP),RO ;;GET ADDRESS OF ASCIZ STRING 
000001 001220 CMPB @APTENV , $ENV ; RUNNING IN APT 
BNE 62$ ;;NO,GO CHECK FOR APT CONSOLE 
000100 001221 BITB #APTSPOOL ,$ENVM ;; TO APT 
BEQ 62$ ;:N0,GO CHECK FOR CONSOLE 
141676 MOV RO,61$ 33 ADDRESS FOR APT 
141366 JSR PC, $ATYS ;;SPOOL MESSAGE TO APT 
61$: . WORD 3 3ME ADDRESS 
000040 001221 62$: BITB #APTCSUP,$ENVM ;;APT CONSOLE SUPPRESSED 
BNE :;YES,SKIP TYPE OUT 
2s: MOVB CRO)+,-CSP) ; 3PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE Ae BR IF IT ISN'T THE 
TST (SP )+ ::1F TERMINATOR POP IT OFF THE STACK 


SEQ 0442 
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TYPE ROUTINE 
141716 012600 60$: MOV 
141720 062716 000002 3$: ADD 
Hie ooo wt: Be 
141782 001430 BEQ 
41734 122716 000200 CMPB 
141740 001006 BNE 
141742 005726 TST 
141744 104401 TYPE 
141746 001175 $CRLF 
1750 105037 142156 CLRB 
141754 000755 BR 
41756 004737 142040 3%: JSR 
141762 123726 001156 6$: CMPB 
141766 001350 BNE 
141770 013746 001154 MOV 
141774 105366 900001 7$: DECB 
142000 002770 BLT 
142002 004737 1 JSR 
142006 105337 142156 DECB 
142012 000770 BR 
a AL TAB 
142014 112716 000040 MOVB 
142020 004737 142040 $ JSR 
142024 132737 000007 142156 BITB 
142032 001372 BNE 
1420 7 TST 
142036 000724 BR 
142040 $TYPEC: 
142040 105777 037100 TSTB 
142044 1 BPL 
142046 017746 037074 MOV 
142052 042716 177600 BIC 
142056 122716 CMPB 
142062 001012 BNE 
142064 101$: 
142064 105777 037054 TSTB 
142070 100375 BPL 
142072 117716 037050 MOVB 
142076 042716 177600 BIC 
142102 122716 000021 CMPB 
142106 001366 BNE 
142110 102$: 
142110 005726 TST 
142112 10$: 
142112 105777 037032 TSTB 
142116 100375 BPL 
142120 116677 000002 037024 MOVB 
142126 122766 000015 000002 CMPB 
142134 001003 BNE 
142136 105037 142156 CLRB 
142142 000406 BR 
142144 122766 000012 000002 1%: CMPB 
142152 001402 BEQ 
142154 105227 INCB 
142156 000000 $CHARCNT : . WORD 


PC,$T 
$FILLC,(SP)+ 
$NULL Q -(SP) 
1(SP) 

6$ 

PC, $TYPEC 
$CHARCNT 


SEQ 0443 
; RESTORE RO 
;;ADJUST RETURN PC 
; sRETURN 
;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 
;:;POP <CR><LF> EQUIV 
7; TYPE A CR AND LF 
;;CLEAR CHARACTER COUNT 
;;GET T CHARACTER 
;:;GO TYPE THIS CHARACTER 
3315 IT TIME FOR FILLER CHARS.? 
3;1F NO GO GET NEXT CHAR. 
33 @ OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 
;;DOES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
;:;GO TYPE A NULL 
;;D0 NOT COUNT AS A COUNT 
; ;LO0P 
;;REPLACE TAB WITH SPACE 
;;TYPE A SP 
;;BRANCH IF NOT AT 
;;TAB STOP 
;;POP SPACE OFF STACK 
;;GET 
;;CHAR IN KYBD BUFFER? ;MJDOO01 
;;8R IF NOT ;MJDO01 
;;GET CHAR 3MJD001 
;;STRIP EXTRANEOUS BITS ;MJD001 
;:;WAS CHAR XOFF ;MJDOO1 
;;8R IF NOT 3;MJD001 
WAIT FOR CHAR + MUDOO] 
3 
pees py 94 
CHAR ;MJDOO 
;ESTRIP IT  MUDOO! 
pe A Hy 294] 
FOX STACK ec 
pen UNTIL PRINTER IS READY : , 
- ;MJD001 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
(iTS CHARACTER A CARRIAGE RETURN? 


NO 
1 YES--CLEAR CHARACTER COUNT 
+18 CHARACTER A LINE FEED? 


;TCOUNT THE CHARACTER 
; CHARACTER COUNT STORAGE 
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TYPE ROUTINE 
142160 000207 $TYPEX: RTS PC 
21853 .SBTTL BINARY TO OCTAL CASCII) AND TYPE 
5p RRERAREEEEERERES EERE EEEEEEREEEEEESS HEROES OEEEEEEEEEEEEEERROEREE 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
* #OCTAL CASCII) NUMBER AND TYPE IT. 
: ik $TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;*CALL: 
MOV NUM, -C SP) ; ;NUMBER TO BE TYPED 
;* TYPOS ;;CALL FOR TYPEOUT 
:* -BYTE WN ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* BYTE M ;;M=1 OR O 
;* ;3;1=TYPE LEADING ZEROS 
;* ; ;0=SUPPRESS LEADING ZEROS 
;* 
;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 
;*CALL: 
;* MOV NUM, -CSP) ; NUMBER TO BE TYPED 
;* T ;;CALL FOR TYPEOUT 
;* 
;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;*CALL : 
s% MOV NUM, -CSP) ; ;NUMBER TO BE TYPED 
;* TYPOC ;;CALL FOR TYPEOUT 
142162 017646 000000 $TYPOS: MOV acSP),-CSP) ;;PICKUP THE MODE 
142166 116637 000001 142405 MOVB 1¢0SP), $OF ILL ;;LOAD ZERO FILL SWITCH 
142174 112637 142407 MOVB CSP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
: 062716 000002 ADD d2.(SP) ; ;ADJUST RETURN ADDRESS 
1 112737 000001 142405 $TYPOC: MOVB #1, $OF ILL ;;SET THE ZERO FILL SWITCH 
142214 112737 000006 142407 MOVB #6, $OMODE +1 FTSET FOR ereG) eek 
1 112737 000005 142404 ‘$TYPON: MOVB #5, $OCNT ;;SET THE ITERATION COUNT 
1422 010 MOV R3,-(CSP) ;;5AVE R3 
1422 01 MOV ns’ -tep3 $3 
142234 01 MOV RS,-(SP) ;;SAVE RS 
rte 113704 142407 —_ Seen +s 8 ;;GET THE NUMBER OF DIGITS TO TYPE 
142244 7 ADD #6 ,R4 ;; SUBTRACT IT FOR MAX. ALLOWED 
142250 110437 142406 MOVB R4, SOMODE ;;SAVE IT FOR USE 
142254 113704 142405 MCVB  $OFILL,R4 ;;GET THE ZERO FILL SWITCH 
142260 016605 000012 MOV 12(SP),R5 ;;PICKUP THE 
142264 005003 CLR R3 ;;CLEAR THE OUTPUT WORD 
142266 006105 i$: ROL RS ;:ROTATE MSB INTO "C” 
142270 000404 BR 3$ ;;GO0 DO MSB 
142272 006105 2$: ROL R5 ;;FORM THIS DIGIT 
142274 006105 ROL RS 
142276 006105 ROL RS 
142 010503 MOV R5,R3 
142 006103 3$: ROL R3 ;;GET LSB OF THIS DIGIT 
142304 105337 142406 DECe $OMODE ;;1YPE THIS DIGIT? 
142310 100016 BPL 7$ ;;B8R IF NO 
312 042703 177770 BIC #177770,R3 ;;GET RID OF JUNK 
142316 001002 BNE 4$ 331TEST FOR O 
005 TST R4 33 S 0? 
142 001403 BEQ S$ ;;BR IF YES 
142324 005204 4$: INC R4 ;;DON'T SUPPRESS ANYMORE 0'S 


g 
3 


#'0,R3 ;sMAKE THIS DIGIT ASCII 
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BINARY TO OCTAL (ASCII) AND TYPE 


21854 


000040 
142402 


142402 
142404 


000002 


142614 


000001 177777 


000001 


5$: 


7$: 


6$: 


8$: 


$OCNT : 
$OF ILL: 
$OMODE: .WORD ; 

.SBTTL CONVERT BINARY TO DECIMAL AND TYPE 


_BYTE 


2 
“2 
rr 


JS 
we + + 


; sMAKE a IF NOT ALREADY 
;;SAVE FOR TYPING 

+360 TYPE THIS DIGIT 

360 DO THE LAST DIGIT 


; sREST R3 
;3;SET THE STACK FOR RETURNING 


; sRETURN 
;;STORAGE FOR ASCII DIGIT 
;; TERMINATOR FOR ia 4 ROUTINE 


FILL SWITCH 
OF DIGITS TO TYPE 
ROUTINE 


5 ERRERAERRAEEREERERAEEEA EASE EES EEERERERERERESEERAEEEEREREREERE RS 
NARY NUMBER TO A 


;*THIS ROUT IS 
;*SIGNED oe eet (ASCII) 
; 
;*#BEFORE THE FIRST DIGIT 
;*#REPLACED WIT D. 
;*CALL: 
;* MOV NUM, -C SP) 
it TYPDS 
TYPDS: 
MOV RO, -CSP) 
MOV R1,-(CSP) 
MOV R2,-CSP) 
MOV «RSC 8P9 
MOV #20200, -( SP) 
MOV 20(SP),R5 
BPL i$ 
NEG R5 
MOVB ¢' -,1CSP) 
1$: CLR RO 
MOV #$DBLK ,R3 
MOVB = #”-—s*=»e(R’S)+ 
2$: CLR R2 
MOV $DTBLC(RO),R1 
3$: SUB Ri, 
BLT 4$ 
INC RO 
BR 3$ 
4$: ADD R1,R5 
TST R2 
BNE 5$ 
TSTB (SP) 
BMI 7$ 
5$: ASLB a? 
BCC 
MOVB TeSP), -1¢R3) 


>-DIGIT 
HER THE 
ADING ZEROS WILL ALWAYS BE 


;3;PUT_THE BINARY NUMBER ON THE STACK 
33GO TO THE ROUTINE 


;;PUSH RO ON STACK 
;;PUSH Ri ON STACK 
;;PUSH R2 ON STACK 


;;SETUP THE OUTPUT POINTER 
ESET THE FIRST CHARACTER TO A BLANK 
;;CLEAR THE BCD NUMBER 

;;GET THE CONSTANT 

;;FORM THIS BCD DIGIT 


;3BR IF 
; INCREASE THE BCD DIGIT BY 1 


;3FALL T 
3;STILL DOING LEADING 0'S? 
IF YES 


IF NO 
; :YES--SET THE SIGN 


SEQ 0445 
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TO DECIMAL AND TYPE ROUTINE 


CONVERT BINARY 


21855 





000010 
177777 


142624 
000002 


000176 
036274 
036270 
177600 
000007 
001134 
143371 
143376 
000176 
143407 
036212 


036206 
177600 
000025 


177776 


001140 


000001 


6$: BIS 
7$: BIS 


8$: TSTB 
BPL 


MOVE 
9$: CLRB 


$DTBL: 


(SP )+ 


;;MAKE THE A DIGIT ASCII 
;;MAKE IT A 
;;PUT THIS CHARACT 


CHANGE TO ASCII 
1: HAS THE LSD THE FIRST NON-ZERO? 
;:YES--SET THE SIGN FOR TYPING 
ERMINATOR 


; FADJUST THE STACK 
;;RETURN TO USER 


eS eee 


s COFTUARE SWITCH REGISTER CHANGE ROUTING 


; *SOF SWITCH REGISTER 
; «ROUT ENTERED FROM THE TRAP HANDLER WILL 
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE RMD REGISTER TRAP CALL 
; «WHEN ATING IN TTY FLAG MODE. 
$CKSWR: , SWR 3731S THE SOFT-SWR SELECTED? 
i5$ ;;BRANCH IF NO 
TSTB =. @S TKS >;CHAR THERE 
BPL 15$ ;;1F NO, DON'T WAIT AROUND 
@$TKB, -(SP) ;;SAVE THE CHAR 
BIC $tC177, (SP) ;;STRIP-OFF THE ASCII 
CMP 7,(SP 5+ :31S IT A CONTROL G? 
BNE 15$ ;3NO, RETURN TO 
CMPB 0s« SAAB, #1 ‘TARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ ;;BRANCH IF YES 
TYPE  ,§CNTLG ;3ECHO THE CONTROL-G (tG) 
$GTSWR: TYPE $MSWR ;3TYPE CURRENT 
MOV SWREG, -(SP) ;;SAVE SWREG FOR TYPEOUT 
TYPOC +760 TYPE--OCTAL ASCIICALL DIGITS) 
TYPE  ,$MNEW : PROMPT FOR NEW SWR 
19$: CLR -(SP) ; CLEAR 
CLR -(SP) ;;THE NEW SWR 
7$: TSTB =s-_ @$ TKS ;3CHAR THERE? 
BPL $ :;I1F NOT TRY AGAIN 
$TKB, -(SP) 33P CHAR 
BIC #10177, (SP) ;;MAKE IT 7-BIT ASCII 
CMP SP), #25 ::IS IT A CONTROL - 





SPACE _IF NOT ALREADY A DIGIT 
ER IN THE OUTPUT BUFFER 


SEQ 0446 


143114 


143116 
143120 


COKDAFO KDJ11-B CLUSTER DIAG. 
TTY INPUT ROUTINE 


143364 
000006 


000002 
177776 
001174 
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SEQ 0447 
BNE 10$ ; BRANCH IF NOT 
TYPE  ,$CNTLU , ECHO CONTROL-U (tU) 
20$: ADD 86. SP 33 PREVIOUS INPUT 
BR 19$ ;;LET'S TRY IT AGAIN 
10$: CMP (SP), #15 :31S IT A <CR>? 
BNE 16$ 33 IF NO 
TST 4(SP) ;3YES, IS IT THE FIRST CHAR? 
BEQ 11$ ;:BRANCH IF YES 
036132 MOV 2(SP),aSWR $3 NEW 
11$: ADD #6, ;;CLEAR UP STACK 
14$: TYPE $CRLF 33 <CR> AND < 
000001 CMPB0OsédSINNTAG, #11 ; RE-ENABLE TTY KBD ” INTERRUPTS? 
BNE ; ;BRANCH IF 
036110 MOV $100, a$TKS ;;RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI ; RETURN 
16$: JSR PC, $TYPEC ;;ECHO CHAR 
CMP (SP), #60 ;3CHAR < 0? 
BLT 18$ ;;BRANCH IF YES 
CMP (SP), #67 ;;CHAR > 
BGT 18$ ; ;BRANCH IF YES 
BIC #60, (SP)+ ;:STRIP-OFF ASCII 
TST 2(SP) :31S THIS THE FIRST CHAR 
BEQ 173 $3 IF YES 
ASL (SP) ;;NO, SHIFT PRESENT 
ASL (SP) :; CHAR OVER TO MAKE 
ASL (SP) - FOR NEW 
17$: INC 2( SP) ;;KEEP COUNT OF CHAR 
BIS -2(SP), (SP) ;;SET IN NEW CHAR 
BR 7$ ::GET THE ONE 
18$: TYPE $QUES ;;TYPE ?<CR><LF> 
BR 20$ ; SIMULATE CONTROL -U 
se ESeSSAAAAKEAAAAKAAKEAKASEASEAKEREAAERAEREKERASEKRECESEAKEKEKESEASEEEERE 
ssTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
i 3 
;* ROCHR ; INPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE ;;CHARACTER IS ON THE STACK 
;* ;;WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV _—s- (SP), -( SP) ; PUSH DOWN THE PC 
000002 MOV 4(SP),2(SP) ;:SAVE THE PS 
i$: TSTB. ss a@$ TKS ;;WAIT FOR 
BPL. i$ 3A ACTER 
000004 MOVB § @$TKB,4(SP) :;READ THE TTY 
000004 BIC $tC<177>,4(SP) ;;GET RID OF JUNK IF ANY 
000023 cre 4(SP), #23 +318 IT A CONTROL -S 
2$: TSTB © @$ TKS ;;WAIT FOR A CHARACTER 
BPL ;;LOOP UNTIL ITS THERE 
MOVB (SP) $3 TER 
BIC orciy?.¢ (SP) ;;MAKE IT 7-BIT ASCII 
CMP (SP)+, 821 :31S IT -Q 
BNE +;1F NOT DISCARD IT 
BR i$ 33;YES, RESUME 
000021 3%: CMP 4(SP),@$XON :;IS IT A RANDOM XON? ;RANOO1 
BEQ ; BRANCH IF YES ;RANOO1 
000140 CMP 4(SP), #140 ;31S IT UPPER CASE? 


13 
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TTY INPUT ROUTINE 


SEQ 0448 


143224 002407 BLT 4$ ;;BRANCH IF YES 
143226 000004 000175 CMP 4(SP), #175 331S IT A SPECIAL CHAR? 
143234 003003 BGT 4 ;:BRANCH IF YES 
143236 042766 000040 000004 BIC #40,4(SP) $3 IT UPPER CASE 
143244 000002 4s: RTI ;:G0 BACK TO USER 
£ fy FESS KSEKASEASESESESESASEKSSESASES ESSE ASSK ESSERE EEEEEEEESEEEEREREERDD 
;#THIS ROUTINE INPUT A STRING FROM THE TTY 
; $ 
wr RDLIN ;:INPUT A STRING FROM THE TTY 
2 RETURN HERE ; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
; ;;TERMINATOR WILL BE A BYTE OF ALL O'S 
143246 010346 $RDLIN: MOV R3,-(SP) ; SAVE R3 
143250 012703 143354 1$: MOV S$TTYIN,R3 ; ;GET SS 
143254 022703 143364 2$: CMP S$TTYIN¢8.,R3  ;;BUFFER FULL? 
143260 101405 BLOS 4$ ;;BR IF YES 
143262 104410 RDCHR ;3G0 READ ONE CHARACTER FROM THE TTY 
143264 112613 MOVB (SP)+,(R3) ;3GET ACTER 
143266 122713 000177 10$: CMPB  #177,(R3) :31S IT A RUBOUT 
143272 001003 BNE 3$ ;;SKIP IF NOT 
143274 104401 001174 4$: TYPE  ,$QUES ;3TYPE A '?! 
143 000763 BR i$ ;;CLEAR THE BUFFER AND LOOP 
143302 111337 143352 34; MOVB = (R3),9$ ;;ECHO THE CHARACTER 
143306 104401 143352 TYPE 93 
43312 122723 i5 CMPB 40—s«@ 15, (R3)+ ; CHECK FOR RETURN 
143316 001356 BNE 2$ ;;LOOP IF NOT RETURN 
143320 105063 177777 CLRB = -1(R3) ; CLEAR RETURN CTHE 15) 
143324 104401 001176 TYPE $LF ;;TYPE A LINE F 
143330 012603 MOV (SP)+,R3 ;;RESTORE R3 
143332 011646 MOV (SP), -(SP) ; ADJUST THE STACK AND PUT ADDRESS OF THE 
143334 016666 000002 MOV 4(SP),2(SP) - FIRST ASCII CHARACTER ON IT 
43342 012766 143354 000004 MOV @$TTYIN, 4(SP) 
143350 000002 RTI ; ;RETURN 
143352 000 9$: ‘BYTE 0 ; STORAGE FOR ASCII CHAR. TO TYPE 
143353 000 ‘BYTE 0 37 
143354 $TTYIN: .BLKB 8. STRESERVE 8 BYTES FOR TTY INPUT 
3364 136 125 015 $CNTLU: [ASCIZ /#U/<15><12> CONTROL "U" 
143371 136 107 015 $CNTLG: .ASCIZ /?G/<15><12>  ;;CONTROL "G” 
143376 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = / 
43401 127 
43404 075 040 
143407 040 040 116 $MNEW: .ASCIZ / NEW = / 
143412 105 127 040 
143415 075 040 000 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
5 REREERREREEERAER ERE RREREAEREEEAEE EER EEREREEE REESE EEES ERE ESE EEE 


:#THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. 


; : 
;* RDOCT 


21856 


;;READ AN OCTAL NUMBER 

tt ORDER BITS ARE ON TOP OF THE STACK 
GH ORDER BITS ARE IN $HIOCT 

Sep -(SP) : PROVIDE SPACE FOR THE 


) ; /PUSH RO ON STACK 
SP) ;;PUSH R1 ON STACK 
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READ AN OCTAL NUMBER FROM THE TTY 


14 042716 177770 


000012 
143520 


21857 


143586 016000 143556 
14 000200 


016666 000004 000002 
000002 


1$: 


2$: 


3$: 


WILL PICKUP 
;#AND USE IT TO INDEX THROUGH THE TRAP TABLE 


; sLOOP 
;;CLEAN Mg tik FROM STACK 


MOV R2,-CSP) 7;PUSH R2 ON STACK 
RDLIN ;;READ AN ASCIZ LINE 
MOV (SP)+,RO ;;GET ADDRESS OF 1ST CHARACTER 
+ AS ;;CLEAR DATA WORD 
MOVB CRO)+,-CSP) ;;PICKUP THIS CHARACTER 
BEQ 3$ ;;1F ZERO GET OUT 
ASL Ri 33%2 
ROL R2 
ASL sR 5384 
ROL R2 
ASL Ri 33%8 
ROL R2 
BIC #tC7,(SP) ;;STRIP THE ASCII JUNK 

aaa ;;ADD IN THIS DIGIT 
TST (SP )+ 
MOV Ri, 12¢ SP) ;;SAVE THE RESUL 
MOV R2, $HI 
MOV (SP)+,R2 ;;POP STACK INTO R2 
MOV (SP)+,R1 38 STACK INTO Ri 
MOV CSP )+,RO ;;POP STACK INTO RO 
RTI ;3RET 

0 ;;HIGH ORDER BITS GO HERE 
TRAP DECODER 


;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


SEQ 0449 


4460 TO THAT ROUTINE. 
TRAP: MOV RO, -(SP) ; SAVE RO 
MOV 2($P),RO :3GET TRAP ADDRESS 
TST -(RO) ; ;BACKUP BY 2 
MO CRO),RO ;;GET RIGHT BYTE OF TRAP 
ASL RO ;;POSITION FOR INDEXING 
$TRPAD(RO),RO  ;;INDEX TO TABLE 
RTS RO 440 TO ROUTINE 
paTHIS IS USE TO HANDLE THE “GETPRI” MACRO 
RAP2: MOV (SP), - ;;MOVE THE PC DOWN 
MOV 4(SP),2(SP) ; MOVE THE PSW DOWN 
RT ; ;RESTORE THE PSW 
.SBTTL TRAP TABLE 
;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE "TRAP" INSTRUCTION. 
, ROUTINE 
STRPAD: .WORD  $TRAP2 
$TYPE ;;CALL=TYPE TRAP +1( 104401) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC RAP+2( 104402) OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=T TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS RAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN 
$GTSWR ;;CALL=GTSWR TRAP +&( 104406) SOFT-SWR SETTING 
$CKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHAMNsE IN SOFT-SWR 
$RDCHR ;;CALL=RDCHR | TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
$RDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL=RDOCT | TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 


KS 


COKDAFO KDJ11-B CLUSTER DIAG. 
POWER DOWN AND UP ROUTINES 
21858 


143604 012737 143744 
000340 


1 12600 
143722 012737 143604 
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SEQ 0450 


-SBTTL POWER DOWN AND UP ROUTINES 
5, ERREEEEERERERESESAEER ERS EEEEESEREREEEE ESSE EEEEEEEEEEERES OREO EROS 


3 DOWN 

000024 §$PWRDN: MOV S$ILLUP,@6PWRVEC ; SET FOR FAST UP 

000026 MOV #540, D@PURVEC +2 $i 
MOV RO, -(SP) ‘PUSH ON STACK 
MOV R1,-(SP) ;SPUSH ®* ON STACK 
MOV R2,-(SP) ;;PUSH K2 ON ST 
MOV R3,-CSP) ;;PUSH R3 ON STACK 
MOV R4,-(SP) ;;PUSH R4 ON STACK 
MOV R5,- (SP) a) R5 ON STA 
MOV aSWR, -(SP) $3 @SWR ON STACK 
MOV SP, $SAVR6 > =SAVE SP 

000024 HOV SsPURUP G SOPWRVEC :;SET UP VECTOR 
BR = 


; ;HANG UP 
: ERRKEAERAEREEEAERAREAEREEEREAEAAARARAREARERARERRREEEREEEEREEEEERE 
: POWER UP ROUT 


INE 
000024 $PWRUP: MOV $$ILLUP QOPURVEC y SET FOR FAST DOWN 
$SAVR6, SP 


MOV 
CLR $SAVR6 S:WAIT LOOP FOR THE TTY 
1$: INC $SAVRE ;;WAIT FOR THE INC 
BNE 1$ ;;0F WORD 
MOV (SP)+, a@SWR ;;POP STACK INTO @SWR 
MOV (SP)+.R5 ;;POP STACK INTO RS 
MOV (SP)+.R4 ;;POP STACK INTO R4 
MOV (SP)+,R3 ;3POP STACK INTO R3 
MOV (SP)+,R2 ;;POP STACK INTO 
MOV (SP)+,R1 ;3POP STACK INTO R1 
MOV (SP}+,RO ;3POP STACK 
000024 MOV $$PWRON, BSPWRVEC ; iS POWER DOWN VECTOR 

MOV #340, Q8PWRVEC+2 ; : 
TYPE ‘REPORT THE POWER FAILURE 

: ORD $ ;;POWER FAIL MESSAGE POINTER 

: HALT :;THE POWER UP SEQUENCE WAS STARTED 
BR - BEFORE THE POWER DOWN WAS COMPLETE 


: 0 PUT THE SP HERE 
: .ASCIZ <15><12>"POWER” 


. EVEN 
. END 
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SEQ 0451 
Symbol table 
ABASE = 000000 AMADR3= 000000 BIT14 = 040000 DATBO 124574 D4 052760 
XT 111314 AMADR4= 000000 BITi5 = 100000 DATI 125124 dS 052774 
41220 AMAMS1= 000000 T2 = TVER 140100 D6 
ABORTC 14 AMAMS2= 000000 BITS = 000010 DATVFR i 07 053010 
ABORTE 141316 AMAMS3= 000000 BIT4 = ATi 140112 EEPAS 00 
34 AMAMS4= 000000 BITS = OUNT 114144 EMT 
ABORTR 107676 AMSGAD= 000000 BIT6 = 000100 DDISP = 177570 EMT 030472 
ABORTZ AMSGLG= 000000 BIT7 = AY 116754 EMTSAV 
TO 044016 AMSGTY= 000000 BIT8 = DETFPA 140132 EMTVEC= 
17 AMTYP1= 000000 BIT9 = 001000 DH1 13462 EM1 27002 
111146 AMTYP2= 000000 043746 1 135 EM10 127254 
2 AMTYP3= 000000 0441 DH115 135614 32570 
. AMTYP4= 000000 BPTOA 0 DH134 135671 EMi01 1 
= APASS = 000000 0 135105 EM102 
TCHS 002724 APRIOR= 000000 BPTVEC= 000014 DH27 135151 03 132743 
APTCSU= 000040 B 051362 1 EM104 133016 
=#000001 = 000001 BTEXP 003100 DH41 135214 EM1i05 13 
#8000002 APTSIZ= 000200 B 051162 DH43 135265 EM106 133141 
-3>  =8000003 TSPO= 000100 003110 DH47 135365 EM107 1332 
=#000004 = 000000 BTTST 051662 134733 il 127275 
5 #8000005 ATESTN= 000000 BITSTE 051710 DHES 135452 EM110 13 
#8000006 = 000000 114 135032 EM111 133315 
=#000007 = 000000 CCHPAS 32 é 135516 EM112 133373 
ADOL SB tere AVECT1= 000000 = 177746 DISPLA 001142 EM1i13 13 
T 264 AVECT2= 000000 CCRTBL 111106 DISPRE 000174 EM1i14 133542 
TRP 137720 A126 025246 5 AR i2 —EM1ii5 133563 
= 000000 A 002670 CHECK1 137452 EM116 36 
1 = 000000 BACDAT 105606 CHECK2 015476 DMATRN 137370 EM117 133714 
10= 000000 A2 002710 124100 12 127317 
ers. 000000 BCR = 177524 CHEC10 32 DSWR = 177570 EM120 133757 
18. 000000 BCSR = 177520 057214 DT1i 136026 1 
pty = 000000 BOR = 177524 CHEC27 7556 DT105 136304 EM1l22 134123 
14= 000000 BFA 052316 CHEC30 122 DT115 136314 3 134151 
5= 000000 or acs 052060 CHEC32 DT1i30 136 EM124 3 
= 000000 BF 052104 CHEC33 061050 DTi34 136336 EM125 
= 000000 BFACS 052130 0536 DT14 136074 
= 000000 BFAC4 052154 CHK10 054050 DT1i7 136106 EM127 134371 
ADOWS = 000000 BFACS 052202 3620 DT24 136120 13 127345 
Apes = 000000 AE 052356 CH1O 0540 DT27 136130 EM130 1 
= 000000 CKSWR = 104407 DT35 136142 EM131 
= 000000 113472 CMPRIN 066176 DT4 EM1 134510 
= 000000 BITO = COUNT 003120 DT41 136154 EM133 
ADEVCT= 000000 BITOO = 000001 = 177766 T43 136164 EM1 134567 
ADEVM = 000000 BITO1 = 000002 CR = 000015 DT47 1 EM14 27374 
AENV = 000000 IT0Q2 = = 000200 DTS 1 EM15 127417 
AENVM = 000000 BITOS = 000010 CSR1 DT 136212 EM16 127453 
AFATAL= 000000 BITO4 = CSRi2 002704 DT51 136224 EM17 7 
rans Oostas BITOS = CSR2 DTS2 127036 
AL IT06 = 000100 CSR2 706 DT 1 127 
ALROTS 021532 BITO7 = CURADD 114170 DT65 136262 EM21 127617 
ALRITS 021610 BITOS = 114162 DT7 1 EM22 
ALR2T BITO9 = 001000 Ci2iA 02 0T75 136272 EM23 127721 
ALRSTS 021744 Iji = C 02 D 070236 EM24 127775 
ALR4TS BIT1O = 002000 Ci2ic 023322 DVFSUB 067244 
Rage Soom «TIE: Gio © Bue? tueee gags Haale 
AMADR2= 000000 BIT13 = 020000 DATA2 002714 D3 052742 EM3 127050 





M3 


COKDAFO KDJ11-B CLUSTER DIAG. 


Symbol table 
EM30 130207 
EM31 130261 
EM32 130306 
EM33 130347 
EM34 130411 
EM3S 130451 
EM36 130477 
—EM37 130543 
EM4 127062 
EM40 130605 
EM41 130652 
EM42 130736 
EM43 130764 
EM44 131015 
EM45 131055 
EM46 131137 
EM47 131227 
EMS 7122 
emo 131314 
1 131337 
EMS2 131371 
EM53 31427 
EMS54 131463 
EMSS 131521 
Hans 131555 
7 31601 
EM6 127155 
EM60 131633 
Ber Hiss 
EM6 132001 
EM64 132032 
EM65 132071 
EM66 132141 
EM67 132 
EM7 127220 
EM70 132235 
EM71 132266 
Hales 132322 
one Tees 
EM75 132435 
Bry taste 
UP 114110 
eee tea 
TAG 115314 
le 114060 
140060 
ERRCNT 003022 
ERRFP 140056 
ERROR = 104000 
ERROUT 104536 
ERRVEC= 000004 
ERTYPE 
EXBAD 114124 
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1 
KIPAR3= 


KIPAR4= 
K 


172350 
i7 


SEQ 0452 


© a eee 


COKDAFO KDJ11-B CLUSTER DIAG. 


MJU3 
MJUSA 
MJU3B 
MJU4 
MJU4A 
MJU4B 
MJUS 
MJUSA 
MJUSB 
MJU6 
MJU6A 
MJU7 
MJU7E 
MJ2 
MJS 
MJ7 
MLCD 
MUCF 
MLOC 
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— 
uunin 


031550 
03 


010176 


SEQ 0453 





B4 
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SEQ 0454 
Symbol teble 
POLY = 120001 SWOl = 000002 T 003724 
PROCNT 023126 SWwO2 = 000004 T 003734 
PRO = 000000 SWOS = 000010 TAB4S)§ «6-00 35744 
PR1 = 000040 SWO4 = 000020 TAB46 003754 
one = 000100 SWOS = 000040 TAB47 
= 000140 SWO6 = 000100 TAB47A 003774 
PR4 == 000200 SWO7 = 000200 TAB48 
PRS = 000240 SWOB = 000400 TAB49 ooeeis 
PR6 = 000300 SWO9 = 001000 TABS 003274 
PR7 = 000340 SWi = 000002 TABSA 003 
PS = 177776 SW1i0 = 002000 TAB6 003314 
PSW = 177776 SWil = 004000 TABG6A 003 
PSWBTS 005612 SWi2 = 010000 TAB? 0033 
PWRVEC= 000024 SWi3 = 020000 T 003 
00 SWi4 = 040000 T 003 
INT SWi5 = 100000 107514 
SIZ 137070 SW2 = 000004 TAII4 §=©—©. 0021170 
AMPAR SW3 = 000010 TALII6 022644 
RBUF = SW4 = 000020 ITVE= 000014 
Rime = 1 SWS = = ~ 000040 114 021200 
= 10441 SW6 = 000100 TCi14 021210 
IN = 104411 SW7 = 000200 T0114 oohees 
. T=] SWB = 000400 EMP 002740 
RECDAT 114150 SW9 = 001000 TE102 017760 
ReKps! TE103 020002 
C 00 TABI te 104 020024 
TE105 020046 
ner TAB11 E106 020070 
1 01 TE107 020112 
TE110 020134 


VUVVVVVVVUVVUUVUVVUVVUVUVUVVVVUU 


AR 
BR 


S 
So 
: 
: 
= 


C4 
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SEQ 0455 
Symbol table 
TE126A SFPS 053134 TST1i3 107044 TSi4 047134 T1230 66024254 
025730 TSFP6 053240 TSTi4 107360 TSi5 024256 
Ei2 026246 053440 TSTi15 107524 TS16 1 Ti23F 024262 
TE1L27A TSF1i0 054054 TSTi6 «6:10 TSI6A 051016 
TE130 6026710 TSFi3 054424 TST17 110156 TS1822 T1248 8=—6. 024472 
1 TSF1i4 054574 T2 104376 057236 T124C 3=—6. 024500 
TF114 TSF1i5 12 TST20 110402 TS26D1i T1240 
T6114 is TSF 16 TST2i1 111150 T T124E 024510 
THRBIT 115726 TSFi7 055414 TST22 111360 TS26D3 7 024514 
TH114 2 052514 TST23 111600 TS26D4 057276 TI3FIN 
TTPBEL est} 055612 TST24 112136 4 047160 
TIMEOU 114 TSF2i TST25 §6112714 TS27D0 057 TI4FIN 047532 
T 00 T 056216 TST26 113056 TS27D1 057610 5 050070 
TKVEC = TSF23 056352 TST27 114172 TS27D2 TI5A 
TMM16A TSF24 056552 TST3 104542 TS2703 057630 TISFIN 050174 
14 TSF31 354 TST 115314 TS2 ARO= 177660 
TMM1 TSF6 053430 TST31 115466 TS27D05 057650 UDPARi= 177662 
TMM1 050474 TSF7 ST 115734 TS30D0 AR2= 177664 
TMM16E TSLOOP TST33 §©6116254 TS30Di1 060154 UDPAR3= 
TMMIL6F T 043116 TST 116406 TS30D2 UDPAR4= 177 
TM1 05 TSMB 043136 TST35 116772 TS30D3 060174 ARS= 177672 
T 13 TSMC 043146 TST 117156 TS30D4 AR6= 177674 
T a TSMMUO (Ol TST37 464 TS30D05 060214 UDPAR7= 177676 
TRAPVE= 000034 TSMMUL 035152 TST4 TS 060576 = 177620 
eae 40054 TSMMU2 0352 TST 117632 TS32D1 UDPDRI= 177622 
TSMMU3S 036436 TST41 134 TS32D03 060626 = 177624 
T 30570 TSMMU4 036 ST 302 T 060636 UDPDR3S= 1 
TRTIVEC= 000014 TSMMUS 037666 TST43 12 TS32D5 UDPDR4= 1776 
TR 126 TSMMU6 TST 120652 S33D0 061072 UDPORS= 177632 
TR 030160 TSMMU7 Oeeies TST45 750 TS33D1 061102 UDPDR6= 1 
TR 30206 TSMMUB 043 TST 121032 3302 061112 7= 177636 
TSO3 060252 TSMMUS 043354 TST47 21246 1S33D3 1122 UFDFLG 004116 
T ogee TSMM1O TST 26 $3304 061132 UFDSET= 1 
TSFP1 56 TSMM11 TSTSO 121300 $3305 061142 = 177640 
TSFP10 TSMM12 045074 TST51 1644 A 053410 UIPARI= 177642 
T rt 054114 TSMM13 TSTS2 4 §6122112 TS6DAT = 177644 
T TSMM14 TSTS3S) 6 S7 042774 AR3= 177646 
TSFP13 054270 TSMM15 047654 S TS7DA1 053634 UIPAR4= 177650 
TSFP14 054434 TSMM16 050174 TSTS5S 123142 TS7DA2 O05 PARS= 177652 
TSFP1S 054606 TSMM6A STS6 123516 TS7DA4 UIPAR6= 177654 
TSFP16 055024 TSMM6B TSTS?7 123764 TS7FIN 043150 UIPAR7= 177656 
Lf oa 055214 TSMM6C 041324 TST6 i2 TSOFIN = i 
TSFP2 052446 T TST60 124136 TYPDS = 1 UIPDRi= 177602 
TSFP20 055426 TSMI6A 050270 TST61 124336 TYPE = 104401 PDR2= 177604 
TSFP21 055624 TSM16B 050316 T62 304 TYPOC = 104402 UIPDR3= 1 
TSFP 056044 TSM16C TST63 TYPON = i 177610 
UF a 30 TSM16D 164 125746 TYPOS = 104403 UIPDR5= 
T TSM7 TST65 TLIOFIN UIPOR6= 177614 
TSFP25 T 043510 TST66 1 TIIFIN 045074 UIPDR7= 177616 
TSFP 056722 TSTADD TST7 105652 T114 021146 UNXPIR 0O 
T 057320 S 116770 S10 044554 T116 022612 
TSFP 052544 TSTLOC TSi0D1i T12FIN 045460 VIREOP 
LB do 057662 TSTLUP 113410 1002 054074 T122A 023672 VIR1i 045750 
TSFP31 cooker 0047 TS1i0D4 054104 T1228 024024 
TSEP3S O60ee Tati 106870 Tsi1D1 984210 11538 024940 VIKOR 004122 
TSFP4 052660 TSTi2 106644 TSi2 0454i2 T123C §6©.: 0242.46 VQ@BE1 002676 


D4 
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SEQ 0456 
Symbol table 
002716 $D0DW1i0 001310 $ETEND 001324 $MSGTY 001200 $TIMES 001164 
VQ@PR1 002700 $0DW11 $FATAL 001202 $MSWR 143376 $ 46 
$00Wi2 001314 FFLG 141624 $MTYP1 001231 $TKS 001144 
$00Wi3 001316 $FILLC 001156 $MTYP2 001235 60 
$D0W14 1320 $FILLS 001155 $MTYP3S 001241 $TMP1  O01162 
$D0W1i5 1322 $GDADR 001120 $MTYP4 001245 = 
001270 $GDDAT 001124 $MX 140774 $T 
$D0W3 001272 GET42 140430 001154 $TPFLG 001157 
$0D0W4 4 $GTSWR 142704 $NWTST= $TPS 001150 
$00W5 001276 $ = 1 $ 142404 $TRAP 143522 
$DOW6 $HIBTS 32 $ 142406 $TRAP2 143544 
$DDW7 001302 $HIOCT 14 $OVER 140752 5 
$D0W8B 001304 $ICNT 001104 $PASS 001206 $TRPAD 56 
1 $ILLUP 143744 $PASTM $TSTM 
$DEVCT 001210 $INTAG 001135 $POWER 143752 
$ITEMB 001114 $PWRON 14 $TTYIN 143354 
$DOAGN $LF 001176 $PWRMG 143740 S 142410 
$DTBL 142614 $LFLG 141623 $PWRUP 1436 T 141626 
$ENDAD 1 $LPADR 001106 $QUES OO11 $TYPE 
$ENDCT 1 $LPERR 001110 $RDCHR 143116 TYPEX 142160 
$ 140457 $MADR1 001232 $RDLIN 14 T 1 
$ $ENULL $MADR2 001236 $RDOCT 143420 $TYPON 
‘ $ENV 001220 $MADR3 00 $RDSZ = 000010 TYPOS 142162 
$ $ 001221 $MADR4 001246 $RTNAD $UNIT 
$ EOP 140340 $ 00 $SAVR6 143750 $UNI 
$CMTAG 1100 $EOPCT $MAMS1 001230 $SCOPE 140474 001224 
$ - $ERFLG 001103 $ 001234 $SETUP= 000137 $VECT1 001250 
$ . 001115 $MAMS3 001240 $STUP = 177777 $VECT2 
LG 1435371 $ERROR 14077 $MAMS4 001244 $SVLAD 140716 $XOFF = 000023 
4 $ERRPC 001116 $ 34 $SVPC = $X 
$ 1268 001 $MFLG 141622 $SWR = 167400 $XTSTR 140514 
$ 0011 $ERTTL 001112 $ 143407 $ 001222 $$GET4= 
$ESCAP 001166 $MSGAD 001214 $SWRMK= 000300 $OFILL 142405 
1264 $ETABL 001220 $MSGLG 001216 $TESTN 001204 .$X% = 000232 


001266 

. ABS. 14 000 RW,1I,GBL,ABS,OVR 
800000 «901 CRS TSEeL 

Errors detected: 10 

eee Assembler statistics 





Work file reads: 471 

Work file writes: 403 

Size of work file: 63968 Words ( 250 peaaee) 
Size of core pool: 19684 Words ( 75 ay oy 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


Elapsed time: 00:06:36.83 
COKDAFO, COKDAFO/NL : 10C7-SP=ORTON.MLB/ML,COKDAFO.MAC/2S:GBL 





